Hallo daar,
ik ben al een tijdje bezig met het maken van een klein magazijn bestand waar we onze voorraad actueel bij kunnen houden en tevens items snel kunnen vinden.
Dankzij dit forum ben ik al een heel eind gekomen ondanks mijn minimale kennis van excel en VBA.
Mijn probleem:
Voor het zoeken heb ik een UserForm aangemaakt en voor iedere kolom waarin ik wil zoeken een textbox.
In princiepe werkt het prima maar, ik zou graag met 1 textbox in kolom 1 t/m 6 naar hetzelfde woord willen zoeken.
Op dit moment heb ik deze code:
Iemand die mij een duwtje in de goede richting wilt geven?
ik ben al een tijdje bezig met het maken van een klein magazijn bestand waar we onze voorraad actueel bij kunnen houden en tevens items snel kunnen vinden.
Dankzij dit forum ben ik al een heel eind gekomen ondanks mijn minimale kennis van excel en VBA.
Mijn probleem:
Voor het zoeken heb ik een UserForm aangemaakt en voor iedere kolom waarin ik wil zoeken een textbox.
In princiepe werkt het prima maar, ik zou graag met 1 textbox in kolom 1 t/m 6 naar hetzelfde woord willen zoeken.
Op dit moment heb ik deze code:
Code:
Private Sub Opdrachtknop1_Click()
With ActiveSheet
.AutoFilterMode = False
.Range("E7").AutoFilter
With .AutoFilter.Range
If TextBox1.Value <> "" Then
.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End If
If TextBox2.Value <> "" Then
.AutoFilter Field:=2, Criteria1:="*" & TextBox2.Value & "*"
End If
If TextBox3.Value <> "" Then
.AutoFilter Field:=3, Criteria1:="*" & TextBox3.Value & "*"
End If
If TextBox4.Value <> "" Then
.AutoFilter Field:=4, Criteria1:="*" & TextBox4.Value & "*"
End If
If TextBox5.Value <> "" Then
.AutoFilter Field:=5, Criteria1:="*" & TextBox5.Value & "*"
End If
If TextBox6.Value <> "" Then
.AutoFilter Field:=6, Criteria1:="*" & TextBox6.Value & "*"
End If
End With
End With
End Sub
Iemand die mij een duwtje in de goede richting wilt geven?