conditional copying

[osaben]

<!-- / icon and title --><!-- message --><!-- BEGIN TEMPLATE: ad_showthread_firstpost_start --><!-- END TEMPLATE: ad_showthread_firstpost_start -->looking to copy any entire row from the first sheet to the second when the word "total" exists in that row in the first sheet. I want to copy it to the next available row in the second sheet. (i.e. no blank rows)

Any suggestions on the code?

 

[rassten]

maybe something like

Sub FindTotal()
Sheets("Sheet2").Activate
    lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Sheet1").Activate

Set Rng = Range("a1:z" & Cells(Rows.Count, 1).End(xlUp).Row)
For Each cell In Rng
If cell.Value = "Total" Or cell.Value = "total" Then
    cell.EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & lr)
    lr = lr + 1
End If

Next cell

End Sub

change Sheet1 and Sheet2 to what ever you use

 

[osaben]

rassten, Thank you for your reply. When I try to run this I get the following error:

Run-time error '28'
Out of stack space

any ideas what this is?

 

[osaben]

I tried applying this code a second time. I think the issues might also be the way I am doing it.

I already have three seperate macros in place. That run via a command button on sheet 1. I went into Developer/Visual Basic/ View Code. I enter the addrtional code right below the last one. If figured since there was no cammand button, I would do the following to make the last/4th macro run. Developer/Macros/a macro named Dheet1.FindTotal appears. I highlight it an select Run....nothing happens.....no errors...no copying occurs to sheet 2.