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

[Whitebull057franot]

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]

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

[emielDS]

of zo

testmacroFN (1).xlsm

[emielDS]

Een beetje speelgoed aan toe gevoegd.

testmacroFN (1).xlsm

[Whitebull057franot]

Beste Haije en emielDS,

mijn dank voor de hulp!

Dit topic mag afgesloten worden.

 

Mvg, Fn

[kweezie wabbit]

Dan zetten we er een op.

Succes nog