general purpose command button

[Son_of_Thor]

I have Created a Userform with two buttons and a couple of text boxes and I would like this form to act similar to a vbyesno msgbox. The problem I am having is that I can't figure out how to make these buttons function without having to put a bunch of if-then statements in a Commandbutton1_click sub. What I would like to do is write a macro in a Module and then call the userform with text and write an if-then statement with the code for the buttons. For Instance:

Sub Filesaveas()
'
' Save Invoice As PDF for Billing Records
'

' Save File
    Dim IntialName As String
    Dim fileSaveName As Variant
    InitialName = Range("F7").Text & "_" & Range("K2") & "_" & Range("F6")
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
    FileFilter:="PDF (*.pdf), *pdf")
        If fileSaveName <> False Then
            UserForm1.Caption = "Save As"
            UserForm1.TextBox1.Caption = "Save As:"
            UserForm1.TextBox2.Caption = "'" & fileSaveName & "'"
            UserForm1.TextBox1.Font.Bold = True
            UserForm1.TextBox2.Font.Bold = False
            UserForm1.TextBox1.Font.Italic = False
            UserForm1.TextBox2.Font.Italic = True
            UserForm1.TextBox2.TextAlign = fmTextAlignCenter
            UserForm1.TextBox1.TextAlign = fmTextAlignLeft
            UserForm1.Show
            If 'CommandButton1_Click Here' Then
               'Action'
            Else
                If 'CommandButton2_Click Here' Then
                    'Action'
                End If
            End If
        End If
End Sub

[Son_of_Thor]

I appologize for the ugly code, it is my first time posting and when posted it removed all my tabs and spacing. Any advice for future posting is welcomed.

[HaHoBe]

Hi, Son_of_Thor,

have a look at the Forum Rules, especially Rule #3.

Ciao,
Holger

[Son_of_Thor]

Thank you HaHoBe!

[HaHoBe]

Hi, Son_of_Thor,

I would put the code for the commandbuttons behind the UserForm, and I would handle the coding differently from what you want to do.

Sub Filesaveas()
'
' Save Invoice As PDF for Billing Records
'

' Save File
    Dim IntialName As String
    Dim fileSaveName As Variant
    InitialName = Range("F7").Text & "_" & Range("K2") & "_" & Range("F6")
    fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
        FileFilter:="PDF (*.pdf), *pdf")
    If fileSaveName <> False Then
        With UserForm1
          .Caption = "Save As"
          With .TextBox1
            .Caption = "Save As:"
            .Font.Bold = True
            .Font.Italic = False
            .TextAlign = fmTextAlignLeft
          End With
          With .TextBox1
            .Caption = "'" & fileSaveName & "'"
            .Font.Bold = False
            .Font.Italic = True
            .TextAlign = fmTextAlignLeft
          End With
          .Show
        End With
    End If
End Sub

Ciao,
Holger

[Son_of_Thor]

I appreciate you cleaning up my coding, it looks much better. As for coding behind the Userform, I have thought of this and would do this but it doesn't seem to workout for me and the reason being because i am using the GetSaveAsFilename application property and therefore when I use the Save action it no longer pulls the filename from the save as dialog box nor does it use the initial name generated from the Sub Filesaveas if the user chooses not to change the filename. How can I get away from this problem? and here is the code I would like to perform with the CommandButton1_click action:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, _
Quality:=xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
openafterpublish:=True

[HaHoBe]

Hi, Son_of_Thor,

you passed it to Textbox1 on the UserForm, why not take it from there?

Ciao,
Holger

[Son_of_Thor]

Thanks HaHoBe, that will work. I knew I had to be missing something simple, I really appreciate you pointing this out.