macro uitbreiden

[goofy31]

Beste helpers:

Ik ben nieuw met macro's in excel. Ik heb een gemakkelijke macro die een celbereik, op een invoerblad, kopieert naar een verzamelblad. Nu wil ik graag het invoer veld steeds opnieuw gebruiken en alleen maandelijks de datum boven de invoer wijzigen. Als ik de macro activeer moet het kopie in de corresponderende kolom van betreffende maand terecht komen op het 2e werkblad. Iemand ideeen hoe ik dat voor mekaar krijg?


Groetjes
Goofy

Bekijk bijlage test kilometers.xls

Sub kopie()
'
' kopie Macro
' kopieert cellen door
'
' Sneltoets: CTRL+q
'
    Range("B3:B6").Select
    Selection.Copy
    Sheets("maandstanden").Select
    Range("B2").Select
    ActiveSheet.Paste
End Sub

 

[HSV]

Sub hsv()
With Sheets("Maandstanden")
  Set C = .Rows(1).Find([Invoer!B1], , xlValues, xlWhole)
   If Not C Is Nothing Then
  C.Offset(1).Resize(4) = [Invoer!B3:B6].Value
    End If
  End With
End Sub

 

[goofy31]

werkt precies zoals ik wil.
Bedankt