search and copy into a new worksheet

[kendals]

Hi I would like to search a for the word "Lower" and copy the rows that contain that word into a new worksheet. how can i do this?

thanks

 

[Stephan Hoenselaar]

"Lower"

kendals
I don't know if you are familiar with VBA but your VBA text should look something like:

Sub Button_Click()
' Macro by Hoenselaar, 2007-08-03
Dim lngCounter1 As Long
Dim lngCounter2 As Long
lngCounter1 = 1
lngCounter2 = 1

Do While Not Worksheets("Sheet1").Cells(lngCounter1, 1) = ""
If Worksheets("Sheet1").Cells(lngCounter1, 1) = "Lower" Then
Worksheets("Sheet1").Select
Rows(lngCounter1).Copy
Worksheets("Sheet2").Select
Rows(lngCounter2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation_
:=xlNone, SkipBlanks:=False, Transpose:=False
lngCounter2 = lngCounter2 + 1
End If
lngCounter1 = lngCounter1 + 1
Loop
End Sub

P.s. Lay out is incorrect tabs are missing!

 

[kendals]

thanks

thanks