Problem in User Forms
 

I am using an array to pass variables to a User Form as follows (with Array
indices hard coded at the moment).

Array data as follows;
ChartSourceSheets(1, 1) = "SynchroELEVATIONSYNCHROTELLBACK"
' Sheet
ChartSourceSheets(1, 2) = "F"
' Data Column
ChartSourceSheets(1, 3) = "B"
' Timestamp Column
ChartSourceSheets(1, 4) = "CheckBox1"
' Check Box on Filter Dialog

If ChartSourceSheets(1, 1) < Empty Then
filtertimedialog.CheckBox1.Visible = True
Plot_Series_1 = Sheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "1")
If Plot_Series_1 = "Y" Or Plot_Series_1 = "y" Then
CheckBox1.Value = True
Else: CheckBox1.Value = False
End If
Min_Default_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "2")
Max_Default_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "3")
Min_Setting_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "4")
Max_Setting_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "5")
Unit_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "6")
filtertimedialog.CheckBox1.Caption = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "7") & " (" & Unit_Series_1 & ")"
If Worksheets(ChartSourceSheets(1, 1)).Visible = True Then
filtertimedialog.CheckBox1.Enabled = True
Else: filtertimedialog.CheckBox1.Enabled = False
End If
Else: filtertimedialog.CheckBox1.Visible = False
End If


I can't work out how to pass the "Checkbox1" as a variable correctly.

Would appreciate any help on this.

May thanks

Alec

Problem in User Forms
 

alecbowman wrote:
I am using an array to pass variables to a User Form as follows (with Array
indices hard coded at the moment).

Array data as follows;
ChartSourceSheets(1, 1) = "SynchroELEVATIONSYNCHROTELLBACK"
' Sheet
ChartSourceSheets(1, 2) = "F"
' Data Column
ChartSourceSheets(1, 3) = "B"
' Timestamp Column
ChartSourceSheets(1, 4) = "CheckBox1"
' Check Box on Filter Dialog

If ChartSourceSheets(1, 1) < Empty Then
filtertimedialog.CheckBox1.Visible = True
Plot_Series_1 = Sheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "1")
If Plot_Series_1 = "Y" Or Plot_Series_1 = "y" Then
CheckBox1.Value = True
Else: CheckBox1.Value = False
End If
Min_Default_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "2")
Max_Default_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "3")
Min_Setting_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "4")
Max_Setting_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "5")
Unit_Series_1 = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "6")
filtertimedialog.CheckBox1.Caption = Worksheets(ChartSourceSheets(1,
1)).Range(ChartSourceSheets(1, 2) & "7") & " (" & Unit_Series_1 & ")"
If Worksheets(ChartSourceSheets(1, 1)).Visible = True Then
filtertimedialog.CheckBox1.Enabled = True
Else: filtertimedialog.CheckBox1.Enabled = False
End If
Else: filtertimedialog.CheckBox1.Visible = False
End If


I can't work out how to pass the "Checkbox1" as a variable correctly.

Would appreciate any help on this.

May thanks

Alec

dim ChartSourceSheets() As Variant
ReDim ChartSourceSheets(10, 5) ' or what you need
ChartSourceSheets(1, 2) = "F"
Set ChartSourceSheets(1, 4) = filtertimedialog.CheckBox1
Debug.Print ChartSourceSheets(1, 2)


now you can use
ChartSourceSheets(1, 4).Visible = True