Macro Maken

[roywaarts]

Hallo allemaal,

Ik wil een macro maken voor mijn rooster.

Ik wil dat als ik in een cel sta en bijvoorbeeld CRT+D druk en dat er dan in die cel 09:00 komt te staan, de cel daar rechts van 17:00, die cel daar rechts van de letter w en dat daarna de cel onder de 09:00 is geselecteerd.

Ik heb dit geprobeerd door een macro op te nemen maar dan pakt ie iedere keer de cellen waarin in de macro heb opgenomen...

Wie weet hoe ik dat het beste kan doen?

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.FormulaR1C1 = "9:00"
    Range("AJ13").Select
    ActiveCell.FormulaR1C1 = "17:00"
    Range("AK13").Select
    ActiveCell.FormulaR1C1 = "w"
    Range("AI14").Select
End Sub

 

[Warme bakkertje]

Sub tst()
    With ActiveCell
        .Resize(, 3).Value = Array("9:00", "17:00", "w")
        .Offset(1).Select
    End With
End Sub

 

[Timshel]

Je kunt dit ook bereiken als je een macro opneemt met de optie 'relatieve verwijzingen gebruiken'.
Zie hierrrrr hoe het moet.

 

[edmoor]

Mooie tip Tim :thumb: