macro automatisch een cel naar beneden laten gaan

[taco86]

hallo allemaal,

ik ben op zoek naar een manier om een macro elke keer nadat deze uitgevoerd is automatisch een cel te laten zakken. Hieronder staat dus bijvoorbeeld een macro om een formule in een cel te zetten:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 16-4-2008 door Stageplant4.
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=RC[1]&RC[2]"
End Sub

En nu is het de bedoeling dat de volgende keer dat de macro uitgevoerd wordt deze in A2 komt en de keer daarna in A3 etc. is dit mogelijk?

 

[Roncancio]

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 16-4-2008 door Stageplant4.
'

'
If Range("A2") = "" Then
    Range("A1").Offset(1, 0) = "=RC[1]&RC[2]"
Else
    Range("A1").End(xlDown).Offset(1, 0) = "=RC[1]&RC[2]"
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[taco86]

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 16-4-2008 door Stageplant4.
'

'
If Range("A2") = "" Then
    Range("A1").Offset(1, 0) = "=RC[1]&RC[2]"
Else
    Range("A1").End(xlDown).Offset(1, 0) = "=RC[1]&RC[2]"
End If
End Sub

Met vriendelijke groet,


Roncancio

dat werkt, bedankt :thumb: