Foro

hola a todos mi problema es el siguiente quiero eliminar unas columnas vacias en el excel a traves de una macro, sin embargo estas hojas no siempre tienen las mismas columnas vacias por lo que la macro debera recorrer todas las columnas para detectar cual o cuales columnas no tienen ningun dato contenido en sus columnas y a traves de esta inforcion me las elimine o me las oculte eso gracias

Hola gangan esta macro te verifica la fila 1 y si detecta que esta vacia elimina la columna.

Sub MyMacro()
Range("a1".Select

For i = 1 To 155
If ActiveCell.Value = "" Then
Selection.EntireColumn.Delete
ActiveCell.Offset(0, -1).Select
End If
ActiveCell.Offset(0, 1).Select
Next
End Sub

Saludos y gracias por participar en el foro

esta buena tu formula gracias de echo me elimino la primera columna vacia, pero lo que pasa ahora es que tenfo un campo que me ocupa 4 columnas y quiero que el programa me deje la columnas donde este la informacion solamente, las otras columnas son para ajustar el ancho pero estan vacias y como digo tu codigo no las detecta, me toma como si esas 4 columnas estuvieran llenas ese es el dilema compadre gracias por todo y si sabes como solucionarlo te lo agradeceria, chau y espero respuesta

Logico, meimagino que tienes celdas convinadas, te recomiendo desconbinar esas celdas..

Menu-Formato-Celdas-Alineacion-Convinar celdas

Desactiva la casilla de convinar celdas..

Saludos.

Si eso es, pero sabes tengo problemas con el codigo MyMAcro xq me lanza un error

Sub MyMacro()
Range("a11".Select ' modifico para que empieze a partir de esa celda

For i = 1 To 155
If ActiveCell.Value = "" Then
Selection.EntireColumn.Delete
ActiveCell.Offset(0, -1).Select 'Aqui me lanza el error "1004" error 'en tiempo de ejecucion,error definido por la aplicaion o el objeto
End If
ActiveCell.Offset(0, 1).Select
Next
End Sub

si puedes ayudarme te agradeceria para descombinar las celdas grabe esta macro

Columns("A:T".Select
With Selection
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

espero tu respuesta amigo