Hola! David. Una opción podría ser:__________________ Private Sub CommandButton1_Click()TextBox1.SetFocusIf TextBox1 = Empty Then MsgBox "Faltan Datos por Registrar en la Casilla 1", vbCritical, "Error"ElseIf TextBox2 = Empty Then MsgBox "Faltan Datos por Registrar en la Casilla 2", vbCritical, "Error" TextBox2.SetFocusElseIf TextBox3 = Empty Then MsgBox "Faltan Datos por Registrar en la Casilla 3", vbCritical, "Error" TextBox3.SetFocusElse With Sheets("Hoja2") If WorksheetFunction.CountIf(.[A:A], TextBox1) > 0 Then MsgBox "Casilla 1 repetida", vbCritical, "Error" Exit Sub End If .Range("A65536") ... ver debate
