Borrar y mover datos de una tabla
Tengo una tabla con ciertos datos, lo que hago es buscar el código del dato que deseo borrar con un Inputbox y se borra. Lo que me falta es correr todos los demás datos a partir de la posición del código eliminado.
Te dejo el link del archivo por si me puedes ayudar. Saludos y gracias.
https://www.dropbox.com/s/o7vzq60rj21p8pd/Borrar%20y%20mover%20datos.xlsm?dl=0
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro de la propuesta.
Sub Eliminar()
'Por.Dante Amor
Set h = Sheets("Hoja2")
pedido = InputBox("Ingrese el código del pedido que desea borrar.", "BORRAR PEDIDO")
If pedido = "" Then Exit Sub
Set b = h.Columns("A").Find(pedido, lookat:=xlWhole)
If Not b Is Nothing Then
Rows(b.Row).Delete
MsgBox "Código eliminado", vbInformation
Else
MsgBox "Código de pedido no existe", vbExclamation
End If
End Sub
