HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Code:
'___________________ZOEKEN OP DEBITEURENNUMMER_____________________________
Private Sub TextBox2_Change()
On Error Resume Next
If TextBox2 = "" Then
TextBox2.BackColor = 16777215
Else
TextBox2.BackColor = 15128749 'licht blauw
End If
ListBox1.BackColor = 15128749
Dim shtSearch As Worksheet
ListBox1.Clear
Set shtSearch = Sheets("Adressen")
Locate TextBox2.Text, shtSearch.Range("A2:A50000")
If ListBox1.ListCount = 0 Then
ListBox1.AddItem "Geen resultaten gevonden in Adressen"
ListBox1.List(0, 1) = ""
ListBox1.List(0, 2) = ""
ListBox1.List(0, 3) = ""
End If
End Sub
'___________________ZOEKEN OP leverancier_____________________________
Sub Locate1(Name As String, Data As Range)
On Error Resume Next
Dim rngFind1 As Range
Dim strFirstFind1 As String
Me.ListBox1.ColumnWidths = "100;1;150;120"
With Data
Set rngFind1 = .Find(Name, LookIn:=xlValues, LookAt:=xlPart)
If Not rngFind1 Is Nothing Then
strFirstFind1 = rngFind1.Address
Do
If rngFind1.Row > 1 Then
ListBox1.AddItem rngFind1.Value
ListBox1.List(ListBox1.ListCount - 1, 0) = rngFind1.Columns(0) 'ARTIKELNUMMER
ListBox1.List(ListBox1.ListCount - 1, 2) = rngFind1.Columns(1) 'OMSCHRIJVING
ListBox1.List(ListBox1.ListCount - 1, 3) = rngFind1.Columns(2) 'VERPAKT PER
End If
Set rngFind1 = .FindNext(rngFind1)
Loop While Not rngFind1 Is Nothing And rngFind1.Address <> strFirstFind1
End If
End With
End Sub
Deze code gebruik ik in mijn bestand, zie bijlage om een listbox te vullen.
Nu zou ik eigenlijk alleen de lege cellen willen zien in d elistbox vanuit kolom F.
Op deze manier is het bestand sneller, en overbodige regels krijg ik niet meer te zien, aangezien hier al een nummer aan is gegeven.
Ik krijg deze case niet zelf opgelost, vandaar mijn beroep op jullie kennis
Groet Henk
Bijlagen
Laatst bewerkt: