Hjärnstopp! Excel vba sök rad och kopiera

[Toastmaster]

Tjo Jag är ganska ny på VBA, men behöver verkligen hjälp.
Det här forumet är ett som verkligen verkar ha kompetens så jag testar med att ställa min fråga här.

Jag har ett excel-ark som innehåller en massa kundinformation första kolumnen innehåller datum. Jag vill med hjälp av makro söka upp alla rader i A:A (i "Blad1") som innehåller morgondagens datum (date + 1) och därefter kopiera samtliga av dessa till "Blad2"

 

litet screenshot: http://www.sweweld.se/ny.bmp

 

På förhand tack

 

Johnny

[Monshi]

Något i still med detta troligen

Sub test2()
    Dim c As Range
    Dim rwIndex As Integer
    rwIndex = 2
    Dim firstAdress As String
    With Me.Cells
        Set c = .Find(Date + 1, LookIn:=xlValues)
        firstAdress = c.Address
        While Not c Is Nothing
            c.EntireRow.Copy Blad2.Cells(rwIndex, 1)
            rwIndex = rwIndex + 1
            Set c = .FindNext(c)
            If Not c Is Nothing Then
                If firstAdress = c.Address Then
                    Set c = Nothing
                End If
            End If
        Wend
    End With
    Application.CutCopyMode = False
End Sub