MsgBox Para formulario de registros repetidos

Para: Dante Amor

Ante todo un cordial saludo amigo espero que me puedas ayudar con un código, lo que busco es que si los registros son repetidos me muestren mensajes es decir en el textbox1+textbox2 pongo nombre y apellido y al guardar si el nombre ya existe me indique un mensaje (Nombre ya registrado Ingrese otro).

En el textbox12 pongo código de personal si al guardar el código ya existe me indique (Código ya registrado Ingrese otro), Gracias por la respuesta que me puedas dar.

Private Sub CommandButton2_Click()
ult = Sheets("Hoja2").Cells(Rows.Count, 2).End(xlUp).Row
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Then
    MsgBox "Favor ingrese todos los datos", vbRetryCancel + vbCritical, "ERROR"
Else
    Sheets("Hoja2").Cells(ult + 1, 2) = TextBox1 & " " & TextBox2 'MsgBox Indicando (NOMBRE YA REGISTRADO INGRESE OTRO)
    Sheets("Hoja2").Cells(ult + 1, 3) = TextBox12 'MsgBox Indicando (CODIGO YA REGISTRADO INGRESE OTRO)
    Sheets("Hoja2").Cells(ult + 1, 4) = TextBox3
    Sheets("Hoja2").Cells(ult + 1, 5) = TextBox4
    Sheets("Hoja2").Cells(ult + 1, 6) = ComboBox1
    Sheets("Hoja2").Cells(ult + 1, 7) = TextBox9
    Sheets("Hoja2").Cells(ult + 1, 8) = TextBox10
    Sheets("Hoja2").Cells(ult + 1, 9) = TextBox5
    Sheets("Hoja2").Cells(ult + 1, 10) = TextBox6
      If OB1.Value = True Then
         Sheets("Hoja2").Cells(ult + 1, 11) = OB1.Caption
      ElseIf OB2.Value = True Then
         Sheets("Hoja2").Cells(ult + 1, 11) = OB2.Caption
      End If
    Sheets("Hoja2").Cells(ult + 1, 12) = ComboBox2 & " - " & ComboBox3
    Sheets("Hoja2").Cells(ult + 1, 13) = TextBox8
    Sheets("Hoja2").Cells(ult + 1, 14) = TextBox11
    UserForm1.Hide
    X = ult + 1
    rango = "B" & X & ":N" & X
    Sheets("Hoja2").Select
    Range(rango).Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    MsgBox "Datos ingresados correctamente"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
OB1 = Unchecked
OB2 = Unchecked
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
End If
Sheets("Hoja1").Select
End Sub

1 respuesta

Respuesta
2

H o l a:

Te anexo la macro actualizada

Private Sub CommandButton2_Click()
'Act.Por.Dante Amor
    If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Then
        MsgBox "Favor ingrese todos los datos", vbRetryCancel + vbCritical, "ERROR"
        Exit Sub
    End If
    '
    Set h2 = Sheets("Hoja2")
    ult = h2.Cells(Rows.Count, 2).End(xlUp).Row + 1
    '
    nombre = TextBox1 & " " & TextBox2
    Set b = h2.Columns("B").Find(nombre, lookat:=xlWhole)
    If Not b Is Nothing Then
        MsgBox "NOMBRE YA REGISTRADO INGRESE OTRO"
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    codigo = TextBox12
    Set b = h2.Columns("C").Find(codigo, lookat:=xlWhole)
    If Not b Is Nothing Then
        MsgBox "CODIGO YA REGISTRADO INGRESE OTRO"
        TextBox12.SetFocus
        Exit Sub
    End If
    '
    h2.Cells(ult, 2) = TextBox1 & " " & TextBox2
    h2.Cells(ult, 3) = TextBox12
    h2.Cells(ult, 4) = TextBox3
    h2.Cells(ult, 5) = TextBox4
    h2.Cells(ult, 6) = ComboBox1
    h2.Cells(ult, 7) = TextBox9
    h2.Cells(ult, 8) = TextBox10
    h2.Cells(ult, 9) = TextBox5
    h2.Cells(ult, 10) = TextBox6
    If ob1.Value = True Then
        h2.Cells(ult, 11) = ob1.Caption
    ElseIf ob2.Value = True Then
        h2.Cells(ult, 11) = ob2.Caption
    End If
    h2.Cells(ult, 12) = ComboBox2 & " - " & ComboBox3
    h2.Cells(ult, 13) = TextBox8
    h2.Cells(ult, 14) = TextBox11
    '
    Unload Me
    With h2.Range("B" & ult & ":N" & ult).Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    '
    MsgBox "Datos ingresados correctamente"
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
    TextBox12 = ""
    ComboBox1 = ""
    ComboBox2 = ""
    ComboBox3 = ""
    ob1 = Unchecked
    ob2 = Unchecked
    h2.Columns("B:B").EntireColumn.AutoFit
    h2.Columns("C:C").EntireColumn.AutoFit
    h2.Columns("D:D").EntireColumn.AutoFit
    Sheets("Hoja1").Select
