View Single Post
 
Old 06-12-2015, 01:22 PM
BIMwit BIMwit is offline Windows 7 64bit Office 2013
Novice
 
Join Date: May 2015
Posts: 4
BIMwit is on a distinguished road
Default 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
Reply With Quote