Macro SI dependiendo del valor de la celda

[loreday]

Como estais? Alguien me puede ayudar?

Quiero hacer una macro que diga lo siguiente:

Si celda A1=1, borre unas columnas determinadas
Si celda A1=2, borre otras columnas determinadas
Si celda...

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í

 

[loreday]

Lo he conseguido con in IF and ELSE dentr de otro:

If [h3] = 1 Then
Columns("I:AZZ").Select
Selection.Delete Shift:=xlToLeft
Else
If [h3] = 2 Then
Columns("N:AZZ").Select...

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í

 

[Cacho R]

.
Hola! loreday.

Por ser uno de tus primeros intentos: ¡Baste bien!... Como alternativa te muestro:

Dim misRangos
misRangos = Array("I:AZZ", "N:AZZ", "S:AZZ", "X:AZZ", "AC:AZZ"...

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í

 

[loreday]

Gracias Cacho R.
Me la quedo!! :wink:

 

[Cacho R]

Gracias Cacho R. Me la quedo!! :wink:

¿Aprovechando las ofertas gratuitas?... :P

Saludos y hasta la próxima.
Cacho R.