I have a value collected from a code and have cell assignment.

Dim SMPL as String

Range "A1" = String

I started to create a form and textbox along with the common OK and cancel
button, but is there a simple way to pass a string value to a form?

When I ran the code and initialized the form the text box would show
Me.Change1.Value=(SMPL).

*** From a Form ***

Private Sub Change1Text_Change()

Me.Change1.Value = (SMPL)

End Sub

My intention is to create a checkbox next to the texbox. If the checkbox =
true then the string will be placed in the cell. If the checkbox = false,
then the string will be null and not printed.

The reason I am asking this because at times, the "user" will need to have
the option to select all or portions of the data collected.

Thank you,

Tom

Assumiong that SMPL is the variable in the basic code. If your code to
assign the value is in the UserForm code module somewhe

Me.TextBox1.Value = SMPL

If you want to assign the value from another code module, you would have to
make the UserForm run modeless or hide it so that the othe code would ruin.
And you would have to specifically use the UserForm name instead of Me.

"TomP" wrote:

I have a value collected from a code and have cell assignment.

Dim SMPL as String

Range "A1" = String

I started to create a form and textbox along with the common OK and cancel
button, but is there a simple way to pass a string value to a form?

When I ran the code and initialized the form the text box would show
Me.Change1.Value=(SMPL).

*** From a Form ***

Private Sub Change1Text_Change()

Me.Change1.Value = (SMPL)

End Sub

My intention is to create a checkbox next to the texbox. If the checkbox =
true then the string will be placed in the cell. If the checkbox = false,
then the string will be null and not printed.

The reason I am asking this because at times, the "user" will need to have
the option to select all or portions of the data collected.

Thank you,

Tom

I initialized the form at the beginning of the module and hide to give it a
chance to find a value. I entered the the code as shown in your example and
when the form appears, no text will appear on the textbox. I even made sure
that the variables are public. Is there anything else I need to check for on
the form or properties?

Thank you,



"JLGWhiz" wrote:

Assumiong that SMPL is the variable in the basic code. If your code to
assign the value is in the UserForm code module somewhe

Me.TextBox1.Value = SMPL

If you want to assign the value from another code module, you would have to
make the UserForm run modeless or hide it so that the othe code would ruin.
And you would have to specifically use the UserForm name instead of Me.

"TomP" wrote:

I have a value collected from a code and have cell assignment.

Dim SMPL as String

Range "A1" = String

I started to create a form and textbox along with the common OK and cancel
button, but is there a simple way to pass a string value to a form?

When I ran the code and initialized the form the text box would show
Me.Change1.Value=(SMPL).

*** From a Form ***

Private Sub Change1Text_Change()

Me.Change1.Value = (SMPL)

End Sub

My intention is to create a checkbox next to the texbox. If the checkbox =
true then the string will be placed in the cell. If the checkbox = false,
then the string will be null and not printed.

The reason I am asking this because at times, the "user" will need to have
the option to select all or portions of the data collected.

Thank you,

Tom

P.S. SMPL would have to be a public variable to be used between modules.

"TomP" wrote:

I have a value collected from a code and have cell assignment.

Dim SMPL as String

Range "A1" = String

I started to create a form and textbox along with the common OK and cancel
button, but is there a simple way to pass a string value to a form?

When I ran the code and initialized the form the text box would show
Me.Change1.Value=(SMPL).

*** From a Form ***

Private Sub Change1Text_Change()

Me.Change1.Value = (SMPL)

End Sub

My intention is to create a checkbox next to the texbox. If the checkbox =
true then the string will be placed in the cell. If the checkbox = false,
then the string will be null and not printed.

The reason I am asking this because at times, the "user" will need to have
the option to select all or portions of the data collected.

Thank you,

Tom

Thank you for your help! I got it to work...

Tom

"JLGWhiz" wrote:

P.S. SMPL would have to be a public variable to be used between modules.

"TomP" wrote:

I have a value collected from a code and have cell assignment.

Dim SMPL as String

Range "A1" = String

I started to create a form and textbox along with the common OK and cancel
button, but is there a simple way to pass a string value to a form?

When I ran the code and initialized the form the text box would show
Me.Change1.Value=(SMPL).

*** From a Form ***

Private Sub Change1Text_Change()

Me.Change1.Value = (SMPL)

End Sub

My intention is to create a checkbox next to the texbox. If the checkbox =
true then the string will be placed in the cell. If the checkbox = false,
then the string will be null and not printed.

The reason I am asking this because at times, the "user" will need to have
the option to select all or portions of the data collected.

Thank you,

Tom