I would like to have my userform display only what rows are filtered at a
given time. I would like to be able to use autofilter from normal excel
screen, and then use my userform. I would also like to be able to record one
of the autofilters and assign it to a button on my userform.

Currently, when I step through the rows with the up/down buttons on my form,
it shows each and every row.
Right now, I have 2 fields being displayed First and lastname, and then my
up/down SpinButton (and some other buttons for printing, closing ans
saving....)


What am I doing wrong?



I have the following code:

---------------------------------------
'module1

Sub GetGoing_CI()
If ActiveCell.Row = 1 Then ActiveCell.Offset(1, 0).Select
Dim jump As Variant
jump = 1 - ActiveCell.Column
ActiveCell.Offset(0, jump).Select
ActiveSheet.Range("A1").Select 'so that current region in init works
UserForm1.Show
End Sub


Sub FillMyForm1()
ContactFilterFlag = False
With UserForm1
'Assignment Col Ofs Item
' .textbox0 =ActiveCell.Offset(0, 0) ' A 0 Record_Number
..TextBox1 = ActiveCell.Offset(0, 1) ' B 1 First
..TextBox2 = ActiveCell.Offset(0, 2) ' C 2 LastName
End With

End Sub

---------------------------------------------

'Userform1

Private Sub UserForm_Initialize()
Worksheets("Contacts").Select
ws = "Contacts"
FillMyForm1
End Sub

