I have a code to copy and paste values till first empty row but then I want vba to copy and paste values after that till it find second empty row. So For first I did
Lastrow = Cells.Find(What:="*", After:=[A20], SearchOrder:=xlByRows).Row
Range("A1:H" & Lastrow - 1).Offset(19, 0).Copy...
I'm in sheet2, and I want use cells.find method to get the column number of sheet1 that contain
specific words like "LogNo"
Dim d, e As Long
d = Cells.Find(what:="LogNo", After:=Sheet1).Row
But it shows errors.
Could you please help me to figure this out?
How Do I get the formula to go down to the last Row?
lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
lastcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column + 1 'after last populated col
i have a piece of code (noted with the *) that repeats itself over and over for different columns.
ActiveCell.FormulaR1C1 = "=Year(NOW())"
If Cells(Rows.Count, "A").End(xlUp).Row > 3 Then