Als dan functie

[rcmb]

Ik heb een spreadsheet met een aantal lijsten waarvan ik graag zou willen dat( omdat uitzonderingen maar slechts weinig voorkomen) er een standaardwaarde komt te staan zodra ik een waarde transactie selecteer. Anders blijft de regel leeg.Bekijk bijlage test trans.xlsm

Als ik veld a30 kies voor transactie dat hij dan in veld c30 automatisch invult NEWT en in L30 NL. Dus als A30 is transactie dan C30 NEWT en C30 NL

 

[VenA]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A29:A36,H29:H36,J29:K36")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  Select Case Target.Column
    Case 1
      If Target = "Transactie" Then
        Target.Offset(, 2) = "NEWT"
        Target.Offset(, 11) = "NL"
      End If
    Case Else
      If Target <> "" Then Target = Cells(Range("F17:F23").Find(Target.Value).Row, 2)
   End Select
  Application.EnableEvents = True
End Sub

 

[rcmb]

Dank je, moet ik hem gewoon in de programmacode toevoegen in de worksheet. Hij werkt niet bij mij.

Het gaat dus niet met voorwaardelijke opmaak?

 

[VenA]

Mij lijk het dat je de bestaande code moet vervangen door de nieuwe.

 

[rcmb]

Ik heb de andere code eruit gehaald en vervangen met de nieuwe maar er gebeurt niets. maar werkt de andere code natuurlijk ook niet meer.Bekijk bijlage test trans (1).xlsm

 

[HSV]

Als je de validatie hebt weggehaald, moet je 'transactie' wel zo schrijven als in de code.

If Target = "Transactie"

anders gebruik je..

If lcase(Target) = "transactie"

 

[rcmb]

Beste Harry, dat is een goede, hij moet namelijk in hoofdletters. Ik heb het aangepast

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("A29:A36,H29:H36,J29:K36")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  Select Case Target.Column
    Case 1
      If Target = "TRANSACTIE" Then
        Target.Offset(, 2) = "NEWT"
        Target.Offset(, 11) = "NL"
      End If
    Case Else
      If Target <> "" Then Target = Cells(Range("F17:F23").Find(Target.Value).Row, 2)
   End Select
  Application.EnableEvents = True
End Sub

Maar als ik in a30 transactie selecteer gebeurt er niets

 

[HSV]

In je laatst geplaatste bestand is je validatie weg in A30.
Klopt dat?,...zo niet staat het daar ook in hoofdletters geschreven?

 

[rcmb]

Bekijk bijlage test trans 2.xlsm

ja staat ook in hoofdletters

 

[HSV]

De validatie mis ik daar, maar maakt niet uit(excel versie verschil ws.).
Als je C30 op "CANC" zet, en je vult in A30 "TRANSACTIE" in werkt het toch prima?
C30 wordt hier "NEWT".

Of staat 'enableevents' op false?

sub t()
application.enableevents = true
end sub

 

[rcmb]

ik neem aan dat je een de laatste versie test trans 2 bedoeld. daar is volgens mij validatie aan. Heb a30 voor TRANSACTIE gekozen maar met de andere velden gebeurt niets.

 

[HSV]

 Target.Offset(, [COLOR=#ff0000]8[/COLOR]) = "NL"

 

[rcmb]

ok

 

[HSV]

Nee, dit zijn simpele codes die in elk versie werken.

Als je A30 veranderd in "TRANSACTIE" veranderd er niets?

Draai onderstaande code eens en probeer het opnieuw.

sub t()
application.enableevents = true
end sub

Nb.
L = kolom 12
Offset(,11) vanaf kolom A = kolom L

 

[rcmb]

nee er gebeurt niets, als ik transactie selecteer

 

[HSV]

Nee, niet aan de code prutsen, gewoon de onderste laten draaien, en opnieuw testen.

 

[rcmb]

ik ben niet zo'n expert maar als ik op programmacode weergeven klik. en vervolgens op het driehoekje sub-gebruikerformulier uitvoeren gaat er een macro t open. als ik dan op uitvoeren klik, sluit het macro formulier. Als ik vervolgens naat de sheet ga en a30 wil veranderen krijg ik een foutmelding 1004 tijdens runtime methode range van object_worksheet is mislukt. als ik vervolgens klik op de fout opsporen klik wordt de vetgedrukte regel geel.

 

[HSV]

[COLOR=#333333]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
[B][B]If Intersect(Target, Range("A29:A36,H29:H36,J29:K36")) Is Nothing Or Target.Count > 1 Then Exit Su[/B]b
Application.EnableEvents =[COLOR=#ff0000] False[/COLOR][/B]

 

[rcmb]

ik zal er morgen op de zaak nog wel even aan gaan werken, krijg nu allemaal foutmeldingen dus ben bang dat er iets in het geheugen zit. Ik begrijp dat het bij u wel werkt?
Hoewel ik niet van opgeven hou

 

[HSV]

Ik weet niet of er meer wensen zijn in de code, maar de code werkt.