• 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.

ComboBox

Status
Niet open voor verdere reacties.
Jack Nouws

Jack Nouws

Terugkerende gebruiker
Lid geworden
16 apr 2008
Berichten
1.396
Hallo

Ik heb in VBA een Form met Combobox gemaakt (Achter drukknop Verwijderen).
Wanneer deze wordt geactiveerd wordt m'n combobox maar gedeeltelijk geladen.
Zou iemand zo vrij willen zijn om die code een keer even na te lopen.

Met vr gr.
Jack
 

Bijlagen

Jack Nouws zei:
Hallo

Ik heb in VBA een Form met Combobox gemaakt (Achter drukknop Verwijderen).
Wanneer deze wordt geactiveerd wordt m'n combobox maar gedeeltelijk geladen.
Zou iemand zo vrij willen zijn om die code een keer even na te lopen.

Met vr gr.
Jack
Klik om te vergroten...

Je zet bovenaan vul_combobox3 de waarde van Rij op 17.
Vanaf die waarde ga je de combobox vullen. Je vult uitsluitend de regels vanaf 17 zodat de regels daarboven niet meegenomen worden.

Met vriendelijke groet,


Roncancio
 
Waar je mee bezig bent staat hier al voor je klaar.
Gebruik additem niet om een combobox of listbox te vullen (veel te merkbaar traag). Doe dat met .Rowsource of met de .list

Bijv. combobox1.Rowsource="$A$1:$K$10"
of
sq=range("A1:K10")
combobox1.list=sq
 
snb zei:
Waar je mee bezig bent staat hier al voor je klaar.
Gebruik additem niet om een combobox of listbox te vullen (veel te merkbaar traag). Doe dat met .Rowsource of met de .list

Bijv. combobox1.Rowsource="$A$1:$K$10"
of
sq=range("A1:K10")
combobox1.list=sq
Klik om te vergroten...

Zou je mijn prog willen nakijken zodat dat ie super soepel loopt. Ik heb het wel werkend gekregen maar ik zou graag hebben dat er nog eens extra naar gekeken werd omdat ik toch nog wel twijfel aan sommige stukken. Je kent het wel, het is net een toren bouwen maar de bouten zijn nog niet aangedraaid!

Groetjes Jack
 
Roncancio zei:
Je zet bovenaan vul_combobox3 de waarde van Rij op 17.
Vanaf die waarde ga je de combobox vullen. Je vult uitsluitend de regels vanaf 17 zodat de regels daarboven niet meegenomen worden.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
Ik had het zelf ook al opgemerkt het werkt inmiddels naar behoren
nog tijd en zin om de boel te Checken?


Groetjes Jack
 
Je kan onder andere dit ...
Code: 
Sub vul_combobox3()
Dim Rij As Integer
    Rij = 17
   verwijderklant.zoeknaam.Clear
    While Worksheets("Leveranciers").Cells(Rij, "C") <> ""
        If Worksheets("Leveranciers").Range(Rij & ":" & Rij).EntireRow.Hidden = False Then
            With verwijderklant.zoeknaam
                .AddItem Worksheets("Leveranciers").Cells(Rij, "D") '& "," & Space(1) & Worksheets("Leverancier").Cells(Rij, "J") & Space(1) & Worksheets("Leveranciers").Cells(Rij, "M")
            End With
        End If
        Rij = Rij + 1
    Wend
End Sub
... vervangen door:
Code: 
Sub vul_combobox3()
verwijderklant.zoeknaam.RowSource = "Leveranciers!D4:D" & Sheets("leveranciers").Range("D65536").End(xlUp).Row
   
End Sub

Je hoeft geen Run te gebruiken om een macro te starten.
vul_combobox3 werkt bijvoorbeeld ook.

Met vriendelijke groet,


Roncancio
 
Laatst bewerkt:
Roncancio zei:
Je kan onder andere dit ...
Code: 
Sub vul_combobox3()
Dim Rij As Integer
    Rij = 17
   verwijderklant.zoeknaam.Clear
    While Worksheets("Leveranciers").Cells(Rij, "C") <> ""
        If Worksheets("Leveranciers").Range(Rij & ":" & Rij).EntireRow.Hidden = False Then
            With verwijderklant.zoeknaam
                .AddItem Worksheets("Leveranciers").Cells(Rij, "D") '& "," & Space(1) & Worksheets("Leverancier").Cells(Rij, "J") & Space(1) & Worksheets("Leveranciers").Cells(Rij, "M")
            End With
        End If
        Rij = Rij + 1
    Wend
