martindeboer1988
Gebruiker
- Lid geworden
- 5 nov 2016
- Berichten
- 93
Beste leden,
Op dit forum vond ik toevallig een bestandje met zoekveld wat ik ook graag zou willen invoegen in mijn sheet.
Alleen krijg ik het niet voor elkaar zoals ik het wil kan iemand voor mij verduidelijken waar ik de fout in ga?
Ik heb in Sheet1 een lijst met waardes waarvan ik in Sheet2 waar het zoekveld staat de resultaten wil zien.
Op dit forum vond ik toevallig een bestandje met zoekveld wat ik ook graag zou willen invoegen in mijn sheet.
Alleen krijg ik het niet voor elkaar zoals ik het wil kan iemand voor mij verduidelijken waar ik de fout in ga?
Ik heb in Sheet1 een lijst met waardes waarvan ik in Sheet2 waar het zoekveld staat de resultaten wil zien.
Code:
Private Sub TextBox1_Change()
rij = 8
If TextBox1 = "" Then Sheets(2).Range("C7:E12").ClearContents
If Len(TextBox1) > 3 Then
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Sheet1" And sh.Name <> "Sheet2" Then
With sh.Cells
Set c = .Cells.Find(TextBox1.Value)
If Not c Is Nothing Then
Sheets(2).Cells(rij, 4) = c
Sheets(2).Cells(rij, 5) = c.Offset(, -5)
Sheets(2).Cells(rij, 6) = c.Offset(, -3)
c = "": rij = rij + 1
End If
End With
End If
Next
End If
End Sub