Resize

[don42]

Beste helpers
Wie kan mij helpen met het volgende:

Ik moet voor mijn werk
op ‘klad’ even de vakantieweken invullen
Is het mogelijk als ik in een willekeurige cel
Actie cel een X zet de 6 cellen naar rechts
Ook een X geplaatst word (dan heb ik in 1 klap de
Hele week ingevoerd)
Dat zal mij een hoop werk besparen
Het liefst niet bij selectie van een cel maar
Bij invoer van een X

Don

 

[SjonR]

zo?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 And Target.Value = "X" Then Target.Resize(, 7).Value = "X"
Application.EnableEvents = True
End Sub

 

[don42]

Precies wat ik nodig had.
Dank je wel
Don