Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim l As Long, i As Integer
    With Worksheets("Original")
        l = .Range("b" & .Rows.Count).End(xlUp).Row
        .Cells(l + 1, 1).Value = Me.TextBox1.Text
        For i = 1 To 6
            .Cells(l + i, 2).Value = Me.Controls("TextBox" & i * 2).Text
            .Cells(l + i, 3).Value = Me.Controls("TextBox" & i * 2 + 1).Text
            .Cells(l + i, 4).Value = Me.TextBox14.Text
            .Cells(l + i, 5).Value = Me.TextBox15.Text
        Next i
    End With
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim l As Long, i As Integer
    Dim la As Integer
    With Worksheets("Original")
        l = .Range("b" & .Rows.Count).End(xlUp).Row
        If Me.TextBox1.Value = "" Then Exit Sub
        .Cells(l + 1, 1).Value = Me.TextBox1.Text
        For i = 1 To 6
            If Me.Controls("TextBox" & i * 2).Text <> "" Then
                la = la + 1
                .Cells(l + la, 2).Value = Me.Controls("TextBox" & i * 2).Text
                .Cells(l + la, 3).Value = Me.Controls("TextBox" & i * 2 + 1).Text
                .Cells(l + la, 4).Value = Me.TextBox14.Text
                .Cells(l + la, 5).Value = Me.TextBox15.Text
            End If
        Next i
    End With
End Sub