sequential numbering in filtered screen to print?

[tipifire]

I have about 9 thousand entries in excel and i filter them to print out that selection. Would like to show sequential numbering for each row shown from 1 and up. excel only shows the original row number. is there a way to show this in the print out? if not how about a sum of rows shown?

[ This Message was edited by: tipifire on 2002-05-15 08:26 ]

[ This Message was edited by: tipifire on 2002-05-15 08:32 ]

[giacomo]

let's say your auto-filter data starts in B3. Paste the folowing in A3, and copy down to the remainder of your data rows:

=SUBTOTAL(3,$B$3:B3)

Hope that helps,
giacomo

[zzydhf]

here is a count loop that will put the count of the visible cells in sequential order. it works ok if the column it is counting in is null until it hit the "criteria" cell to stop. Hope it helps.

Sub count_loop()
Range("aj2").Select ' cell to start counting at
Dim counter As Integer 'declare variable
counter = 0 'initialize variable

Do Until ActiveCell = "x" 'or whatever your criteria is in last cell
If ActiveCell = Visible Then
counter = counter + 1
Else:
End If
ActiveCell = counter
ActiveCell.Offset(1, 0).Range("A1").Select 'This moves vertically
'ActiveCell.Offset(0, 1).Range("A1").Select this would move Horizontally
Loop

End Sub

[Chris Davison]

On 2002-05-15 08:52, giacomo wrote:
let's say your auto-filter data starts in B3. Paste the folowing in A3, and copy down to the remainder of your data rows:

=SUBTOTAL(3,$B$3:B3)

Hope that helps,
giacomo

nice

[tipifire]

Thanks guys for all the info. i have 90,000 entries to play with and i found that i use axcess to filter and sort then copy to excel to print using "rows" to caculate how people there is