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)...

Expand|Select|Wrap|Line Numbers

 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

Quote:

Originally Posted by 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

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_36" 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

Quote:

Originally Posted by darren28

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

Expand|Select|Wrap|Line Numbers

 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]

Open a form with a specific name

re: Open a form with a specific name

re: Open a form with a specific name

re: Open a form with a specific name

re: Open a form with a specific name

re: Open a form with a specific name

re: Open a form with a specific name

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about