Macro om dezelfde cellen te kopiëren in een volgende blanco rij

Whitebull057franot · 21 februari 2022

In bijlage een bestandje dat deel uitmaakt van een groter bestand.

Ik probeer een macro (op te nemen) dat bepaalde gegevens kopieert naar een rij en dit is gelukt, maar na de uitvoering van de macro wil ik andere spelers en ook andere punten ingeven in mijn 'formulier' en die nieuwe gegevens via de macro naar een nieuwe rij kopiëren net onder de vorige rij. En dat lukt mij niet. In het vb worden datagegevens op hetzelfde werkblad gekopieerd, dat moet naar een ander blad komen om vandaaruit verder te werken met oa draaitabellen enz.

Klein detail, stel dat ik na een bepaalde rij, een handmatige invoer doe, dan moet bij het uitvoeren van de macro de volgende blanco lijn ingevuld worden.

Graag enig advies aub, met dank FN

testmacroFN.xlsm

Haije · 21 februari 2022

probeer dit eens

Sub bevestigen()
'
' bevestigen Macro
' kopie naar lijst
'
' Sneltoets: Ctrl+p
'
plaatshier = Range("B1000000").End(xlUp).Offset(1).Address
Range(plaatshier).Offset(, 0) = [H5]
Range(plaatshier).Offset(, 1) = [D5]
Range(plaatshier).Offset(, 2) = [H9]
Range(plaatshier).Offset(, 3) = [H15]
Range(plaatshier).Offset(, 4) = [F9]
Range(plaatshier).Offset(, 5) = [F12]
Range(plaatshier).Offset(, 6) = [J5]
Range(plaatshier).Offset(, 7) = [L9]
Range(plaatshier).Offset(, 😎 = [L12]
Application.CutCopyMode = False
End Sub

zie ook bijlage

testmacroFN (hs).xlsm

21 februari 2022 aangepast door Haije