Just nu i M3-nätverket
Gå till innehåll
Toastmaster

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

Rekommendera Poster

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...