Modificar el código para registrar el plan contable en excel
Para Dante:
Buenos días, tengo un código que me ayudaste a armar que registra el plan contable pero al poner el formato de tabla me registra arriba me podrías ayudar a mejorarlo. De antemano gracias. Te envié el archivo a tu correo
1 respuesta
Respuesta de Dante Amor
2
Te anexo el código actualizado
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("plan")
If TextBox2 = "" Or TextBox4 = "" Then
MsgBox "Llene correctamente este formulario de datos", vbExclamation, "NUEVA CUENTA"
Exit Sub
End If
cod = TextBox1 & TextBox2 & TextBox3
If Not IsNumeric(cod) Then
MsgBox "El código no es numérico", vbExclamation, "NUEVA CUENTA"
Exit Sub
End If
cod = Val(cod)
Set b = h1.Columns("A").Find(cod, lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "El código ya existe", vbExclamation, "NUEVA CUENTA"
Exit Sub
End If
'Dar de alta el código
registrado = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To u
If h1.Cells(i, "A") > cod Then
h1.Rows(i).Insert
h1.Cells(i, "A") = cod
h1.Cells(i, "B") = TextBox4
registrado = True
Exit For
End If
Next
If registrado = False Then
h1.Cells(u + 1, "A") = cod
h1.Cells(u + 1, "B") = TextBox4
End If
MsgBox "Código registrado", vbInformation, "NUEVA CUENTA"
Unload Me
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
