Macro borrar filas especificando valor de una celda
Publicado por Beatriz (3 intervenciones) el 15/01/2020 13:03:40
Buenos días
Tengo problemas con una macro que quiero para eliminar filas, especificando qúe fila quiero elimina, es decir, al hacer click en la macro, me pregunta "que fila quieres eliminar" y especificas el valor de la celda que quieres borrar.
Hasta ahí bien, pero no quiero que me borre nada, si no hay valor en dicha celda (en blanco) ya que no quiero que me altere títulos, ni nada.
Hasta ahora hice lo siguiente, que me funciona correctamente siempre que especifique un valor, pero que me da error si doy a aceptar sin especificar ningún valor
¿Me podrían ayudar?
Gracias
SAludos
Tengo problemas con una macro que quiero para eliminar filas, especificando qúe fila quiero elimina, es decir, al hacer click en la macro, me pregunta "que fila quieres eliminar" y especificas el valor de la celda que quieres borrar.
1
2
3
4
5
6
7
8
9
10
11
12
Sub Eliminar_Reclamacion()
Valor = InputBox("¿Nº RECL a eliminar?")
Set Celda = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(Valor, LookIn:=xlValues)
If Not Celda Is Nothing Then Rows(Celda.Row).Delete
End Sub
Hasta ahí bien, pero no quiero que me borre nada, si no hay valor en dicha celda (en blanco) ya que no quiero que me altere títulos, ni nada.
Hasta ahora hice lo siguiente, que me funciona correctamente siempre que especifique un valor, pero que me da error si doy a aceptar sin especificar ningún valor
¿Me podrían ayudar?
Gracias
SAludos
Valora esta pregunta
0
