Makro til finde sidste række i et Excel-regneark

Sub Macro1()
  Dim lastrow As Long
  lastrow = Columns("B:B").Find(What:="dette er slutningen", LookIn:= _
                                xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                                xlNext, MatchCase:=False, SearchFormat:=False).Row

  Range("A1:D" & lastrow).Copy
 
End Sub


eller

Sub test3()
  Dim lastrow As Long
  lastrow = Range("B65536").End(xlUp).Row
  Range("A1:D" & lastrow).Copy
End Sub

Works like a charm!!

Tak for det!

Sender du lige et "svar"?

ok :-)