End Sub
':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar macro si en la celda B1 hay datos

Esta es la macro que utilizo siempre, pero tengo la dificultad que a veces me olvido de colocar el numero de curso (Ejp. 1era_1era o 2da_2da ...)en la celda B1, todo este proceso se ejecuta en la hoja Activa "Curso", lo que busco que la macro se...
2 respuestas

¿Qué hay de mal en este macro?

Quiero hacer un macro para hacer un filtro de una base de datos poniendo como condición un periodo de tiempo, teniendo una celda como fecha de inicio y otra celda como fecha de terminación. Te mando imagen de mi libro y código. Muchas gracias Sub...
1 respuesta

Need a good construction contractor for a home renovation project?

Interested in the uk area. Building a home will be a great investment and dream of their life for most of the people. It is really important to choose the best building contractor for this work. Choosing the right, trustworthy professional contractor...
7 respuestas

Saber el último precio de cierre de cada uno de los valores que compone una cartera de acciones y reflejarlos en un textBox.

Estoy construyendo un formulario para que se vuelque los datos de aquellos la situación de una cartera compuesta por acciones. Es un formulario único pero al clikear en un botón comando se abre un formulario continuo. La situación en la que estoy...
1 respuesta

Como puedo borrar registros relacionados desde un formulario

Tengo un formulario en donde tengo varios registros relacionados, deseo borrar cualquiera de esos registros pero me dice que no puedo borrar registros relacionados, quisiera saber si hay alguna opción con la que pueda borrar.
2 respuestas

Dividir un valor en excel y que el resultado sea igual al de una calculadora manual

Sres. T.E La Consulta es la siguiente: Como dividir 4.888,00 / 30 y que el resultado sea igual tanto en excel como una calculadora manual o la calculado de win xp. Ejemplos: En excel 2003 si divido 4.888,00 / 30 = 162,93 En una Calculadora 4.888,00 /...
2 respuestas

Poner contraseña a una BD de access.

A ver si podéis ayudarme en la siguiente cuestión. Trato de establecer contraseña para la base de datos y no puedo porque aparece un mensaje diciendo que el cifrado de bloques no es compatible con el bloqueo por filas. ¿Cómo puedo arreglar esto?.
2 respuestas

No puedo registrar más de 30k renglones, sale error de desbordamiento (Error 6)

Tengo el siguiente código, que de un formulario pasa los datos a una tabla. El problema es que después de aprox. 35,000 renglones registrados, al querer seguir registrando me aparece el error de desbordamiento (Error 6). Comparto código, si de favor...
3 respuestas

¿Puedo mostrar un subformulario diferente según el valor de un campo para un registro access?

Necesito mostrar un subformulario diferente, según el valor de un campo que llamo "Hecho Extraordinario". Si el hecho es un accidente de transito quiero captar los nombre de los heridos, fallecidos, etc. Si el hecho es un robo de ganado poder captar...
2 respuestas

Error en código para columna de una consulta

Un gusto saludarlos. Quería solicitar su ayuda, porque necesito crear una columna calculada dentro de una consulta access y para eso uso el siguiente código. Saldofinal: IIf(([Nivel]=1 Or [Nivel]=5), ([Sumadesaldoinicial]+[Sumadebe]-[Sumahaber]),...
2 respuestas