• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

dropdownmenu

Status
Niet open voor verdere reacties.

hoono60

Nieuwe gebruiker
Lid geworden
14 jan 2018
Berichten
3
goede dag,

is er een mogelijkheid dat het workbook niet gesaved kan worden als dropdown niet is ingevuld,
in mijn sheet is dat kolom D en H

hoe plaats ik het bestand in dit forum
 
Laatst bewerkt:
hoono,

welkom op Helpmij.nl!

Het is een goede gewoonte om een vraag te illustreren d.m.v. een (voorbeeld) Excelbestand(je).
 
Maak een (waarheidsgetrouw) voorbeeldbestandje en sla dat op. Reageer op dit bericht en in het veld dat zich dan opent zie je bovenin de menubalk een paperclip. Klik die aan, zoek via 'toevoegen --> bladeren' je bestand op en upload het. Vervolgens klik je op 'voer in' en daarna op 'gereed'. Plaats je bericht en klaar is Kees
 
Laatst bewerkt:
sheet

exceltoegevoegd
 

Bijlagen

  • testrecoat.xlsx
    27,4 KB · Weergaven: 33
En nu nog even uitleggen wat er moet gebeuren. In kolom D is geen enkele validatie ingevuld en in kolom H zijn er 2 ingevuld waarvan ik de laatste niet begrijp.

@JanBG, Kan je even het onzinbestand weghalen? De uitleg was voldoende.;)
 
Laatst bewerkt:
keuze

als ordernummer wordt ingevuld dient men omvang uit dropdown selecteren, en laatste moet verplicht zijn
 
@JanBG, Kan je even het onzinbestand weghalen? De uitleg was voldoende.;)[/QUOTE]

Al gebeurd VenA. ;)
 
Ik probeer maar wat.
In de ThisWorkbook-module
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With Sheets("Recoat")
        If Application.Count(.Range("A5:A10000")) > Application.CountA(.Range("D5:D10000")) - 1 Or _
            Application.Count(.Range("E5:E10000")) > Application.CountA(.Range("H5:H10000")) - 1 Then
                Cancel = True
                MsgBox "nope"
        End If
    End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan