Help, please

  • Thread starter Thread starter SedonaBob
  • Start date Start date
S

SedonaBob

Worksheet is sorted by dates in Col. A. Dates have varying number of rows;
i.e., 5-6-08 may have 29 rows of data; 5-7-08 may have 14 rows; and 5-8-08
may have 42 rows. How can I automatically transfer to another worksheet the
values in the last row for a date?
 
one way

Sub lastvisiblerow()
fvr = Rows("8:1000").SpecialCells(xlCellTypeVisible).Row
MsgBox fvr
lvr = Cells(fvr, 1).End(xlDown).Row
MsgBox lvr
rows(lvr).copy sheets("sheet2").range("a1")
End Sub
 
Back
Top