Gegevens uit kolom naar nieuw tabblad wegschrijven.

[JoGoSoft]

Hallo allemaal,

De gegevens van een kolom in het werkblad verbruik moeten naar het tabblad Week in de juiste rij weggeschreven worden.
Dit moet via een knop op het werkblad kunnen.
In de bijlage wordt duidelijk wat bedoeld word.
Dit mag via een macro of eventueel met VBA.

Alvast bedankt!

 

[HSV]

In een standaard module.

Sub Wegschrijven()
 Dim rij As Long, lengte As Long
  With Sheets("Week")
   rij = WorksheetFunction.Match("Week " & Sheets("Verbruik").Range("B1").Value, .Columns(1), 0)
   lengte = Range("B2:B" & .UsedRange.Rows.Count).Rows.Count
 .Cells(rij, 1).Offset(, 1).Resize(, lengte).Value = WorksheetFunction.Transpose(Sheets("Verbruik").Range("B2:B" & .UsedRange.Rows.Count).Value)
 End With
End Sub

 

[JoGoSoft]

HSV

Bedankt voor deze geweldige oplossing.
Deze vraag is opgelost.