exell probleem formule uitvoeren op ingave getal van 1 enkele cel

[ginogcsbelgie]

hallo iedereen,
ik zou wanneer ik een getal , in dit geval 8000 in een bepaalde cel zoals in de bijgevoegde code D13 .
waarna hij de bijgevoegde regels uitvoerd.
Edmoor had me onlangs geholpen met hetzelfde in een ganse kolom, maar ik zou het ook in 1 enkele cel willen.
Ik heb al van alles aan het proberen geweest van de code aan te passen maar krijg altijd errors bij het uitvoeren van de macro.
Kan iemand me aub hierbij helpen?
Alvast bedankt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Exit Sub
    
    Application.EnableEvents = False
    Select Case Target.Address
        Case "d13"
            Select Case Target.Value
                Case 8000:
               
                    
                    A = MsgBox("Code is OK !", vbOKOnly)
                    
    
             
                Case Else
                    
                   
                    A = MsgBox("Gebruik uw juiste code  !", vbOKOnly)
                    
            End Select
       
    End Select
    Application.EnableEvents = True
End Sub

 

[Cobbe]

Probeer eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$13" Or Target = "" Then Exit Sub
     Application.EnableEvents = False
          If Range("d13") = 8000 Then
            MsgBox "Code is OK !", vbOKOnly
        Else
            MsgBox "Gebruik uw juiste code  !", vbOKOnly
          End If
    Application.EnableEvents = True
End Sub

 

[dnties]

@Cobbe:
Moet

If Range("d13") = 8000 Then

niet zijn:

If Range("d13")[B][COLOR="#FF0000"].Value[/COLOR][/B] = 8000 Then

??

Tijs.

 

[SjonR]

Nee hoor, werkt zo ook prima

 

[dnties]

@SjonR: Ok, thx!

Tijs.

 

[SjonR]

ik ben ook een zaankanter, maar hoe krijg je je locatie onder je ID?

 

[dnties]

Mogelijk bij jou weggevallen omdat je (ook) verenigingslid bent? En anders je profiel (tabblad "Over mij" en dan het potlood naast Woonplaats) aanvullen.

Tijs.

 

[SjonR]

Dank Tijs,

ik had die potloodjes nooit voor vol aangezien, maar ze hebben een functie.

Gr.

Sjon

 

[dnties]

@SjonR: Zie dat "Zaanstad" wel een erkende plaatsnaam is (tegenwoordig), Zaandam niet meer. Vandaar dat bij mij wel de afstand staat tot de server en bij jou (nu) niet.

Verder graag gedaan.

Tijs.

 

[SjonR]

Daar moet ik maar mee leren leven, maar ben toch echt een Zaandammer

 

[dnties]

@SjonR: Ik niet, ik ben 'slechts' import.

Tijs.

 

[ginogcsbelgie]

hartelijk dank iedereen voor de hulp, de verbetering van cobbe werkte perfect

 

[ginogcsbelgie]

nog 1 probleempje, wanneer ik de macro wil uitvoeren op 2 getallen zoals ik de code op 8000 Or 9000 heb geplaatst reageert hij niet meer ?
weet iemand wat ik verkeerd doe?
alvast bedankt

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$13" Or Target = "" Then Exit Sub
     Application.EnableEvents = False
          If Range("d13") = 8000 Or 9000 Then
        MsgBox "Code ok!", vbOKOnly
        
        Else
            Range("d13").Value = "125"
             Range("d13").Select
            MsgBox "Code niet ok!", vbOKOnly
          End If
    Application.EnableEvents = True
 
End Sub

 

[HSV]

Het voorbeeld staat op regel 2 in de code.

 

[VenA]

In een vergelijking zal je altijd moeten herhalen wat je met elkaar vergelijkt. Het basisprincipe van een een AND of OR operand is toch =Or(a1=1,a1=2)

 

[Haije]

wat gebeurt er als je van

If Range("d13") = 8000 Or 9000 Then

If Range("d13") = 8000 Or Range("d13") = 9000 Then

maakt?

 

[ginogcsbelgie]

exell probleem formule tijd weergeven in cel na ingave in ander cel

Bedankt haije
probleem opgelost en werkt perfect nu
hartelijk dank voor de hulp