Eliminar registros en VBA excel
Bueno primero agradecer por la ayuda a continuación mi problema Tengo un formulario con 3 textbox, textbox1, textbox2 y textbox3 y una hoja llamada personas con información DNI, APELLIDOS y DIRECCIÓN que equivalen a los 3 textbox anteriores, ahora cuando coloco un dato en el textbox1 (en este caso buscando por el DNI)y hago click en el siguiente cuadro (textbox2)me encuentra los datos registrados de esa persona (claro esta de su fila correspondiente )lo que deseo es un botón que me permita eliminar ese dato que encontré o cualquier otro dato( claro esta con toda su información la cual esta en la fila de la persona correspondiente )
2 respuestas
H o l a:
Te anexo el código para que lo pongas en tu botón:
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Eliminar registro
If TextBox1 = "" Then
MsgBox "Escribe un dato en el DNI", vbExclamation, "ELIMINAR REGISTROS"
TextBox1.SetFocus
Exit Sub
End If
'
Set h = Sheets("Personas")
Set b = h.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
h.Rows(b.Row).Delete
MsgBox "Registro eliminado", vbInformation, "ELIMINAR REGISTROS"
Else
MsgBox "El DNI no existe", vbCritical, "ELIMINAR REGISTROS"
End If
End Sub
Alberto: La verdad es que no soy un especialista en VBA de Excel, pero reo que casi lo tienes resuelto, según veo, porque si tienes localizada la Fila por la busqueda, el Borrar la fila entera:
Ejemplo: Supongamos que la fila que quieres borrar es la 240 y tienes ya seleccionado la Celda A240.
Range("A240"). EntireRow.Delete te borrará la fila entera. >> Jacinto