Kopiera över kolumner inom valbart datumintervall

[slirfeldt]

Hej!

Jag skulle behöva göra ett macro som markerar några kolumner data, inom ett av användaren givet datumintervall, så att jag kan kopiera över dem till en annan flik och bearbeta dem där.


Datum finns i B kolumnen , och är formaterade åååå-mm-dd.
Det kan förekomma flera rader med samma datum.
De rader av B8:CO1000 som innehåller datum inom intervallet, ska då markeras och kopieras.
Raderna antas vara sorterade i datumordning.


Snyggast vore att macrot frågar mellan vilka datum användaren vill bearbeta data, och visar nuvarande månads datum grafiskt och föreslår datum 1 till dagens.
Det funkar även att datumintervallet anges manuellt nånstans på ursprungsfliken.

Tacksam för all hjälp!

 

[fairwinds]

Hej,

Testa om detta funkar för dig. Det kopierar dina rader till ett blad som heter Sheet2. Se till att du har ett sådant eller ändra namnet i koden:

Sub xxx()

Dim x As Date
Dim y As Date

x = InputBox("Startdatum?", , Date)
y = InputBox("Slutdatum?")

For Början = 8 To 1000
    If Cells(Början, 2) >= x Then GoTo Vidare
Next Början

Vidare:

For **** = Början To 1000
    If Cells(****, 2) > y Then GoTo Vidare2
Next ****

Vidare2:
**** = **** - 1

Range(Cells(Början, 2), Cells(****, 93)).Copy _
    Destination:=Worksheets("Sheet2").Range("A1")

End Sub

 

[slirfeldt]

Tackar!

1. Exakt så!
2. Snabbast!

STORT TACK & trevlig helg!