combobox werkt niet goed.

[phille0125]

beste. ik ben nieuw op dit forum en heb hier een code gevonden voor een combobox te vullen met gegeven uit een sheet. deze combobox word in een userform gebruikt. hier de code:
Private Sub UserForm_Initialize()
Dim r As Range
Dim laatsteregel As Long

laatsteregel = Sheets("klanten").Range("B65536").End(xlUp).Row

For Each r In Sheets("klanten").Range("B3:B" & laatsteregel)
If r <> "" Then
Combobox1.AddItem r.Value
End If
Next

End Sub

de code vult mijn combobox goed, maar als ik de checkbox met factuur invul en op ok druk zegt hij dat hij de klant niet vind.
aan wat kan dit liggen?
een klanten nummer ziet al alst volgt uit: PHI001
(het is een programma om facturen, offertes en werkbonnen te maken voor een bedrij)

hopelijk kunnnen jullie mij helpen, want zit hier al een tijdje op te sukkelen

Mvg
Phille

 

[Wigi]

Het is mij niet duidelijk. Welke code zit er achter de checkbox?

 

[phille0125]

Private Sub UserForm_Initialize() 'only once
Dim r As Range
Dim laatsteregel As Long

laatsteregel = Sheets("klanten").Range("B65536").End(xlUp).Row

For Each r In Sheets("klanten").Range("B3:B" & laatsteregel)
If r <> "" Then
Combobox1.AddItem r.Value
End If
Next

End Sub

 

[Wigi]

Voeg maar een simpel voorbeeldbestandje bij, want ik begrijp nog steeds de bedoeling niet.

 

[phille0125]

heb er 2 bestanden bij gestoken.
GDGgegevens staan de gegevens (zonder userform)
GDGfacturatie is het bestand dat je nodig hebt (werkt niet zonder GDGgegevens).

 

[Wigi]

Philippe

Ik heb meer dan een degelijke poging ondernomen, maar:

- dit is veel te onduidelijk om voor een leek (mbt. dat bestand, niet mbt. Excel en VBA) begrijpbaar te zijn

- het lijkt wel of jij jezelf verplicht om telkens een lus te gebruiken, overal en altijd. Lees dan deze pagina eens door. De tijdswinst gaat enorm zijn.

- Je hoeft normaal gezien niet te selecteren. Dus

Range("A1").Select
Selection.Font.Bold = True

kan veel beter als

Range("A1").Font.Bold = True

- dat van die listbox heb ik dus niet gesnapt. Je verwijst constant door naar andere procedures, waardoor het overzicht totaal weg is voor iemand die die bestand voor de eerste keer ziet.

- bekijk in detail alle wijzigingen die ik in de code aangebracht heb. Zie bijlage.

Wigi

 

[phille0125]

Wigi

hartelijk bedankt voor het nazicht en de update.
ik heb het programma zelf niet geschreven. wij hebben dit laten maken door een buurman.

nogmaals bedankt.

Philippe