Kopiere data udfra dato makro

Er ikke helt med på hvad du vil, men vi kan da starte med denne :

Sub tst()
Set sh1 = Sheets("Ark3") ' ret til aktuel arknavn
Set sh2 = Sheets("Ark4") ' ret til aktuel arknavn
fra = CDate(InputBox(x)): til = CDate(InputBox(x))
For Each c In sh1.Range("A2:A200") ' ret til aktuel range
If c >= fra And c <= til Then
sh2.Cells(Cells(65500, 2).End(xlUp).Row + 1, 2) = c.Offset(0, 1)
End If
Next
End Sub

Hvordan får jeg den til at kopiere hele rækken og ikke kun cellen i B kolonnen?

prøv:

Sub tst()
Set sh1 = Sheets("Ark3") ' ret til aktuel arknavn
Set sh2 = Sheets("Ark4") ' ret til aktuel arknavn
fra = CDate(InputBox(x)): til = CDate(InputBox(x))
For Each c In sh1.Range("A2:A200") ' ret til aktuel range
If c >= fra And c <= til Then
rk = sh2.Cells(65500, 2).End(xlUp).Row + 1
sh1.Range("A" & c.Row & ":IV" & c.Row).Copy sh2.Cells(rk, 1)
sh2.Cells(rk, 3).Formula = "=sumif(b:b,b" & rk & ",d:d)"
End If
Next

End Sub

hvordan går det?

Ser ud til at virke fint, på mit fake data. Prøver den på noget rigtig data i denne uge og vender tilbage.

Kan jeg få tekst i de inputboxe eks. start dato og slut dato?

ja det kan man godt

Lukker