Snasui Excel Forum

Code: Select all

Public Sub CommandButton6_Click()

    n = UserForm1.ComboBox2.Value
    m = 3 * n
    
    Dim one() As Double
    ReDim one(1 To n, 1 To m) As Double
    
    For ii = 1 To n
        For jj = 3 * (ii - 1) + 1 To m
            one(ii, jj) = input1(tt, 2 + 3 * (ii - 1)) - input1(tt, jj)
            'Cells(ii, jj).Value = one(ii, jj)
        Next jj
    Next ii

Code: Select all

Private Sub CommandButton3_Click()

    n = UserForm1.ComboBox2.Value
    m = 3 * n
    
    For ii = 1 To n
        For jj = 3 * (ii - 1) + 1 To m
            UserForm4.MultiPage1.Page1.Controls("TextBox" & jj + (21 * (ii - 1))).Value = UserForm2.one(ii, jj)
        Next jj
    Next ii