Snasui Excel Forum

Code: Select all

Const db_sheet = "db_student"
Const id_col = 1
Const name_col = 2, surname_col = 3
Public Sub entry_mode()
    Dim blank_row As Single
    blank_row = Worksheets(db_sheet).Cells(Rows.Count, 1).End(xlUp).Row + 1
    With Worksheets(db_sheet)
        .Cells(blank_row, name_col).Value = UserForm1.TextBox1.Value
        .Cells(blank_row, surname_col).Value = UserForm1.TextBox2.Value
    End With
End Sub

Code: Select all

Const db_sheet = "db_student"
Const name_col = 1, surname_col = 2
Public Sub entry_mode()
Dim blank_row As Single
    blank_row = Worksheets(db_sheet).Cells(1, 1).End(xlDown).Row + 1
With Worksheets(db_sheet)
    .Cells(blank_row, name_col).Value = UserForm1.TextBox1.Value
    .Cells(blank_row, surname_col).Value = UserForm1.TextBox2.Value
End With
End Sub

Code: Select all

Public Sub entry_mode()
Dim blank_row As Single
    blank_row = Worksheets(db_sheet).Cells(1, 1).End(xlDown).Row + 1
With Worksheets(db_sheet)
    .Cells(blank_row, name_col).Value = UserForm1.TextBox1.Value
    .Cells(blank_row, surname_col).Value = UserForm1.TextBox2.Value
End With
End Sub

Code: Select all

.Cells(blank_row, name_col).Value = UserForm1.TextBox1.Value