Eliminar filas segun rango ingresado en un InputBox

[MauriciodeAbreu]

Buenos compañeros.

Tengo una tabla algo grande, en la cual he tenido que eliminar en un par de ocasiones ciertas filas, lo cual implica desbloquear la hoja, hacer visible los encabezados, seleccionar las filas, borrarlas, ocultar encabezados y bloquear nuevamente la hoja.

Me preguntaba si es posible mediante un InputBox, seleccionar un rango de celdas para eliminar las filas asociadas a ese rango de celdas ¿?

 

Agradecido de antemano por sus comentarios.

 

 

[AlexanderS]

Hola @MauriciodeAbreu, puedes probar con este código:

Sub Eliminar_Rango(): On error Resume Next
Dim Rango As Range
    ActiveSheet.Unprotect "1234"
    
    Set Rango = Application.InputBox("Selecione un rango de celdas para eliminar las filas asociadas a ese rango", Type:=8)
    
    If Not Rango Is Nothing Then Rango.EntireRow.Delete
    
    ActiveSheet.Protect "1234"
    
End Sub

Comentas, saludos

[MauriciodeAbreu]

Hola AlexanderS, muchas gracias por responder.

He probado el codigo y funciona perfecto, y he visto porque no funcionabo el que trataba de hacer ?‍♂️ jajajajaja

En definiticas el que sabe sabe.

Nuevamente muchas gracias?