Toastmaster Postad 14 januari, 2016 Share Postad 14 januari, 2016 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Monshi Postad 14 januari, 2016 Share Postad 14 januari, 2016 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.