how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

On 19 Jan., 12:19, pswanie wrote:
how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

Hi

With a userform containing a label, named "Label1" a textbox named
"Textbox1", a combobox named "ComboBox1", and a commandbutton named
"Commandbutton1"

Inset this code in the userforms codesheet. Run the userform with data
in range A1, B1:B3 and see what happens.

Private Sub CommandButton1_Click()
Range("C1") = Me.TextBox1.Value
Range("C2") = Me.ComboBox1.Object
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = Range("A1").Value
For c = 1 To 3
Me.ComboBox1.AddItem Cells(c, 2).Value ' Add values from B1:B3
Next
me.CommandButton1.Caption = "OK"
End Sub


// Per

i do get everything to show that needs but only if i dont hide the worksheet.

and does not look like ur code will hide or not show my excell sheet?


"Per Jessen" wrote:

On 19 Jan., 12:19, pswanie wrote:
how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

Hi

With a userform containing a label, named "Label1" a textbox named
"Textbox1", a combobox named "ComboBox1", and a commandbutton named
"Commandbutton1"

Inset this code in the userforms codesheet. Run the userform with data
in range A1, B1:B3 and see what happens.

Private Sub CommandButton1_Click()
Range("C1") = Me.TextBox1.Value
Range("C2") = Me.ComboBox1.Object
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = Range("A1").Value
For c = 1 To 3
Me.ComboBox1.AddItem Cells(c, 2).Value ' Add values from B1:B3
Next
me.CommandButton1.Caption = "OK"
End Sub


// Per

On 19 Jan., 14:44, pswanie wrote:
i do get everything to show that needs but only if i dont hide the worksheet.

and does not look like ur code will hide or not show my excell sheet?



"Per Jessen" wrote:
On 19 Jan., 12:19, pswanie wrote:
how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

Hi

With a userform containing a label, named "Label1" a textbox named
"Textbox1", a combobox named "ComboBox1", and a commandbutton named
"Commandbutton1"

Inset this code in the userforms codesheet. Run the userform with data
in range A1, B1:B3 and see what happens.

Private Sub CommandButton1_Click()
Range("C1") = Me.TextBox1.Value
Range("C2") = Me.ComboBox1.Object
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = Range("A1").Value
For c = 1 To 3
* * Me.ComboBox1.AddItem Cells(c, 2).Value ' Add values from B1:B3
Next
me.CommandButton1.Caption = "OK"
End Sub

// Per- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

Hi

As far as I know you can not hide your workbook. Why do you want to
hide it ? The user can not enter data into the workbook as the
userform is running.

// Per

dont want the user to see it in the back...
or how will i get my userform the size of the screen to "block out" the
excell sheet?

dont need the user to know there is a excell sheet runing

"Per Jessen" wrote:

On 19 Jan., 14:44, pswanie wrote:
i do get everything to show that needs but only if i dont hide the worksheet.

and does not look like ur code will hide or not show my excell sheet?



"Per Jessen" wrote:
On 19 Jan., 12:19, pswanie wrote:
how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

Hi

With a userform containing a label, named "Label1" a textbox named
"Textbox1", a combobox named "ComboBox1", and a commandbutton named
"Commandbutton1"

Inset this code in the userforms codesheet. Run the userform with data
in range A1, B1:B3 and see what happens.

Private Sub CommandButton1_Click()
Range("C1") = Me.TextBox1.Value
Range("C2") = Me.ComboBox1.Object
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = Range("A1").Value
For c = 1 To 3
Me.ComboBox1.AddItem Cells(c, 2).Value ' Add values from B1:B3
Next
me.CommandButton1.Caption = "OK"
End Sub

// Per- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

Hi

As far as I know you can not hide your workbook. Why do you want to
hide it ? The user can not enter data into the workbook as the
userform is running.

// Per

On 19 Jan., 15:19, pswanie wrote:
dont want the user to see it in the back...
or how will i get my userform the size of the screen to "block out" the
excell sheet?

dont need the user to know there is a excell sheet runing



"Per Jessen" wrote:
On 19 Jan., 14:44, pswanie wrote:
i do get everything to show that needs but only if i dont hide the worksheet.

and does not look like ur code will hide or not show my excell sheet?

"Per Jessen" wrote:
On 19 Jan., 12:19, pswanie wrote:
how can i hide the workbook and show a userform? i got data that needs to
show in combobox and labels and textboxes that need to enter data to the
workbook.
the code i got i can hide the workbook/application but then the data dont
appear in my userform

Hi

With a userform containing a label, named "Label1" a textbox named
"Textbox1", a combobox named "ComboBox1", and a commandbutton named
"Commandbutton1"

Inset this code in the userforms codesheet. Run the userform with data
in range A1, B1:B3 and see what happens.

Private Sub CommandButton1_Click()
Range("C1") = Me.TextBox1.Value
Range("C2") = Me.ComboBox1.Object
End Sub

Private Sub UserForm_Initialize()
Me.Label1.Caption = Range("A1").Value
For c = 1 To 3
* * Me.ComboBox1.AddItem Cells(c, 2).Value ' Add values from B1:B3
Next
me.CommandButton1.Caption = "OK"
End Sub

// Per- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

Hi

As far as I know you can not hide your workbook. Why do you want to
hide it ? The user can not enter data into the workbook as the
userform is running.

// Per- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -

If you are running the userform from the same machine i.e. same screen
size you can just drag the userform to fit the whole screen.

Otherwise you will have to catch the screen size from the system, and
then resize the userform according to that, information. Unfortunately
I don't know how to catch the screen size.

Regards,

Per