Eliminar filas duplicadas condicional. En Excel.
Sigo vuestros trabajos desde hace ya tiempo y me son muy útiles, claro estudiándolos,
Soy aficionado a la programación principalmente en el Dbase III plus y Clipper 5.2.
Ahora comento my pequeño problema, tengo una hoja Excel en la cual e gravado listado de ficheros,
Los ordeno por columna (a) donde está el nombre y en columna (b) tengo el tamaño del fichero en Bits.
Ejemplo:
Columna (a) 03LC2050.pdf y en columna (b) 11.819.732 (primera fila)
Columna (a) 03LC2050.pdf y en columna (b) en blanco (segunda fila)
Y quiero eliminar fila donde Columna (b) está en blanco, sin datos
Y este es mi pequeño problema, pero no sé cómo hacer una Macro para que me realice el trabajo de eliminar fila donde Columna (b) este sin datos.
Muchas gracias por su ayuda.
03lc2050.pdf 11.819.732
03lc2050.pdf esta es la que quiero eliminar.
1 Respuesta
Te anexo la macro
Sub Eliminar_Filas()
'Por.Dante Amor
col = "B" 'columna para aplicar la condición
'texto de la condición
'Para una fecha: "10/07/2017" el formato debe ser dd/mm/aaaa
'Para un número: "123"
texto = "" '
valor = texto
If IsNumeric(texto) Then valor = Val(texto)
If IsDate(texto) Then valor = CDate(texto) '
Application.ScreenUpdating = False
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If LCase(Cells(i, col)) = LCase(valor) Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Filas eliminadas", vbInformation, "DAM"
End SubPuedes revisar otras publicaciones en:
https://www.gerencie.com/eliminar-filas-en-excel-con-condicion.html
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias!
Muchísimas gracias. Dante Amor por tu ayuda.
Acondicionare la Macro y le informare del funcionamiento
De nuevo muchas gracias.
