pasan
Terugkerende gebruiker
- Lid geworden
- 6 nov 2010
- Berichten
- 1.110
hallo allemaal.
ik heb een probleem die ik met hulp van jullie hoop op te lossen.
ik heb 3 comboboxen en 20 sheets
ik had alle info op 1 sheet staan die vervolgens selecteerbaar waren in de 3 combo`s
om nu die info een beetje overzichtelijker te maken heb ik elke onderwerp lees row,
in een eigen sheet geplaatst. leek mij handiger om later te kunnen aanvullen.
Maar hoe krijg ik die nieuwe Sheets nu in die combos
deze code staat er nu, heb ik het goed als ik denk dat hier het probleem in zit?
Private Sub UserForm_Initialize()
Dim cPart As Range
Dim ws As Worksheet
Set ws = Worksheets("machine")
For Each cPart In ws.Range("PartIDList")
With Me.cboSectie
.AddItem cPart.Value
End With
Next cPart
Me.txttime.Value = Format(Time, "General Date")
Me.cboSectie.SetFocus
End Sub
in combo1 kan ik een keuze maken uit een puldown lijst afhankelijk wat ik daar kies komt er een bijbehorende lijst in combo2 enz.
dit werkte wel zolang alle data op 1 sheet staan
als ik die data verspreid op andere sheets kan ik die sheets niet meer oproepen met de volgende code
Private Sub cboSectie_Change()
Sheets("machine").Select
de keuze "machine" kan ik wel veranderen in de naam van een ander blad maar dan komt er geen lijst in beeld in combo2
met vriendelijke groeten
Pasan
ik heb een probleem die ik met hulp van jullie hoop op te lossen.
ik heb 3 comboboxen en 20 sheets
ik had alle info op 1 sheet staan die vervolgens selecteerbaar waren in de 3 combo`s
om nu die info een beetje overzichtelijker te maken heb ik elke onderwerp lees row,
in een eigen sheet geplaatst. leek mij handiger om later te kunnen aanvullen.
Maar hoe krijg ik die nieuwe Sheets nu in die combos
deze code staat er nu, heb ik het goed als ik denk dat hier het probleem in zit?
Private Sub UserForm_Initialize()
Dim cPart As Range
Dim ws As Worksheet
Set ws = Worksheets("machine")
For Each cPart In ws.Range("PartIDList")
With Me.cboSectie
.AddItem cPart.Value
End With
Next cPart
Me.txttime.Value = Format(Time, "General Date")
Me.cboSectie.SetFocus
End Sub
in combo1 kan ik een keuze maken uit een puldown lijst afhankelijk wat ik daar kies komt er een bijbehorende lijst in combo2 enz.
dit werkte wel zolang alle data op 1 sheet staan
als ik die data verspreid op andere sheets kan ik die sheets niet meer oproepen met de volgende code
Private Sub cboSectie_Change()
Sheets("machine").Select
de keuze "machine" kan ik wel veranderen in de naam van een ander blad maar dan komt er geen lijst in beeld in combo2
met vriendelijke groeten
Pasan
Laatst bewerkt: