Excel Forum

Code: Select all

Private Sub CommandButton_Click()
Dim wks As Worksheet
Dim AddNew As Range

Dim iExit As VbMsgBoxResult
Set wks = Sheet1
Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)
 
AddNew.Offset(0, 0).Value = TextBox1


End Sub

Code: Select all

Set wks = Sheet1
Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)
If Application.CountIf(wks.Range("a:a"), Me.TextBox1.Text) = 0 Then
    AddNew.Offset(0, 0).Value = TextBox1
Else
    MsgBox "Check your value again.", vbInformation
End If