Hallo iedereen
In volgende code zit een foutje, maar ik kijk erover
IK voeg het excel bestandje toe als bijlage.
Maar het probleem is dat als ik de naam dirk invul (knop filter in Sheet 1) ik normaal 5 x dirk zou moeten hebben in sheet 2, en krijg er maar twee, ik kan de fout niet echt vinden.
Alle hulp is welkom
Greetz
In volgende code zit een foutje, maar ik kijk erover
Code:
Sub SearchForString()
Dim LSearchRow As Integer
Dim LCopyToRow As Integer
Dim LSearchValue As String
On Error GoTo Err_Execute
LSearchValue = InputBox("Vul de naam van de technieker in:", "Technieker")
'Start search in row 4
LSearchRow = 6
'Start copying data to row 2 in Sheet2 (row counter variable)
LCopyToRow = 2
While Len(Range("A" & CStr(LSearchRow)).Value) > 0
'If value in column E = LSearchValue, copy entire row to Sheet2
If Range("F" & CStr(LSearchRow)).Value = LSearchValue Then
'Select row in Sheet1 to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy
'Paste row into Sheet2 in next row
Sheets("Sheet2").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste
'Move counter to next row
LCopyToRow = LCopyToRow + 1
'Go back to Sheet1 to continue searching
Sheets("Sheet1").Select
End If
LSearchRow = LSearchRow + 1
Wend
'Position on cell A3
Application.CutCopyMode = False
Range("A3").Select
MsgBox "Filtering is compleet."
Exit Sub
Err_Execute:
MsgBox "Oops, iets is fout."
End Sub
Maar het probleem is dat als ik de naam dirk invul (knop filter in Sheet 1) ik normaal 5 x dirk zou moeten hebben in sheet 2, en krijg er maar twee, ik kan de fout niet echt vinden.
Alle hulp is welkom
Greetz