Meerdere opdrachten

[rick1982]

Beste Forumlezers,

via dit forum ben ik geholpen aan de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Value = "1=goed" Then Target.Value = 1
If Target.Value = "2=niet goed" Then Target.Value = 2
End If
End Sub

Dit gebruik ik in kollom G. Nu wil ik voor kollom F een andere voorwaarde opgeven.

If Not Intersect(Target, Range("F:F")) Is Nothing Then
If Target.Value = "1=man" Then Target.Value = 1
If Target.Value = "2=vrouw" Then Target.Value = 2

Hoe kan ik dit aan elkaar koppelen? Ik wil dit uiteindelijk voor 10 kollommen doen.

Groeten

Rick

 

[edmoor]

Je kunt ze gewoon alle 10 onder elkaar zetten tussen Sub Worksheet_Change en de bijbehorende End Sub.
Er zal er maar 1 worden uitgevoerd omdat er maar 1 waar (True) is.

 

[rick1982]

Beste Edmoor,

ik heb het geprobeerd maar blijf de fout houden.

Groeten

Rick

 

[edmoor]

Je hebt nog niet verteld dat je een fout kreeg en het zou handig zijn als je die er dan bij vermeld
Plaats ook even de code zoals deze nu is.

Edit:
Ik mis trouwens een End If in je voorbeeldje voor kolom F.