Eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA

Escrito por Administrador

20 de diciembre de 2023

Siguiendo con el post anterior, vamos a ver cómo eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA. Y con esto nos vamos de vacaciones de Navidad  laughinglaughinglaughing

Para ello he preparado el ejemplo que os muestro a continuación,

saber-usuarios-conectados-base-datos

Como veis, hay varías columnas vacías. La idea es eliminarlas completamente al pulsar el botón que se encuentra encima de la tabla.

A continuación, os comparto el código del botón.

Nota.- Este código sólo comprueba que se encuentre vacía la segunda fila, pero puedes adaptarlo a tus necesidades. Si tuvieses cualquier problema, solo tienes que escribirlo en los comentarios o abrir un hilo en el foro.

Sub Eliminar_columnas_vacias()

'Identificamos la última columna con datos

h = Cells(2, 16384).End(xlToLeft).Offset(0, 0).Column

'Nos posicionamos en la primera columna

Cells(2, "A").Select

'Iniciamos un bucle eliminando las filas vacías

For i = 2 To h

If ActiveCell.Value = "" Then

ActiveCell.EntireColumn.Delete
ActiveCell.Offset(0, -1).Select

Else
End If

'Recorremos una columna hacia la derecha

ActiveCell.Offset(0, 1).Select

Next

End Sub

Si pulsamos el botón Eliminar columnas vacías, automáticamente desaparecerán las columnas vacías y nos quedaremos únicamente con las que contengan datos.

saber-usuarios-conectados-base-datos

Espero que con este ejemplo hayas aprendido a eliminar las columnas vacías de una tabla en Microsoft Excel usando VBA.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar





Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto