![]() |
#6
|
|||
|
|||
![]()
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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to check dropdown value and increment a counter | rkferguson | Word VBA | 8 | 01-07-2015 11:08 PM |
![]() |
mhblake | Word VBA | 3 | 12-04-2013 04:17 PM |
![]() |
Jeannie Cornia | Word | 3 | 01-21-2013 06:00 AM |
Check box macro help needed | Aflac | Word | 4 | 03-24-2012 07:11 PM |
![]() |
Johnny thunder | Word VBA | 12 | 04-07-2011 04:47 PM |