Offthefield
Gebruiker
- Lid geworden
- 27 apr 2005
- Berichten
- 369
Ik heb een programma met 50 offerte (voorbeeld 3 stuks), die per tabblad ingevoerd zijn,
nu wil ik vanuit de combobox naar een bepaald tabblad, in dit geval gaat het goed,
maar met 50 stuks of meer, is dit een hoop invoerwerk en wordt het onoverzichtelijk
1. Is er een manier dat de Additem en Sheet("xxx") <in de Case macro> direct het tabblad aangeeft
2. ListBox1.RowSource ook automatisch de gegevens van de opgevraagde sheet geeft, zonder dat je
50x bij Naam beheren de velden moet benoemen
Ik hoop dat iemand een idee heeft, alvast hartelijk dank
nu wil ik vanuit de combobox naar een bepaald tabblad, in dit geval gaat het goed,
maar met 50 stuks of meer, is dit een hoop invoerwerk en wordt het onoverzichtelijk
1. Is er een manier dat de Additem en Sheet("xxx") <in de Case macro> direct het tabblad aangeeft
2. ListBox1.RowSource ook automatisch de gegevens van de opgevraagde sheet geeft, zonder dat je
50x bij Naam beheren de velden moet benoemen
Ik hoop dat iemand een idee heeft, alvast hartelijk dank
Code:
With cmbOfferte
.AddItem "T-19042018"
.AddItem "E-19042018"
.AddItem "A-17042018"
.Text = .List(0)
End With
Code:
Select Case cmbOfferte.ListIndex
Case 0
Sheets("T-19042018").Select
ListBox1.RowSource = "T19042018"
cmbOfferte.SetFocus
Case 1
Sheets("E-19042018").Select
ListBox1.RowSource = "E19042018"
cmbOfferte.SetFocus
Case 2
Sheets("A-17042018").Select
ListBox1.RowSource = "A17042018"
cmbOfferte.SetFocus
End Select