knop koppelen op werkblad aan formulier

[DarkEaston]

Hoi,

Ik probeer een knop toe te voegen zodat deze gekoppeld wordt aan een formulier (userform). Echter krijg ik steeds een foutmelding.

'Fout 1004 tijdens uitvoering

Methode Range van object_Worksheet is mislukt'

Wat gaat er verkeerd?

 

[ExcelAmateur]

DarkEaston,

Zet je bestandje even hier, want dit is voor mij onduidelijk.

 

[DarkEaston]

Hij is nog niet af. Ik ben hem nog aan het inrichten

 

[ExcelAmateur]

Het foutje zit in dit stukje code.
Heb het even uitgeschakeld op de knop geklikt en het formulier kwam voor de dag.

For Each cPlaats In ws.Range("Plaatslijst")
  With Me.cboPlaats
    .AddItem cPlaats.Value
  End With
Next cPlaats

 

[ExcelAmateur]

Nog even gekeken en zag dat je was vergeten om de de paatsnamen te benoemen (Plaatslijst)
De naam even aangemaakt en het werkt dan wel goed.

 

[DarkEaston]

Kun je het bestand uploaden want bij mij doet die het niet?

 

[ExcelAmateur]

Hier het gevraagde.

 

[DarkEaston]

Dank u zeer

 

[ExcelAmateur]

DarkEaston ,

Ik heb nog even gezocht voor je naar hoe vul ik een ComboBox.
Kijk hier voor de code van "snb" die schut het zo uit de mouw.

Ik heb dit in je code even toegepast en het werkt perfect, scheelt een hoop schrijfwerk.
Dit staat bij Userform Initialize

cboStraatnaam.List = Sheets("Opzoeklijsten").Columns(3).SpecialCells(2).Offset(1).SpecialCells(2).Value

Je heb dus alleen een regel nodig, onderstaande code kun je dus weg laten.

'For Each cStraatnaam In ws.Range("Straatnaamlijst") 
  'With Me.cboStraatnaam
    '.AddItem cStraatnaam.Value
  'End With
'Next cStraatnaam

Ik heb de aangepaste file erbij gedaan.

 

[DarkEaston]

Dank u zeer.

De opzet van het formulier is gereed. Echter wil ik nog een aantal dingen beveiligen. Het valt mij op dat je de dropdown-menu kunt omzeilen door in de tekstvakken te gaan typen. Ik wil dat de gebruikers alleen uit de vervolgmenu's kunnen kiezen.

Daarnaast wil ik eigenlijk dat het formulier meteen verschijnt bij het openen van het excel-bestand.

Dit moet ik nog uitpuzzelen.

 

[ExcelAmateur]

Om het formulier direct laten verschijnen moet je de code in ThisWorkbook plaatsen bij open.
Kijk eens bij de eigenschappen van de combobox of je het daar kunt instellen. (Niet inschrijven)

Of gebruik de zoekmachine "zoeken in dit forum" daar kun je ook veel code vinden.

Suc6

Nog even gezocht en vond dit.
Je moet dit zetten in de style propertie van de combobox.

 

[DarkEaston]

Welke combobox bedoel je?

Bedoel je niet 'frmPOSignalen"?

Ik kan het niet vinden.

 

[ExcelAmateur]

Als je iedere ComboBox wil beveiligen tegen schrijven, doe dan het volgende.
Selecteer een ComboBox als je in de Editor zit en ga naar eigenschappen / Style (rechts) kies 2-FrmStyleDropdownlist.
Nu kun je niet meer schrijven in die ComboBox.

Of bedoel je wat anders?

 

[DarkEaston]

Ja dat was wat ik zocht. Dank u zeer.

Daarnaast wil ik ook
- dat het formulier verschijnt als ik het excel-bestand open,
- en een afhankelijke keuzelijst erin verwerken. Dus als ik bij combobox 1 keuze a maak dat bij combobox 2 de keuzes 1, 2 en 3 overblijven. In een excel-blad weet ik wel hoe dat gaat maar dat werkt hier niet.

 

[ExcelAmateur]

Zet dit in ThisWorkbook.

Private Sub Workbook_Open()
  frmPOSignalen.Show
End Sub

Als je file opstart komt het Formulier gelijk voor de dag.

Voor het andere moet je maar even zoeken met "Doorzoek dit Forum" dat staat rechtsboven bij de vragen.
Je zal best wel iets tegen komen met de juiste code daarvoor.

Suc6

 

[DarkEaston]

Ok, ik zal het forum doorzoeken voor mijn tweede vraag.

De code voor het openen van het formulier bij het opstarten van het excel-bestand werkt niet. Hij geeft aan compilatiefout.

Edit: het werkt nu wel

 

[ExcelAmateur]

Hier bij mij werkt het wel, doe de file erbij.

 

[DarkEaston]

Er zit hier een fout ergens in. Als je een formulier invult maar je laat een veld leeg dan geeft die aan dat niet alle velden ingevuld zijn. Echter plaatst hij de melding wel in de database.

Bekijk bijlage formulier signaleringslijst v0 test 2.xlsm

 

[Spiesse]

'kopieer de gegevens naar de database
With ws
  .Cells(lRow, 1).Value = Me.cboComplexnummer.Value
  .Cells(lRow, 2).Value = Me.cboStraatnaam.Value
  .Cells(lRow, 3).Value = Me.txtHuisnummerreeks.Value
  .Cells(lRow, 4).Value = Me.cboPlaats.Value
  .Cells(lRow, 5).Value = Me.cboTypeSignalering.Value
  .Cells(lRow, 6).Value = Me.cboUrgentie.Value
  .Cells(lRow, 7).Value = Me.txtOmschrijvingSignaal.Value
  .Cells(lRow, 8).Value = Me.txtOpmerkingen.Value
  .Cells(lRow, 9).Value = Me.DTPicker1.Value

End With

dit deel moet voor onderstaand deel van de code komen te staan en dan wordt de registratie maar éénmalig uitgevoerd nadat alle velden ingevuld zijn...

'verwijder de gegevens
Me.cboComplexnummer.Value = ""
Me.cboStraatnaam.Value = ""
Me.txtHuisnummerreeks.Value = ""
Me.cboPlaats.Value = ""
Me.cboTypeSignalering.Value = ""
Me.cboUrgentie.Value = ""
Me.txtOmschrijvingSignaal.Value = ""
Me.txtOpmerkingen.Value = ""
Me.cboComplexnummer.SetFocus

End Sub

 

[DarkEaston]

Kun je het bestand hier plaatsen want bij mij doet die het niet?