Thank you
I had planned to fix it myself, I just needed a little guidance which you provided. It took a little head scratching to decipher some of what you posted and a little help from the VBA editor...but I got it to work. So again, thank you. Posting the final version here for anyone who might be looking for it.
Sub SearchForString()
Dim LSearchRow As Integer
Dim LCopyToRow As Integer
On Error GoTo Err_Execute
'Start search in row 3
LSearchRow = 3
'Start copying data to row 3 in "End" Sheet (row counter variable)
LCopyToRow = 3
While Len(Range("B" & CStr(LSearchRow)).Value) > 0
'If value in column K = TRUE, copy entire row to "End" Sheet
If Range("K" & CStr(LSearchRow)).Value = True Then
'Select row in "Start" to copy
Range("B" & CStr(LSearchRow) & ":I" & CStr(LSearchRow)).Copy
'Paste row into "End" in next row
Sheets("End").Select
Range("A" & CStr(LCopyToRow)).PasteSpecial
'Move counter to next row
LCopyToRow = LCopyToRow + 1
'Go back to "Start" to continue searching
Sheets("Start").Select
End If
LSearchRow = LSearchRow + 1
Wend
'Position on cell A3
Application.CutCopyMode = False
Range("A3").Select
MsgBox "All matching data has been copied."
Exit Sub
Err_Execute:
MsgBox "An error occurred."
End Sub
|