Open a form with a specific name

[darren28]

Hi,

I have a pretty basic question that I can't seem to figure out. I'm trying to open a form with a specific name that changes depending on the value of a cell.

For instance (simplified)...

sub openForm()
 
     dim formNumber as integer
     formNumber = cells(1,1)
 
     dim fileName as string
     fileName = "UserForm_" & formNumber
End Sub

I now want to open the form named 'fileName' as defined above. How can I do this???


Thanks!!!

[iburyak]

Hi,

I have a pretty basic question that I can't seem to figure out. I'm trying to open a form with a specific name that changes depending on the value of a cell.

For instance (simplified)...

sub openForm()

dim formNumber as integer
formNumber = cells(1,1)

dim fileName as string
fileName = "UserForm_" & formNumber

I now want to open the form named 'fileName' as defined above. How can I do this???

end sub

Thanks!!!

Can you just set a Caption of a new form to your fileName?

Like this:

[PHP]Dim frm As New Form1

frm.Caption = fileName
frm.Show[/PHP]

[darren28]

hmmm...couldn't get that to work. what is form1? my vb didn't recognize that.

i'm assuming that all the userforms are already created and existing in the vbproject. however, the user determines which form to open based on the value of the cell. therefore, assuming the user inputs "36", the exiting form named "UserForm_3 6" will open. I'm hoping there's an easy way to do this w/o doing 50+ case/else statements.

thx!

[willakawill]

Are there that many forms or are you using the same form with a different caption?

[darren28]

there will be close to that many forms although not all will be imported/loaded

[willakawill]

there will be close to that many forms although not all will be imported/loaded

Then you need to loop through the forms collection to find the one you need

Dim frm As Form
 
formName = "UserForm_" & formNumber
 
For Each frm In Forms
   If frm.Name = formName Then
      'do what you want to do with this form
      frm.Show
   End If
Next frm

[iburyak]

I didn't think you wher talking about Excel form. I thought is is VB.
But code is the same just default form name is different.

[PHP]
Dim frm As New UserForm1
frm.Caption = fileName
frm.Show
[/PHP]