Macro para eliminar columas desde una celda vacía

Es un gusto saludarlos, quisiera saber si alguien me puede ayudar con lo siguiente:
Necesito una macro que elimine columnas que se encuentren con datos vacios desde la fila 3 hacia abajo.
Me explico, en las 2 primeras filas esta el encabezado por lo que solo están llenas algunas columnas.
Necesito eliminar las columnas que no contengan datos desde la fila 3, es decir, si no existen datos desde la fila 3, eliminar toda la columna. Pero ojo, eliminar la columna, no la fila.
Les dejo una foto:

Muchas gracias!

Un afectuoso saludo!

Jose.

1 Respuesta

Respuesta
1

Te anexo la macro

Sub EliminarColumna()
'Por.Dante Amor
    For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If Cells(Rows.Count, i).End(xlUp).Row = 2 Then
            Columns(i).Delete
        End If
    Next
End Sub

Saludos.Dante Amor

No olvides valorar la respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

Macro que sume de acuerdo al primer dígito

Muy buenos días: Estoy en busca de una macro, "No Fórmula de excel", que realice suma de acuerdo al primer dígito como se ve en la ilustración, lo que esta resaltado en color seria el resultado de la macro. ¿Esto se puede?
1 respuesta

Ordenar con un orden repetido, no de menor a mayor, en Excel

Tenemos una tabla, con un identificador delante generado a partir de unas operaciones matemáticas, que comprende entre un rango de 1 al 9. Pongamos que el orden es este: 1,2,3,1,2,3,1,2,3,1,2,3,4,5,6,4,5,6,4,5,6,4,5,6,7,8,9. Ahora estoy intentando...
2 respuestas

Macro para buscar, encontrar y copiar datos especificos

Tengo un libro con 2 hojas, hoja1 y hoja2, en la hoja2 tengo una base de datos de la siguiente manera: (Ej. Juan, tengo muchos mas con diferentes nombres e información diferente pero en el mismo orden) A B C D E 1 JUAN 2 1/1/14 INGRESOS 1 1ER SEM...
1 respuesta

Comboboxs dependientes en una hoja de excel

Tengo en una hoja de excel la Columna A perteneciente al Distribuidor1 con la siguiente informacion; Distribuidor1 Departamento1 Departamento2 Etc En la otra columna se encuentra el Distribuidor2, con el departamento 3, Departamento4, etc. Y así...
3 respuestas

¿Cómo encontrar fechas de corte para una serie de fechas sin considerar sábados, domingos ni días festivos?

Tengo data histórica para muchos elementos. Cada data histórica tiene una fecha de inicio y una fecha final. Sin embargo, existe el riesgo de que me falten datos entre ambas fechas y deseo detectar las fechas faltantes obviando los sábados, domingos...
1 respuesta

Eliminar datos de toda una fila al eliminar un data de una celda...

Quisiera saber si se podrá realizar lo siguiente: Necesito que al eliminar el dato que se encuentra en la columna B fila 3 osea B3 este me elimina los datos que se encuentran a un lado de su misma fila y así sucesivamente hasta la fila 4002
2 respuestas

Sumatorio total por año y cliente para dante amor

Tengo un excel con 5 pestañas, una para cada año 2010-2014. En cada pestaña hay una tabla con 3 culumnas: nr cliente, descripcion cliente e importe. Necesito, en otra pestaña, hacer un resumen. 7 columnas: nr cliente, descripcion, importes 2010,...
2 respuestas

Eliminar guiones de las deldas en las que exista al final, de una columna con datos

Ya me ayudaste antes y no poco con mis problemas con VBA en Excel. Verás necesito una macro que recorra una columna (AA) en la que hay celdas con texto. En algunas de ellas al final del texto aparecen unos guiones que necesitaria eliminar. No...
3 respuestas