Random code veranderen

[Chris15]

Ik heb van VenA onderstaande code gehad. Als je op een A cel klikt geeft het een random waarde in een E cel.

Hoe kan ik in de code veranderen dat het klikken niet in A moet gebeuren maar in een andere kolom? (bijvoorbeeld in kolom B)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = -1
If Target.Column = 1 Then
With Application
Target.Offset(, 4) = .Choose(.RandBetween(1, 2), "Noord", "Zuid")
End With
End If
End Sub

 

[edmoor]

Heb je dit gezien? ;-)
If Target.Column = 1 Then

A=1
B=2
Etc.

 

[wampier]

target.column = ...

 

[Chris15]

Oke, klasse dat begrijp ik! dus 1 is kolom A om te klikken.

Maar waar staat de uitkomst?

Nu in kolom E

Is dat de ,4?

4 kolommen raar rechts?

 

[edmoor]

Dit: Target.Offset(, 4)
Geeft aan dat het op 4 kolommen rechts van de actieve kolom moet komen.