Insertar datos en una tabla y que el código no se repita

Como puedo hacer para insertar los datos de manera sucesiva y no en una sola fila. Y que los datos insertados en en la columna "CODIGO" no se repitan.

1 Respuesta

Respuesta
2

[Hola 

¿Puedes poner la macro para modificar?

Te paso la macro.

Reemplaza todo el código del botón aceptar por esto.

Private Sub CommandButtonAceptar_Click()
'
'[Por Adriel Ortiz
Set h = Sheets("Hoja1")
    Set r = Columns("B")
    Set b = r.Find(TextBox1, lookat:=xlWhole)
        If Not b Is Nothing Then
           MsgBox "El codigo ya existe", vbExclamation
           Exit Sub
        End If
    If MsgBox("Son correctos los datos ?" + vbNewLine + _
    "Desea proceder", vbOKCancel) = vbOK Then
        f = 3
        Do While h.Cells(f, "B") <> ""
            f = f + 1
        Loop
        '
        h.Cells(f, "B") = Val(TextBox1)         ' Codigo
        h.Cells(f, "C") = TextBox2              ' Nombre de prod.
        h.Cells(f, "D") = TextBoxDescripcion    ' Descripción
        h.Cells(f, "E") = TextBoxPreventista
        h.Cells(f, "F") = Val(TextBoxCosto)
        h.Cells(f, "G") = Val(TextBoxUnitario)
        h.Cells(f, "H") = TextBoxCategoria
        '
        'LIMPIAR
        '
        TextBox1 = ""
        TextBox2 = ""
        TextBoxDescripcion = ""
        TextBoxPreventista = ""
        TextBoxCosto = ""
        TextBoxUnitario = ""
        TextBoxCategoria = ""
        '
    Else
        MsgBox "Registro cancelado", vbInformation
        Exit Sub
     End If
End Sub

Valora la respuesta para finalizar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas