opdatere ark b hvergang der er nyt i ark a

Sub FindOrd()
Dim Fundet() As Integer
I = 1
On Error GoTo Slut
ReDim Fundet(1)
    Søg = InputBox("Skriv søgestrengen på hvad der skal Findes", "Find Streng")
      Sheets("ArkA").Select
      Columns("A:E").Select 'området den søger på ret det selv til, her kolonne A til E
      Selection.Find(What:=Søg, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        A = ActiveCell.Row
        b = ActiveCell.Column
        Cells(A, b).Activate
        Fundet(I) = ActiveCell.Row
          If I > 1 Then
        For t = 1 To I - 1
          If Fundet(I) = Fundet(t) Then
          I = I - 1
        End If
        Next
      End If
      I = I + 1
    Do
    ReDim Preserve Fundet(I)
      Cells.FindNext(After:=ActiveCell).Activate
        A = ActiveCell.Row
        b = ActiveCell.Column
        Cells(A, b).Activate
        Fundet(I) = ActiveCell.Row
      If I > 1 Then
        For t = 1 To I - 1
          If Fundet(I) = Fundet(t) Then
                GoTo Videre
          End If
        Next
      End If
      I = I + 1
  Loop
Videre:

Slut:
  Sheets("ArkB").Select
    Range("A65536").End(xlUp).Select
    r = ActiveCell.Row
  For t = 1 To I - 1
    Sheets("ArkA").Rows(Fundet(t)).Copy
    Sheets("ArkB").Rows(r + t).Select
    ActiveSheet.Paste
    Range("G" & r + t) = Now() ' indsætter tidspunkt i kolonne G, ret det til hvor du vil have det
      Next
End Sub

Det er sgu' utroligt - Smider du et svar ;-O

Jeg var vist lidt for hurtig..
Når jeg kører makroen igen - bliver de samme rækker kopieret een gang til til ark b.

ja, du har jo ikke bedt om at få den fjernet.

Jeg har vist så været lidt uklar på det punkt.

Jeg vil naturligvis gerne have at det kun er de rækker som ikke allerede findes i ark b som kopieres.

Jeg opretter gerne et nyt sp hvis det er kompliceret. (det synes jeg det er..)

Hvis du laver et nyt spørgsmål så:

Så skal du lige fortælle hvor mange kolonner der er data i på ArkA og hvor du sætter tidstemplet i ArkB.

Det skal bruges for at sammenligne.

Men der hvor du søger har hele rækken samme data fra gang til gang, ellerændres der nogen.

Et svar på dette spørgsmål.

Hej Kabbak,

Så har jeg lavet et nyt sp. http://www.eksperten.dk/spm/461280

Husk at svare på det her ;-)