PDA

View Full Version : Solved: Seems simple but maybe not...



austenr
10-14-2005, 06:46 PM
What I want to do is easy enough but somehow for me not..

I want to somehow use the code below (or a modofied version) to look for certain text and copy the entire row to sheet 2. Once that is done, I want to copy the numeric rows for each person under them. I have attached a sample workbook with a before and after picture because what I want is hard to explain with words. Any help as always is appreciated.

Public Sub copyrows()
Dim x As Range
Set x = Sheets("Sheet1").Range("A1:k3000")
With Sheets("Sheet1")
.AutoFilterMode = False
x.AutoFilter Field:=1, Criteria1:=">1"
x.SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Sheet2").Range("A2")
.AutoFilterMode = False
End With
End Sub

acw
10-16-2005, 10:54 PM
Hi

Have a look at the attached. I've included a macro aaa. You also had 2 subs with the same name....


Tony

austenr
10-17-2005, 06:57 AM
Thanks. That got it