Solved: Edit Cells finding the last row

[r_know]

Hi,
happy new year to all...

I have below code, and required that Range given "C3:D1200" should be based on the last row in the "D" column.

Can any one suggest to modify code to find last row in D column, then edit/refresh each Cell in that range Only?


Sub EditRefresh()
Dim R As Range
For Each R In Worksheets("Sheet1").Range("C3:D1200")
' or For each R in Selection
R = R.Value
Next R
End Sub

[mohanvijay]

Worksheets("Sheet1").Range ("C3:D" & Worksheets("Sheet1").Cells(Rows.Count, 4).End(xlUp).Row)

[jolivanes]

BTW, you dont have to loop.


Sub Try_This()
With Worksheets("Sheet1").Range("C3:D" & Worksheets("Sheet1").Cells(Rows.Count, 4).End(xlUp).Row)
.Value = .Value
End With
End Sub

[r_know]

Thanks MohanVijay & jolivanes

Solved Thread :beerchug: