Excel Makro

[Marius_1337]

Hei!

 

Jeg sliter med en liten ting i Excel.

 

Jeg har en makro som ser ut som følger:

 

 

 

Sub Makro1()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer

On Error GoTo Err_Execute

LSearchRow = 2
LCopyToRow = 2


While Len(Range("A" & CStr(LSearchRow)).Value) > 0

If Range("E" & CStr(LSearchRow)).Value = "TEST" Then

Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy
Sheets("Ark2").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste

LCopyToRow = LCopyToRow + 1

Sheets("Ark1").Select

End If

LSearchRow = LSearchRow + 1

Wend

Application.CutCopyMode = False
Sheets("Ark1").Select

Exit Sub

Err_Execute:
MsgBox "An error occurred. Number: " & Err.Number & " Description: " & Err.Description

End Sub

Problemet er at denne vil alltid lime inn i rad nr 2 i Ark2. Jeg ønsker at den skal lime inn i den første blanke raden.

 

Jeg må altså forandre "LCopyToRow = 2" til noe annet. (tror jeg).

 

 

Er det noen som har en anelse?

 

 

Takk!

[Harald Staff]

Hei

 

Denne finner radnummer under nederst i kolonne 1 (A) :

 

LCopyToRow = Sheets("Ark2").Cells(Sheets("Ark2").Rows.Count, 1).End(xlUp).Row + 1

 

Det er ikke nødvendigvis det samme som første blanke rad, f.eks hvis det er en blank linje innimellom.

 

HTH. Beste hilsen Harald