Makro der kan flytte data til nyt ark
Hej jeg sidder og laver et Excel ark over et arbejdsskemaI den forbindelse vil jeg gerne have en makro der kan flytte de samlede uge timer over i et nyt ark hvor hele årets timer fremgår, fordelt på hver uge. Og det skal den gøre for det ugenummer der står i en bestemt celle.
Er ret ny til VB men kunne forestille mig en kode der så nogenlunde således ud:
Sub Tror()
Dim rMatch As Range
Set rMatch = wsÅr.Range("C8:C15").Find(wsuge.Range("D113").Value)
If Not rMatch Is Nothing Then
wsuge.Range("d114:d121").Copy
rMatch.Offset(0, 1).PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True
End If
End Sub
Hvor at der så skulle nogle flere celler ind ved wsÅr.Range da der skal være plads til 54 uger.
Håber i kan hjælpe