¿Eliminar filas y columnas con macro?
Buenos días,
Quisiera saber si existe alguna posibilidad de eliminar filas y columnas automáticamente que tengan como resultado la condición 'Falso'.
Actualmente trabajo con filtros y eliminar pero se me hace costoso por el número de registros que tengo.
¿He oído que quizá con una macro?
Gracias por vuestro tiempo
Johan Madrid.
Quisiera saber si existe alguna posibilidad de eliminar filas y columnas automáticamente que tengan como resultado la condición 'Falso'.
Actualmente trabajo con filtros y eliminar pero se me hace costoso por el número de registros que tengo.
¿He oído que quizá con una macro?
Gracias por vuestro tiempo
Johan Madrid.
Respuesta de santiagomf
1
Supongo que te servirá esta macro. Tienes que entrar en el editor de Visual Basic y copiarla:
Option Explicit
Sub borrarFilasConCiertoValor()
Const nColBuscar = 2 ' Poner el número de la columna donde buscaremos el dato (A=1, B=2, etc...)
Const valorBorrar = False ' El valor que tenemos que encontrar para borrar la fila
Dim i As Long
Dim maxLin As Long
Dim auxVal As Variant
maxLin = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = maxLin To 1 Step -1
' Ejecutamos desde el final hacia el principio porque al borrar una línea
' las que están detras se renumeran
auxVal = Cells(i, nColBuscar).Value
If auxVal <> "" And auxVal = valorBorrar Then Rows(i).Delete
Next i
End Sub
Option Explicit
Sub borrarFilasConCiertoValor()
Const nColBuscar = 2 ' Poner el número de la columna donde buscaremos el dato (A=1, B=2, etc...)
Const valorBorrar = False ' El valor que tenemos que encontrar para borrar la fila
Dim i As Long
Dim maxLin As Long
Dim auxVal As Variant
maxLin = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = maxLin To 1 Step -1
' Ejecutamos desde el final hacia el principio porque al borrar una línea
' las que están detras se renumeran
auxVal = Cells(i, nColBuscar).Value
If auxVal <> "" And auxVal = valorBorrar Then Rows(i).Delete
Next i
End Sub
Fantástico!
Mil gracias, me has hecho el favor del año! Ya no necesito regalos de reyes!
En serio, muchas gracias por tu ayuda y por la rapidez!
Johan
Mil gracias, me has hecho el favor del año! Ya no necesito regalos de reyes!
En serio, muchas gracias por tu ayuda y por la rapidez!
Johan
