If .Range("C14") = "30" Then .Range("E14").Value = Volwassen

[weusty]

Er gaat hier iets mis.

Maar wat???????

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet

If .Range("C14") = "10" Then .Range("E14").Value = "Kind"

If .Range("C14") = "20" Then .Range("E14").Value = "Volwassen"

If .Range("C14") = "30" Then .Range("E14").Value = "Oud"

End if
End With
End Sub

Groet Weust

 

[Roncancio]

Er gaat hier iets mis.

Maar wat???????

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet

If .Range("C14") = "10" Then .Range("E14").Value = "Kind"

If .Range("C14") = "20" Then .Range("E14").Value = "Volwassen"

If .Range("C14") = "30" Then .Range("E14").Value = "Oud"

End if
End With
End Sub

Groet Weust

Je hoeft geen END.. IF te gebruiken.

Met vriendelijke groet,


Roncancio

 

[snb]

Je hebt 'iets' teveel code

Private Sub Worksheet_Change(ByVal Target As Range)
  if val([E14])>0 Then [E14]=choose([C14]\10,"Kind","Volwassen",Oud")
End Sub

 

[weusty]

Je hebt 'iets' teveel code

Private Sub Worksheet_Change(ByVal Target As Range)
  if val([E14])>0 Then [E14]=choose([C14]\10,"Kind","Volwassen",[B]"[/B]Oud")
End Sub

deze code werkt half, maar doet niet wat ik wil.

Heb hem nou zo gemaakt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Val([C14]) = 6 Then [E14] = "Jong"
If Val([C14]) = 10 Then [E14] = "Kind"
If Val([C14]) = 16 Then [E14] = "puber"
If Val([C14]) = 21 Then [E14] = "volwassen"
If Val([C14]) = 30 Then [E14] = "oud"
If Val([C14]) = 60 Then [E14] = "opa"
  
End Sub

Maar als ik deze ook maak voor de D,E,F,G,H, enz. rij dan loopt excel vast door een 'loop' ofzo.

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  if target.column =5 and val([E14])>0 Then [E14]=choose([C14]\10+1,"Jong","Kind","Volwassen",Oud","",Opa")
End Sub

 

[weusty]

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column =5 and val([E14])>0 Then [E14]=choose([C14]\10+1,"Jong","Kind","Volwassen",Oud","",Opa")
End Sub

Werkt ook niet.

"Oud","Opa")

maar als ik die code gebruik dan moet ik ook in E14 een getal invullen.

Ik wil gewoon in rij "C" een getal invullen en dan moet er en rij "E" een kreet uitrollen zonder "E" te hoeven veranderen.

Groet

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column =3 and val([E14])>0 Then [E14]=choose([C14]\10+1,"Jong","Kind","Volwassen","Oud","",Opa")
End Sub

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Range("E14").Value = Choose(Range("C14").Value \ 10 + 1, "Jong", "Kind", "Volwassen", "Oud")
    End If
End Sub

Wigi

 

[weusty]

Kan het ook alleen op de getallen 6 , 10, 16, 21, 30?

(ik heb die leeftijden als voorbeeld gegeven)

Want als ik nu 11 intoets springt hij op kind, dan moet er gewoon niks gebeuren.

Groet,

weust

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        
        Select Case Target.Value
        
            Case 6, 10, 16, 21, 30
                Range("E14").Value = Choose(Range("C14").Value \ 10 + 1, "Jong", "Kind", "Volwassen", "Oud")
                
        End Select
        
    End If
End Sub

Wigi

 

[weusty]

Ja deze werkt.

Snap alleen niet hoe.

Heb hem geprobeerd aan te passen naar mijn wensen maar dan pakt hij een aantal getallen niet meer.

 

[Wigi]

Vanaf dat een Case uitgevoerd wordt, gaat VBA niet meer in de andere cases, ook al zouden die van toepassing zijn.

 

[weusty]

Okay,

dan kom je dus op het

If .range ("C14").value = ("10") then .range ("E14").value = (".........")
If .range ("C14").value = ("15") then .range ("E14").value = (".........")

enz
verhaal.

 

[Wigi]

Alles ineens aangepast:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 And Target.Row >= 14 And Target.Row <= 31 Then
        
        Select Case Target.Value
        
            Case 10, 15, 20, 25, 30 To 34

                Range("E" & Target.Row).Value = Choose(Target.Value \ 10 + 1, "Aanleg buizen", "Aanleg combi", "Aanleg kabels", "Engineering hoogbouw", "Engineering alg.", "Calculatie alg.", "Prequalificatie", "Engineering bedr.X", "Calculatie bedr.X")
                
        End Select
        
    End If
    
End Sub

Wigi

 

[weusty]

Loopt nog steeds niet lekker.

Bijgevoegd een eenvoudig voorbeeld over wat ik precies bedoel.

Groet Weust

 

[snb]

zet in B1:

=kiezen(A1;"opel";"Ford";"volkswagen")

Een duidelijke vraag leidt vaak sneller tot een gewenst antwoord.
De relatie met je beginpost ontgaat me.

 

[Wigi]

Ik begrijp ook niet echt wat deze bijlage (test.xls) in deze topic over volwassenen e.d. komt doen.