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 de Adriel Ortiz Mangia
2
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 SubValora la respuesta para finalizar saludos!
