Error melding bij verkeerd selecteren

[Sumpie]

Ok dus ik heb nu 2 dropdownmenutjes gemaakt

1 met machines/afwerking
en een andere met de machines en de machines van de afwerking dus als je machines selecteert kun je de machines kiezen en afwerking pakt genereert hij de afwerking gegevens,

Maar nu is dus mijn vraag of het mogelijk is om er een soort beveiliging op te zetten

want als je bv machines pakt en je pakt een machine
en dan verander je machines naar afwerkign dan blijft de machine die je in het begin hebt geslecteerd wel gewoon staan:
een voorbeeld:

Machines Drukpers
Afwerking Drukpers

Dus drukpers blijft gewoon staan terwijl ik hier een bevieliging op wil hebben dus als je dan afwerking kiest Drukpers weggaat en het vak leeg wordt.

 

[Hoornvan]

Doe een voorbeeldje zonder gevoelige info, ik denk dat het dan duidelijker is.

 

[popipipo]

Ik begrijp echt niets van je verhaal over machines en afwerking.

Plaats eens een .XLS bestandje zonder gevoelige informatie.
Dat zegt meer dan 1000 woorden

 

[snb]

stel de combobox machines heet cboMachine
stel de combobox afwerking heet cboAfwerking

zet dan in de gebeurtenis Change de volgende code

Private Sub cboAfwerking_Change()
  if cboAfwerking.Listindex>-1 then cboMachine.Listindex=-1
End Sub

 

[Sumpie]

Zoals je kunt zien Heb ik bij

AFWDELING MACHINES WERKNEMER

een dropdown menutje

Bij afdeling kun je dus kieze welke machine je nodig hebt dus Machines of afwerk
En bij machines kan je dus de machines kiezen
DUs als je machines aanklikt kun je kiezen uit: Indigo's en bij afwerk uit machine 1,2,3 etc.
Machines Afwerk
Indigo machine 1
indigo 2 machine 2
indigo 3 machine 3
Vergaarstraat

Ik heb hem nu al verkeerd gezet want als je eerst machine kiest en ik heb dan gekozen voor indigo 1

Kan je de soort terug veranderen naar Afwerk terwijl indigo 1 blijft staan
Dit wil ik dus veranderd hebben dus dat Indigo 1 weg gaat.

En ik vroeg me af of als ik de soort machine etc heb geselecteerd ik ook mijn lijstje van namen kaan aanpassen op de keuze

Alvast heel erg bedankt als je me kan helpen


SNB waar vind ik die gebeurtenis change van je?

 

[Sumpie]

De 3 boxxen samen laten werken lukt nu

ik moet alleen de foutmelding nog....

 

[Sumpie]

Kan niemand me helpen? Of bestaat zoiets niet?

 

[popipipo]

Zoals je de machines aan de afdeling hebt gekoppeld via 'datavalidatie en indirect', moet je ook de namen koppelen aan de machines.

 

[Sumpie]

Dat heb ik nu ook
maar das mijn vraag niet

Mijn vraag is of ik een error erop kan zetten als je van machines weer naar afwerking gaat terwijl de machine van machines in het andere rijtje staat

 

[Warme bakkertje]

Waarom gebruikers lastig vallen met foutmeldingen ? Wis gewoon de twee naastliggende cellen als je wijzigt van machine naar afwerking of vice versa.

 

[Sumpie]

Zoiets wil ik ook maar hoe kan dat automatisch?

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = 3 And Target.Value = "" Then
        Target.Resize(, 3).ClearContents
    End If
End Sub

 

[Sumpie]

En waar moet ik dit invoeren?

 

[Warme bakkertje]

Rechtsklik op tab v/h blad waar je tabel op staat >> Selecteer Programmacode weergeven >> Plak de code alhier

 

[Sumpie]

Hij doet het niet.

Kun je misschien het script beetje uitleggen dan kan ik em miss zelf aanpassen

 

[Warme bakkertje]

Zie bijlage

 

[Sumpie]

Zie bijlage

:thumb:
Dankjewel, Heb de code ontcijfert

Offset is begin en resize is de lengte van aantal cellen toch? XD

Dus offset is 1 is dus dat ie begint bij de volgende cell en resize 4 is dat ie ook de volgende 4 cellen leeg maakt

anyway hartelijk bedankt :thumb: