Could somebody please help me with the above, i am filtering with code
but am not sure of the code to move to the first displayed cell.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Hi Les
Provided headers starting in A1
Try
Cells(Range("A1").CurrentRegion.Offset(1,0).Specia lCells(xlCellTypeVisible).
Row,1).Select

HTH
Cordially
Pascal

"Tempy" a écrit dans le message de
...
Could somebody please help me with the above, i am filtering with code
but am not sure of the code to move to the first displayed cell.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Hi Papau,

Firstly, i the first 5 rows are used for the header, so my data begins
at row 6. The spreadsheet has a lot of grouped coloumns and the data i
want is about in the middle "Field:=22".

I treid your code and it jumps to the cell A2.

Thanks your help is appreciated.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Well, try and amend from A1 to A5 and see if it works.
I never use more than 1 row for headers because, to my opinion, it messes
things.
But as I have just said this is only a personal point of view.

HTH
Cordially
Pascal

"Tempy" a écrit dans le message de
...
Hi Papau,

Firstly, i the first 5 rows are used for the header, so my data begins
at row 6. The spreadsheet has a lot of grouped coloumns and the data i
want is about in the middle "Field:=22".

I treid your code and it jumps to the cell A2.

Thanks your help is appreciated.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

Not sure why you want to move to that first visible cell, but here's an example
to find the first visible cell in the first column of the autofilter range (not
counting the header row).

Option Explicit
Sub testme01()
Dim rngF As Range
With ActiveSheet.AutoFilter.Range.Columns(1)
Set rngF = .Resize(.Rows.Count - 1).Offset(1, 0) _
.Cells.SpecialCells(xlCellTypeVisible)
End With
MsgBox rngF.Cells(1).Address
End Sub

Tempy wrote:

Could somebody please help me with the above, i am filtering with code
but am not sure of the code to move to the first displayed cell.

Les Stout

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson