Snasui Excel Forum

Code: Select all

Sub cmdSave_Click()
    Dim r As Long
    If Application.CountIf(Range("s:s"), TextBox1.Text) > 0 Then
        MsgBox "รหัสนี้มีแล้ว!!!"
        TextBox1.Value = ""
               Exit Sub
                End If
   
    'If Application.CountIf(Range("b:b"), TextBox2.Text) > 0 Then
        'MsgBox "ชื่อซ้ำ!!!"
        'Exit Sub
    'End If
    With Sheets("Sheet1")
        r = .Range("d" & Rows.Count).End(xlUp).Row + 1
        .Cells(r, 4) = TextBox1.Text
            
      End With
End Sub

Code: Select all

 If Application.CountIf(Range("s:s"), TextBox1.Text) > 0 Then