I have a worksheet with information for about 18 nodes. I am able to locate
the data for a particular node and by using AutoFilter I can filter out the
specific row which I require (always a single row). I want to copy this row
to another sheet. xlCellTypeVisible does not work because there is visible
data for other nodes.

Thanks for your help.
Farooq

Hi Farooq,

Try something like:

'=============
Public Sub Tester()
Dim rng As Range
Dim rng2 As Range

Set rng = ActiveSheet.AutoFilter.Range
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)

On Error Resume Next
Set rng2 = rng.SpecialCells(xlCellTypeVisible)
On Error Resume Next

If Not rng2 Is Nothing Then
rng2.Copy Destination:=Sheets(1).Range("A1")
End If
End Sub
'<<=============


---
Regards,
Norman


"Farooq Sheri" wrote in message
...
I have a worksheet with information for about 18 nodes. I am able to locate
the data for a particular node and by using AutoFilter I can filter out
the
specific row which I require (always a single row). I want to copy this
row
to another sheet. xlCellTypeVisible does not work because there is visible
data for other nodes.

Thanks for your help.
Farooq

Thank you for pointing out the way. I used the following line in my code and
it worked

Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)



"Norman Jones" wrote:

Hi Farooq,

Try something like:

'=============
Public Sub Tester()
Dim rng As Range
Dim rng2 As Range

Set rng = ActiveSheet.AutoFilter.Range
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)

On Error Resume Next
Set rng2 = rng.SpecialCells(xlCellTypeVisible)
On Error Resume Next

If Not rng2 Is Nothing Then
rng2.Copy Destination:=Sheets(1).Range("A1")
End If
End Sub
'<<=============


---
Regards,
Norman


"Farooq Sheri" wrote in message
...
I have a worksheet with information for about 18 nodes. I am able to locate
the data for a particular node and by using AutoFilter I can filter out
the
specific row which I require (always a single row). I want to copy this
row
to another sheet. xlCellTypeVisible does not work because there is visible
data for other nodes.

Thanks for your help.
Farooq