how to store dynamic textbox values in an array

nsook

New Member
Joined
Mar 10, 2022
Messages
7
Office Version
  1. 365
Platform
  1. Windows
How do I store dynamic textbox values in an array from a userform to be used in a module? I have publicly declared array1() as variant and BuildingNumber as long in my module. I want to save each txtBox value that the user inputs into an array to be used in my module

VBA Code:
Private Sub UserForm_Initialize()

Dim i As Long

BuildingNumber = InputBox("How Many Buildings Have Units?", "Enter Building Number")
UnitNumber = InputBox("How Many Unit Types Are There on This Job?", "Enter Unit Number")
FixtureNumber = InputBox("How Many Fixture Types Are There in Units?", "Enter Fixture Number")

Dim txtB1 As Control
ReDim array1(1 To BuildingNumber)
For i = 1 To BuildingNumber
    Set txtB1 = Controls.Add("Forms.TextBox.1")
    With txtB1
    .Name = "txtBox" & i
    If i <= 25 Then
        .Height = 20
        .Width = 75
        .Left = 100
        .Top = 20 * i * 1
    ElseIf 25 < i And i <= 50 Then
        .Height = 20
        .Width = 75
        .Left = 300
        .Top = 20 * (i - 25) * 1
    ElseIf 50 < i And i <= 75 Then
        .Height = 20
        .Width = 75
        .Left = 500
        .Top = 20 * (i - 50) * 1
    Else
    End If
    array1(i) = Me.Controls("txtBox" & i).Value
    End With
    
Next i
 

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

Forum statistics

Threads
1,223,162
Messages
6,170,431
Members
452,326
Latest member
johnshaji

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top