Lege cel formule

[Lxtrovat]

Goedeavond,

Weet iemand of het mogelijk is om via een formule, info te plaatsten in een lege cel.

Bijvoorbeeld:

In cel A typ ik ‘auto’ , dan wil ik dat er in cel B: ‘NVT’ komt te staan maar zonder dat er in in cel B een formule staat, de formule zou ik dan willen in een andere cel ( bv cel C )

(IF:A=“auto”;B=“NVT”;””) werkt niet en via conditional formatting lukt het alleen om de cel te kleuren maar niet de tekst “NVT” te krijgen.

Iemand die weet hoe dit moet? Laat het aub weten.

Gr Luca

 

[edmoor]

Met een formule in een cel kan je geen andere cel vullen.

Dat kan wel met iets als dit achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        If LCase(Target) = "auto" Then
            Application.EnableEvents = False
            Target.Offset(, 1) = "NVT"
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[AlexCEL]

Waarom mag er geen formule staan in kolom B, en wel in kolom C?

 

[Lxtrovat]

Waarom mag er geen formule staan in kolom B, en wel in kolom C?

Hi, dit omdat als er geen ‘auto’ in cel A staat er in cel B een andere waarde getypt moet worden.

 

[Lxtrovat]

Met een formule in een cel kan je geen andere cel vullen.

Dat kan wel met iets als dit achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        If LCase(Target) = "auto" Then
            Application.EnableEvents = False
            Target.Offset(, 1) = "NVT"
            Application.EnableEvents = True
        End If
    End If
End Sub

Bedankt voor je reactie, helaas heb ik geen ervaring met VB. Ik had al iets geprobeerd hiermee en het luktte ook wel maar dan moest ik steeds op ‘play’ drukken om de code te laten runnen. Is er een manier waar op je zo’n formule/module automatisch laat runnen?

 

[edmoor]

Dat is precies wat die code doet.
Dubbelklik in de VBA editor linksboven op het betreffende werkblad en plak daar mijn voorbeeld in.

 

[Lxtrovat]

Dat is precies wat die code doet.
Dubbelklik in de VBA editor linksboven op het betreffende werkblad en plak daar mijn voorbeeld in.

Het werkt inderdaad, dankjewel!
Klopt het dat het nu alleen werkt als ik in rij A ; auto zet. Wat als ik het bijvoorbeeld bij cel D wil. Wat moet ik dan aanpassen in de formule?

 

[edmoor]

Dat was wat je vroeg.
Hij controleert inderdaad of het kolom A is met:

If Target.Column = 1

Kolom D is dan 4 en kan je met bijvoorbeeld een Else of een Select Case.

 

[Lxtrovat]

Klopt , dat is wat ik vroeg. Dus bedankt!
Was alleen benieuwd hoe je dat in de formule kan aanpassen. Nu helemaal duidelijk.

Heel erg bedankt!

 

[edmoor]

Overigens spreek je dan niet van een formule maar van een routine.
In dit geval een Event Routine, omdat hij gestart wordt door een wijziging op het werkblad.