End Sub
... vervangen door:
Code: 
Sub vul_combobox3()
verwijderklant.zoeknaam.RowSource = "Leveranciers!D4:D" & Sheets("leveranciers").Range("D65536").End(xlUp).Row
   
End Sub

Je hoeft geen Run te gebruiken om een macro te starten.
vul_combobox3 werkt bijvoorbeeld ook.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Te checken bestand

met vr gr
Jack
 

Bijlagen

Kan je iets specifieker zijn over je vraag?
Om alle codes door te nemen en aan te passen, gaat al gauw veel tijd zitten.
En die tijd heb ik eerlijk gezegd niet.
Als je gerichter aangeeft wat je wilt, kunnen mensen daar beter anticiperen en heb je dus meer kans op succes.

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Om alle codes door te nemen en aan te passen, gaat al gauw veel tijd zitten. En die tijd heb ik eerlijk gezegd niet.
Klik om te vergroten...

Als ik eerlijk ben en mag zijn, ik ook niet.

Niet alleen de tijd niet hebben, ook niet willen. Ik spendeer liever tijd aan problemen die nog niet opgelost zijn, dan opgeloste problemen die moeten nagekeken worden op waar het nog beter kan.

Mocht ik onbeperkte tijd hebben, ik was er al aan begonnen ;)

Wigi
 
Roncancio zei:
Kan je iets specifieker zijn over je vraag?
Om alle codes door te nemen en aan te passen, gaat al gauw veel tijd zitten.
En die tijd heb ik eerlijk gezegd niet.
Als je gerichter aangeeft wat je wilt, kunnen mensen daar beter anticiperen en heb je dus meer kans op succes.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Bij de CmdVerwijderen worden wel de gegevens verwijderd maar niet de regel. Dit is het enige wat eventueel in mijn ogen nog beter zou kunnen, maar ik weet alleen niet hoe?

met vr gr
Jack
 
Jack Nouws zei:
Bij de CmdVerwijderen worden wel de gegevens verwijderd maar niet de regel. Dit is het enige wat eventueel in mijn ogen nog beter zou kunnen, maar ik weet alleen niet hoe?

met vr gr
Jack
Klik om te vergroten...

Dat komt omdat je gebruik maakt van ClearContents dat uitsluitend de inhoud verwijderd.
Als je Delete gebruikt, wordt de gehele regel verwijderd.

Met vriendelijke groet,


Roncancio
 
Roncancio zei:
Dat komt omdat je gebruik maakt van ClearContents dat uitsluitend de inhoud verwijderd.
Als je Delete gebruikt, wordt de gehele regel verwijderd.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...

Code: 
Private Sub zoeknaam_Change()
Dim MyRange             As Variant
Dim c                   As Range
Dim i                   As Long

Set MyRange = Worksheets("Leveranciers")

'tegen flikkeren van beeldscherm
Application.ScreenUpdating = False


If zoeknaam = Empty Then
    MsgBox "Kies een Leverancier en druk op de zoek knop!!!"
    Exit Sub
Else
i = InStr(zoeknaam, ", ")
stZoekenRechts = Right(zoeknaam, Len(zoeknaam) - InStr(i + 2, zoeknaam, " "))

          With MyRange.Range("D:D")
       [COLOR="Red"] Set c = .Find(stZoekenRechts)[/COLOR]
        If Not c Is Nothing Then
              
                txtBedrijfsnaam.Text = MyRange.Range("C" & c.Row)
                        txtNaam.Text = MyRange.Range("D" & c.Row)
        End If
   End With
End If


'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True

End Sub


Hoe komt het dat dit stukje vast loopt

Met vr gr
Jack
 
Wigi zei:
Wat zit er in stZoekenRechts op dat moment?
Klik om te vergroten...

Tja da's een goeie, ik begrijp dit stukje formule ook niet zo goed.:o
Zou je dit stukje nader kunnen toelichten voor me?
met vr gr Jack
 
Ga met F8 stap voor stap door de code, dan weet je wat er in de variabelen zif (wijs een variabele aan met de muis).

Gebruik MsgBox en Debug.Print om extra tests te doen, dan moet je er wel uit geraken.

Wigi
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan