Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Another code question
I have the following code: Thats giving me an invalid qualifying error? in
the line: myDirectory....... Private Sub OK_Click() Dim myDirectory As String Dim myFilename As String Dim myLocationOut As String If IsEmpty(TAB_DIRECTORY.Value) Then MsgBox "please provide directory" Else myDirectory.Value = Me.TAB_DIRECTORY.Value End If If IsEmpty(File_Name.Value) Then MsgBox "please provide filename" Else myFilename.Value = Me.File_Name.Value End If If IsEmpty(Location_Out.Value) Then MsgBox "Provide info " Else myLocationOut.Value = Me.Location_Out.Value End If Next UserForm3.Hide End Sub The command button "OK" is on userform3 The "TAB_DIRECTORY" is the name of text box1 within userform3 The "File_Name" is the name of textbox2 within userform 3 The "Location_Out" is the name of textbox 3 within userform 3 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Another code question
myDirectory is a string and not an object with a value property so you don't
want to use the .Value qualifier. myDirectory = Me.TAB_DIRECTORY.Value -- HTH... Jim Thomlinson "M&M" wrote: I have the following code: Thats giving me an invalid qualifying error? in the line: myDirectory....... Private Sub OK_Click() Dim myDirectory As String Dim myFilename As String Dim myLocationOut As String If IsEmpty(TAB_DIRECTORY.Value) Then MsgBox "please provide directory" Else myDirectory.Value = Me.TAB_DIRECTORY.Value End If If IsEmpty(File_Name.Value) Then MsgBox "please provide filename" Else myFilename.Value = Me.File_Name.Value End If If IsEmpty(Location_Out.Value) Then MsgBox "Provide info " Else myLocationOut.Value = Me.Location_Out.Value End If Next UserForm3.Hide End Sub The command button "OK" is on userform3 The "TAB_DIRECTORY" is the name of text box1 within userform3 The "File_Name" is the name of textbox2 within userform 3 The "Location_Out" is the name of textbox 3 within userform 3 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Another code question
Thank you so much Jim, one last question about the same macro. Why Im I getting an error in the "Next UserForm hide" "Jim Thomlinson" wrote: myDirectory is a string and not an object with a value property so you don't want to use the .Value qualifier. myDirectory = Me.TAB_DIRECTORY.Value -- HTH... Jim Thomlinson "M&M" wrote: I have the following code: Thats giving me an invalid qualifying error? in the line: myDirectory....... Private Sub OK_Click() Dim myDirectory As String Dim myFilename As String Dim myLocationOut As String If IsEmpty(TAB_DIRECTORY.Value) Then MsgBox "please provide directory" Else myDirectory.Value = Me.TAB_DIRECTORY.Value End If If IsEmpty(File_Name.Value) Then MsgBox "please provide filename" Else myFilename.Value = Me.File_Name.Value End If If IsEmpty(Location_Out.Value) Then MsgBox "Provide info " Else myLocationOut.Value = Me.Location_Out.Value End If Next UserForm3.Hide End Sub The command button "OK" is on userform3 The "TAB_DIRECTORY" is the name of text box1 within userform3 The "File_Name" is the name of textbox2 within userform 3 The "Location_Out" is the name of textbox 3 within userform 3 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Another code question
Oops Ok I figured it out. I guess I dont need that Next statement
Thank You "M&M" wrote: Thank you so much Jim, one last question about the same macro. Why Im I getting an error in the "Next UserForm hide" "Jim Thomlinson" wrote: myDirectory is a string and not an object with a value property so you don't want to use the .Value qualifier. myDirectory = Me.TAB_DIRECTORY.Value -- HTH... Jim Thomlinson "M&M" wrote: I have the following code: Thats giving me an invalid qualifying error? in the line: myDirectory....... Private Sub OK_Click() Dim myDirectory As String Dim myFilename As String Dim myLocationOut As String If IsEmpty(TAB_DIRECTORY.Value) Then MsgBox "please provide directory" Else myDirectory.Value = Me.TAB_DIRECTORY.Value End If If IsEmpty(File_Name.Value) Then MsgBox "please provide filename" Else myFilename.Value = Me.File_Name.Value End If If IsEmpty(Location_Out.Value) Then MsgBox "Provide info " Else myLocationOut.Value = Me.Location_Out.Value End If Next UserForm3.Hide End Sub The command button "OK" is on userform3 The "TAB_DIRECTORY" is the name of text box1 within userform3 The "File_Name" is the name of textbox2 within userform 3 The "Location_Out" is the name of textbox 3 within userform 3 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Repost of VBA Code/Lookup question | Excel Worksheet Functions | |||
VB Code Question | Excel Discussion (Misc queries) | |||
VB Code Question | Excel Discussion (Misc queries) | |||
VBA code question | Excel Discussion (Misc queries) | |||
Easy VB code question | Excel Discussion (Misc queries) |