Intento de macro

[yonigrinwod]

estoy intentando hacer esta macro para eliminar las columas que en la fila 1 contengan el numero 1

que esoy haciendo mal que no me sale

Sub EliminarColumnas()
Dim UltimaColumna As Integer
Dim n...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[wenner]

Esos 1 están "visibles" en la celda o forma parte de una fórmula que da un resultado que no contiene ningún 1.

Si no es así, sube el archivo.

 

[Macro Antonio]

Hola:

La macro funciona perfectamente.

¿ Tienes claro que solo funciona desde la columna 8 en adelante ?

Saludos

 

[yonigrinwod]

si

son resultado de una formula que con una macro copio a valor

pero si pudieran ayudarme para eliminar exactamente las columnas que en la fila 1 sean igual a 1 estaria mucho mejor

 

[wenner]

Sube el archivo

 

[yonigrinwod]

ahi va

 

[wenner]

La macro se puede optimizar, pero funciona correctamente, le he hecho algún cambio pero el proceso es el mismo:

Sub EliminarColumnas()
    Dim UltimaColumna As Integer
    Dim n As Integer...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[yonigrinwod]

y para eliminar las columnas que esten en blanco en la fila 1

osea cambiar el criterio de 1 en vacio