Excel Makro - Søg og kopier til andet ark.

Hej.
Jeg har fundet noget makro kode på nettet som kan det som det skal, men der er et lille problem.

Jeg ønsker at gennemsøge 3-5 excel sheets, efter et medarbejder nummer, og derefter kopiere alle linier med det nummer til et andet ark (resultat).

Men hvis der står et søge ord på samme linie i flere forskellige ark, kopieres resultaterne oven i hinanden, og derved får jeg ikke det hele med.

Nogen der er hårde til Excel?


Sub SearchForStrin()


  Dim LSearchRow As Integer
  Dim LCopyToRow As Integer
  For Each sh In Array("Mobil", "Mobil Bredbånd")
  Sheets(sh).Select
  'Start search in row 1
  LSearchRow = 2
 
  'Start copying data to row 2 in Sheet2 (row counter variable)
  LCopyToRow = 2
 
      While Len(Range("A" & CStr(LSearchRow)).Value) > 0
     
          'If value in column E = "Mail Box", copy entire row to Sheet2
          If Range("A" & CStr(LSearchRow)).Value = "1" Then
         
              'Select row in Sheet1 to copy
              Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
              Selection.Copy
         
              'Paste row into Sheet2 in next row
              Sheets("Resultat").Select
              Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
              ActiveSheet.Paste
         
              'Move counter to next row
              LCopyToRow = LCopyToRow + 1
         
              'Go back to Sheet1 to continue searching
              Sheets("Mobil").Select
         
          End If
          LSearchRow = LSearchRow + 1
 
      Wend
  Next
'Position on cell A3
  Application.CutCopyMode = False
  Sheet1.Select
 
  MsgBox "Søgning afsluttet"
 
  Exit Sub
 
 
Err_Execute:
  MsgBox "An error occurred."
 
End Sub