Eliminar registros en excel VBA
(Es para Elsa) hola elsa buenas noches como me indicaste quisiera pedirte ayuda con el botón eliminar porque como tu misma viste cuando elimino un registro no me dice si deseo eliminarlo o no solo lo elimina de frente no se si podrías mandármelo en el mismo archivo que te envíe seria de mucha ayuda para mi y posteriormente quisiera hacerte una pregunta sobre listobox ya que con un ejemplo hice uno pero no entiendo bien una función y por más que me mato la cabeza no me acepta caracteres numéricos pero eso sera en otra pregunta
1 respuesta
Respuesta de Elsa Matilde
1
Esta es la macro:
Private Sub CommandButton2_Click()
'mejorada x Elsamatilde
'Eliminar registro
If TextBox6 = "" Then
MsgBox "Escribe un dato en el DNI", vbExclamation, "ELIMINAR REGISTROS"
TextBox6.SetFocus
Exit Sub
End If '
'no hace falta buscarlo porque ya se lo ubicó en el evento TextBox6_Afterupdate
'la fila encontrada se guardó en la variable 'filalibre'
sino = MsgBox("¿Confirmas eliminar este registro?", vbQuestion + vbYesNo, "CONFIRMAR")
If sino <> vbYes Then Exit Sub
'si se confirmó se elimina
Set h = Sheets("JUNTASVECINALESACTUALIZADAS")
Cells(filalibre, "A").EntireRow.Delete
MsgBox "Registro eliminado", vbInformation, "ELIMINAR REGISTROS"
'para limpiar todos los textbox
For Each txt In Me.Controls
If TypeName(txt) = "TextBox" Then txt.Value = ""
Next txt
TextBox6.SetFocus
End SubUtilicé la misma variable 'filalibre' que guarda el registro buscado en el evento del textbox.
Sdos!
