Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub



Private Sub UserForm_Initialize()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    If Application.CountIf(Range("a:a"), TextBox1.Text) > 0 Then
        emptyRow = Application.Match(CLng(TextBox1.Text), Range("a:a"), 0)
    Else
        emptyRow = WorksheetFunction.CountA(Range("a:a")) + 1
    End If
    Cells(emptyRow, 1).Value = TextBox1.Value
    Cells(emptyRow, 2).Value = TextBox2.Value
    Cells(emptyRow, 3).Value = TextBox3.Value
End Sub