79387461

Date: 2025-01-25 20:28:49
Score: 1
Natty:
Report link
Dim WS As Worksheet
Dim f As Worksheet
Dim lastRow As Long

Set WS = Sheets("Sheet1")
Set f = Sheets("Sheet2")

lastRow = f.Cells(f.Rows.Count, "K").End(xlUp).Row
f.Range("K7:K" & lastRow).Formula = "='" & WS.Name & "'!$C$17"
Reasons:
  • Low length (0.5):
  • Has code block (-0.5):
  • Low reputation (1):
Posted by: Hicham Ben Benaissa