Cellen zoeken

[Mark_68]

Ik zou graag willen dat er naar specifieke tekst gezocht word in een kolom, en deze rij dan plaatst in de tekstvakken. Alleen krijg het niet voor elkaar om dit bij meerdere cellen met dezelfde tekst in de volgende rij tekstvakken te krijgen.
Het gaat hierbij om de userform zoeken

 

[AHulpje]

Zet alles in één werkblad en gebruik filter(s) 0f draaitabel, geen VBA nodig.

 

[AHulpje]

Zoiets dus:

 

[HSV]

In Jip en Janneke taal.

Private Sub cmdZoeken_Click()
Dim x As Long, y As Long, j As Long, txtb As Control
For Each txtb In Controls
 If InStr(txtb.Name, "txt") Then txtb = ""
Next txtb
With Sheets("Januari")
x = .Range("A" & Rows.Count).End(xlUp).Row
 For y = 2 To x
   If .Cells(y, 7).Value = ComboBox1.Text Then
    If j = 0 Then
      txtDag = .Cells(y, 1).Value
      txtMaand = .Cells(y, 3).Value
      txtDienst = .Cells(y, 5).Value
j = j + 1
    Else
      txtDag1 = .Cells(y, 1).Value
      txtMaand1 = .Cells(y, 3).Value
      txtDienst1 = .Cells(y, 5).Value
    End If
  End If
Next y
End With
End Sub

 

[AHulpje]

Uit nieuwsgierigheid en om van te leren, heeft

If InStr(txtb.Name, "txt") Then txtb = ""

voordelen boven

If TypeName(txtb) = "TextBox" Then txtb = ""

?

 

[HSV]

@AHulpje,
In Jip en Janneke taal.