Help ~ SaveAs Active Workbook Path & Textbox1.Text

[jonathann3891]

How can I make this work?

When debugging, its showings all the correct information, but gives me an this error;
"Invalid procedure call or argument"

With UserForm1sFileName = ActiveWorkbook.Path & "\" & Left(UserForm1.TextBox1.Text, InStr(1, UserForm1.TextBox1.Text, ".") - 1) & ".csv"
End With

Thanks,
Jonathan

 

[Fluff]

Does the value in textbox1 contain a . when you get the error?

 

[jonathann3891]

No it doesnt contain a "."

 

[Fluff]

That's your problem then, as this part

InStr(1, UserForm1.TextBox1.Text, ".")

is looking for a .
What sort of value will textbox1 hold?

 

[jonathann3891]

It only holds a 3 digit number.

Im trying to get it to name the CSV as the textbox

IE,
123.csv

 

[Fluff]

In that case try

   With UserForm1
      sfilename = ActiveWorkbook.Path & "\" & .TextBox1.Text & ".csv"
   End With

 

[jonathann3891]

Well I was wrong. It is reading textbox1.text value is empty.

How can I pass the value from a userform to a module?

 

[Fluff]

Like this
In the userform module

Private Sub CommandButton1_Click()
   Call Chk(TextBox1.Text)
End Sub

And then in a normal module

Sub Chk(Txt As String)
   MsgBox Txt
End Sub