Eliminar Filas
Hola Elsa, mi necesidad es la siguiente: Si los valores en C32 y D32 son inguales a cero, entonces eliminamos 7 filas hacia arriba (incluida la de la condición, en este caso la fila 32), en caso contrario no hacer nada.
Muchas Gracias, pensé que no tendría que quitarte más tiempo, pero ...
Muchas Gracias, pensé que no tendría que quitarte más tiempo, pero ...
1 respuesta
Respuesta de Elsa Matilde
1
Aquí va la nueva rutina, que colocarás en un módulo:
Sub macroElimina7()
If Range("C32").Value = 0 And Range("D32").Value = 0 Then
Range(Range("C32"), Range("C32").Offset(-6, 0)).EntireRow.Select
Selection.Delete
Range("C32").Select
End If
End Sub
Atención: como se trata de eliminar filas, no olvides realizar antes una copia de tu archivo.
Sub macroElimina7()
If Range("C32").Value = 0 And Range("D32").Value = 0 Then
Range(Range("C32"), Range("C32").Offset(-6, 0)).EntireRow.Select
Selection.Delete
Range("C32").Select
End If
End Sub
Atención: como se trata de eliminar filas, no olvides realizar antes una copia de tu archivo.
