VB ipv formule

[jarre2]

Hallo,
In bijgaand voorbeeldbestandje staat in kolom F, rij 4 t/m 252 de formule =ALS(E4="o";"optie";ALS(E4="v";"vraag";"")). Rij E en F hebben voorwaardelijke opmaak, dit terzijde.

Mijn vraag is: zou het mogelijk zijn om de formule in kolom F (rij 4 / 252) te vervangen voor een VB code?

Vr. gr.
Jarre

 

[edmoor]

Waarom zou je dat willen met een dergelijk simpele formule?

 

[jarre2]

Beperking van de bestandsgrote en tevens het niet kunnen overschrijven van de formule.

 

[edmoor]

En hoe moet dan de VB code worden geactiveerd?
En knop op het scherm? Een userform? Als werkbladgebeurtenis?

 

[jarre2]

Werkblad gebeurtenis

 

[popipipo]

Met werkblad beveiligen kun je ook voorkomen dat cellen worden overschreven.
De grootte van bestand wordt hierdoor niet (nauwelijks) beïnvloed.

 

[jarre2]

Dank voor de reactie, cellen beveiligen is mij bekend. Ook ter lering vroeg ik mij af, of dit ook in een code te "vangen" was en hoe je dit moest aanpakken.

Jarre

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E252")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Select Case Target.Value
            Case "o"
                Target.Offset(, 1) = "optie"
            Case "v"
                Target.Offset(, 1) = "vraag"
        End Select
    End If
End Sub

Bij het wijzigen v/e waarde in kolom E wordt de waarde automatisch in kolom F geplaatst.

 

[jarre2]

Hallo Warme Bakkertje,

Heel hartelijk dank voor uw waardevolle oplossing. Ben daar zeer erkentelijk voor. De code werkt perfect! Dit praktijk voorbeeld geeft toch weer enig inzicht in VBA en zal dagelijks veelvuldig gebruikt worden.

Met vriendelijke groet,
Jarre

Note:
Zou het ook mogelijk zijn als in een cel van rij E, de "o" of "v" weer weg gehaald wordt, dat dan de cel ernaast de tekst weer verdwijnt?

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E252")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Select Case Target.Value
            Case "o"
                Target.Offset(, 1) = "optie"
            Case "v"
                Target.Offset(, 1) = "vraag"
            Case ""
                Target.Offset(, 1) = vbNullString
        End Select
    End If
End Sub

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E252")) Is Nothing Then [F5:F252] = [index(choose(find(E5:E252," ov"),"","optie","vraag"),)]
End Sub

 

[Warme bakkertje]

@ snb
Waar blijf je het allemaal halen :thumb:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E252")) Is Nothing Then [F4:F252] = [if(E4:E252="o","optie",if(E4:E252="v","vraag",""))]
End Sub

of

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E252")) Is Nothing Then [F4:F252] = [index(choose(find(E4:E252," ov"),"","optie","vraag"),)]
End Sub

Zo werken ze beiden helemaal correct.

 

[jarre2]

@ Warme bakkertje en @snb

Beide heren dank voor de aangeboden VBA codes. Waar een op het oog eenvoudige vraag toe kan leiden…

Chapeau