Private Sub CommandButton1_Click()
Dim Mldg, stil, Titel, Antwort
Mldg = "Don't you want to save the database now ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "Exit Form"
Antwort = MsgBox(Mldg, stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.Save
Else
End If
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
End Sub

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
FillMyForm1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Offset(-1, 0).Select
FillMyForm1
End Sub

Sub

It doesn't make any difference to Vba if your cells are hidden. You have to
check the cells to see if they are hidden and have your code ignore those
cells.

--
Regards,
Tom Ogilvy

wrote in message
news:MNo3b.284371$Ho3.39036@sccrnsc03...
I would like to have my userform display only what rows are filtered at a
given time. I would like to be able to use autofilter from normal excel
screen, and then use my userform. I would also like to be able to record
one
of the autofilters and assign it to a button on my userform.

Currently, when I step through the rows with the up/down buttons on my
form,
it shows each and every row.
Right now, I have 2 fields being displayed First and lastname, and then
my
up/down SpinButton (and some other buttons for printing, closing ans
saving....)


What am I doing wrong?



I have the following code:

---------------------------------------
'module1

Sub GetGoing_CI()
If ActiveCell.Row = 1 Then ActiveCell.Offset(1, 0).Select
Dim jump As Variant
jump = 1 - ActiveCell.Column
ActiveCell.Offset(0, jump).Select
ActiveSheet.Range("A1").Select 'so that current region in init works
UserForm1.Show
End Sub


Sub FillMyForm1()
ContactFilterFlag = False
With UserForm1
'Assignment Col Ofs Item
' .textbox0 =ActiveCell.Offset(0, 0) ' A 0 Record_Number
.TextBox1 = ActiveCell.Offset(0, 1) ' B 1 First
.TextBox2 = ActiveCell.Offset(0, 2) ' C 2 LastName
End With

End Sub

---------------------------------------------

'Userform1

Private Sub UserForm_Initialize()
Worksheets("Contacts").Select
ws = "Contacts"
FillMyForm1
End Sub

Private Sub CommandButton1_Click()
Dim Mldg, stil, Titel, Antwort
Mldg = "Don't you want to save the database now ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "Exit Form"
Antwort = MsgBox(Mldg, stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.Save
Else
End If
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
End Sub

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
FillMyForm1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Offset(-1, 0).Select
FillMyForm1
End Sub

Sub

so basically when I do my spindown it should be something like this:


Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
do While Selection.rows.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
FillMyForm1
End Sub




"Tom Ogilvy" wrote in message
...
It doesn't make any difference to Vba if your cells are hidden. You have
to
check the cells to see if they are hidden and have your code ignore those
cells.

--
Regards,
Tom Ogilvy

wrote in message
news:MNo3b.284371$Ho3.39036@sccrnsc03...
I would like to have my userform display only what rows are filtered at
a
given time. I would like to be able to use autofilter from normal excel
screen, and then use my userform. I would also like to be able to record
one
of the autofilters and assign it to a button on my userform.

Currently, when I step through the rows with the up/down buttons on my
form,
it shows each and every row.
Right now, I have 2 fields being displayed First and lastname, and then
my
up/down SpinButton (and some other buttons for printing, closing ans
saving....)


What am I doing wrong?



I have the following code:

---------------------------------------
'module1

Sub GetGoing_CI()
If ActiveCell.Row = 1 Then ActiveCell.Offset(1, 0).Select
Dim jump As Variant
jump = 1 - ActiveCell.Column
ActiveCell.Offset(0, jump).Select
ActiveSheet.Range("A1").Select 'so that current region in init works
UserForm1.Show
End Sub


Sub FillMyForm1()
ContactFilterFlag = False
With UserForm1
'Assignment Col Ofs Item
' .textbox0 =ActiveCell.Offset(0, 0) ' A 0 Record_Number
.TextBox1 = ActiveCell.Offset(0, 1) ' B 1 First
.TextBox2 = ActiveCell.Offset(0, 2) ' C 2 LastName
End With

End Sub

---------------------------------------------

'Userform1

Private Sub UserForm_Initialize()
Worksheets("Contacts").Select
ws = "Contacts"
FillMyForm1
End Sub

Private Sub CommandButton1_Click()
Dim Mldg, stil, Titel, Antwort
Mldg = "Don't you want to save the database now ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "Exit Form"
Antwort = MsgBox(Mldg, stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.Save
Else
End If
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
End Sub

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
FillMyForm1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Offset(-1, 0).Select
FillMyForm1
End Sub

Sub

That should work.

--
Regards,
Tom Ogilvy

wrote in message
news:CWp3b.284931$Ho3.39214@sccrnsc03...
so basically when I do my spindown it should be something like this:


Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
do While Selection.rows.Hidden = True
ActiveCell.Offset(1, 0).Select
Loop
FillMyForm1
End Sub




"Tom Ogilvy" wrote in message
...
It doesn't make any difference to Vba if your cells are hidden. You
have
to
check the cells to see if they are hidden and have your code ignore
those
cells.

--
Regards,
Tom Ogilvy

wrote in message
news:MNo3b.284371$Ho3.39036@sccrnsc03...
I would like to have my userform display only what rows are filtered
at
a
given time. I would like to be able to use autofilter from normal
excel
screen, and then use my userform. I would also like to be able to
record
one
of the autofilters and assign it to a button on my userform.

Currently, when I step through the rows with the up/down buttons on my
form,
it shows each and every row.
Right now, I have 2 fields being displayed First and lastname, and
then
my
up/down SpinButton (and some other buttons for printing, closing ans
saving....)


What am I doing wrong?



I have the following code:

---------------------------------------
'module1

Sub GetGoing_CI()
If ActiveCell.Row = 1 Then ActiveCell.Offset(1, 0).Select
Dim jump As Variant
jump = 1 - ActiveCell.Column
ActiveCell.Offset(0, jump).Select
ActiveSheet.Range("A1").Select 'so that current region in init works
UserForm1.Show
End Sub


Sub FillMyForm1()
ContactFilterFlag = False
With UserForm1
'Assignment Col Ofs Item
' .textbox0 =ActiveCell.Offset(0, 0) ' A 0 Record_Number
.TextBox1 = ActiveCell.Offset(0, 1) ' B 1 First
.TextBox2 = ActiveCell.Offset(0, 2) ' C 2 LastName
End With

End Sub

---------------------------------------------

'Userform1

Private Sub UserForm_Initialize()
Worksheets("Contacts").Select
ws = "Contacts"
FillMyForm1
End Sub

Private Sub CommandButton1_Click()
Dim Mldg, stil, Titel, Antwort
Mldg = "Don't you want to save the database now ?"
stil = vbYesNo + vbCritical + vbDefaultButton2
Titel = "Exit Form"
Antwort = MsgBox(Mldg, stil, Titel)
If Antwort = vbYes Then
ActiveWorkbook.Save
Else
End If
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton3_Click()
ActiveWorkbook.Save
End Sub

Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
FillMyForm1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Offset(-1, 0).Select
FillMyForm1
End Sub

Sub