What are some clean ways of handling Record xxx of yyy, and also scroll bar
functions if you are turning on and off filters and skipping hidden (the
recognition of hidden is controlled by a button) I have some issues (they
are minor compared to the functionality I have gained by controlling hidden
rows!) issues with out of ranges, and beggining of file etc with my current
scroll and record count/display functions.

Here is the code I have for controlling the filters.

Dim FiltOn As Boolean

Private Sub CommandButton38_Click()
FiltOn = True

End Sub

Private Sub CommandButton39_Click()
FiltOn = False

End Sub
Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
If FiltOn Then
Do While Selection.Rows.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
End If

SetForeColor 'conditional formating based on value of offset 43
FillMyForm1
End Sub


Private Sub SpinButton1_Spinup()
ActiveCell.Offset(-1, 0).Select
If FiltOn Then

Do While Selection.Rows.Hidden = True
ActiveCell.Offset(-1, 0).Select
Loop
End If

SetForeColor 'conditional formating based on value of offset 43
FillMyForm1
End Sub



Thanks!
Bruce

Sub AA_Tester12()
Dim rng As Range
Dim rng1 As Range
Dim rng2 As Range
Set rng = ActiveSheet.AutoFilter.Range
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, 1)
On Error Resume Next
Set rng1 = rng.SpecialCells(xlVisible)
On Error GoTo 0
If rng1 Is Nothing Then
MsgBox "0 of " & rng.Count & " rows visible"
Else
MsgBox rng1.Count & " of " & rng.Count & " rows visible"
If Not Intersect(ActiveCell.EntireRow, rng1) Is Nothing Then
Set rng2 = Intersect(ActiveCell.EntireRow, rng1)
recno = Application.Subtotal(3, Range(rng1(1), rng2))
MsgBox "rec selected is " & recno & " of " & rng1.Count & " visible"
End If
End If

End Sub


What kind of scrollbar are you using? Control toolbox toolbar or Forms
toolbar?

--
Regards,
Tom Ogilvy

"Bruccce" wrote in message
et...
What are some clean ways of handling Record xxx of yyy, and also scroll
bar
functions if you are turning on and off filters and skipping hidden (the
recognition of hidden is controlled by a button) I have some issues (they
are minor compared to the functionality I have gained by controlling
hidden
rows!) issues with out of ranges, and beggining of file etc with my
current
scroll and record count/display functions.

Here is the code I have for controlling the filters.

Dim FiltOn As Boolean

Private Sub CommandButton38_Click()
FiltOn = True

End Sub

Private Sub CommandButton39_Click()
FiltOn = False

End Sub
Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
If FiltOn Then
Do While Selection.Rows.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
End If

SetForeColor 'conditional formating based on value of offset 43
FillMyForm1
End Sub


Private Sub SpinButton1_Spinup()
ActiveCell.Offset(-1, 0).Select
If FiltOn Then

Do While Selection.Rows.Hidden = True
ActiveCell.Offset(-1, 0).Select
Loop
End If

SetForeColor 'conditional formating based on value of offset 43
FillMyForm1
End Sub



Thanks!
Bruce