Gegevens naar ander tabblad in de juiste rij verplaatsen.

[JoGoSoft]

Hallo allemaal,

De gegevens van een kolom in het werkblad verbruik moeten naar het tabblad Data in de juiste rij (datum) weggeschreven worden.
Dit moet via een knop op het werkblad kunnen. In de bijlage wordt duidelijk wat bedoeld word.

Alvast bedankt!

 

[Elsendoorn2134]

Beste JogoSoft,

Ik heb de macro maar even op mijn manier geschreven, dat is voor mij minder moeite dan
jouw versie te doorgronden.

Ik heb de volgende macro opgenomen.

Sub Wegschrijven()
Dim rRegel As Object
    With Sheets("Data")
        Set rRegel = .Range("A1:A500").Find(Sheets("Verbruik").Range("B1"), LookIn:=xlValues)
        If Not rRegel Is Nothing Then
            Sheets("Verbruik").Range("B2:B48").Copy
            .Range(rRegel.Address).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
        Else
            MsgBox "Datum niet gevonden in de lijst.", vbInformation, "Foutieve datum"
        End If
    End With
    Set rRegel = Nothing
End Sub

Bekijk bijlage HelpMijVerbruik.xls

Veel Succes

 

[JoGoSoft]

Beste Elsendoorn2134,

Jouw oplossing werkt perfect.
Ik zet de vraag dan ook als opgelost.

Ontzettend bedankt!