problems with macro

[royboy531]

I want to use a macro to open a userform and filter data(which I already have code for) then close the userform and have my filtered data. I don't know code very well and I was trying to record the macro but it wouldn't work. any Ideas
thanks
royboy531

 

[NdNoviceHlp]

Userform1.show, Unload Userform1, Userform1.hide, and Unload Me may be of some use to you. "Userform1" is interchangeable with your userform name. Insert YourUserformName.show in a sub to get started. Good luck! Dave

 

[royboy531]

What I didn't mention in my message is that I am extremely new to this and I'm not sure what your message means. Do I add it to the end of the macro that I have attached to the cammand button??? I do appriciate the help.
royboy531

 

[NdNoviceHlp]

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

This will show you "Userform1" if you have a command button 1. See the VBA help for hide,unload etc. HTH. Dave

 

[royboy531]

I tried to put the code that you gave me in the command button code enty box under the code I had for the filter but it didn't seem to work right. I used

Private Sub CommandButton1_Click() 
UserForm1.Show 
End Sub

under my code of

Private Sub btnFilter_Click()
    Dim startDate As String
    Dim shift As String
    
    'reads date from the userform
    startDate = tbstartdate.Value 'tbStartDate is the name of the textbox for Starting Date
    shift = tbshift 'tbshift is the name of the textbox for shift
    
    'FILTERS
    With Worksheets("Nov2005")
        .AutoFilterMode = False
        .Range("a1:p1").AutoFilter
        .Range("a1:p1").AutoFilter Field:=2, Criteria1:=shift
        .Range("a1:p1").AutoFilter Field:=1, Criteria1:=(">=" & startDate), _
            Operator:=xlAnd, Criteria2:=("<=" & startDate)
        
    End With

not sure where I am going wrong. I went to help and it was kind of confusing and didn't explain very clearly. I appriciate your help.
royboy531

 

[royboy531]

Ok, I think I have it now. thanks for the help.
royboy531