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
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