Cellen vullen

[P. Men]

Hallo,

ik wil op het moment dat er een waarde in kolom A ingevuld wordt (wat dan ook) dat er een standaard waarde in kolom B komt (bijvoorbeeld 'Ja').
Normaal zou ik dit met een formule doen, maar omdat het nu om heel veel velden gaat, wordt de file te groot. Is er nog een andere manier om dit voor elkaar te krijgen?

alvast bedankt!

 

[Joske2000]

Hallo P,

Plak onderstaande code achter de desbetreffende werkmap.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then Target.Offset(, 1).Value = "Ja"
End Sub

Joske

 

[P. Men]

Hoi Joske,

Bedankt! Maar, dit is het net niet helemaal.... als ik nu de waarde in kolom A verwijder blijft de 'Ja' in kolom B staan, is hier nog iets op te verzinnen?

thnx!

 

[Wigi]

Hoi Joske,

Bedankt! Maar, dit is het net niet helemaal.... als ik nu de waarde in kolom A verwijder blijft de 'Ja' in kolom B staan, is hier nog iets op te verzinnen?

thnx!

Ja, een ALS functie

=ALS(A1="";"";"ja")

en anders de VBA-code aanpassen.

Wigi

 

[P. Men]

Hoi Wigi,

Dat is nou net het punt, ik wil geen formule gebruiken... en ben nog niet zo goed thuis in VBA dat ik de code zo 123 kan aanpassen

Misschien een suggestie??

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target.Value <> "" Then
            Target.Offset(, 1).Value = "Ja"
        Else
            Target.Offset(, 1).Value = ""
        End If
    End If
End Sub

Wigi

 

[P. Men]

Hoi Wigi,

thnx!! Dit issie :thumb:

 

[Wigi]

OK

Dit is eigenlijk nog iets beter:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        [B]Application.EnableEvents = False[/B]
        If Target.Value <> "" Then
            Target.Offset(, 1).Value = "Ja"
        Else
            Target.Offset(, 1).Value = ""
        End If
        [B]Application.EnableEvents = True[/B]
    End If
End Sub