help

[abel89]

Hola,
Alguien tiene una depuración correcta y sencilla para esta macro?

saludos

Abel

Sub Veurede81()

Rows("92:230").Hidden = True
Rows("92:94").Hidden = False
Rows("97:99").Hidden = False...

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]

Por ejemplo así, Abel:

Sub Veurede81()
Dim Rng As Range, i%
Rows("92:230").Hidden = True: Set Rng = Cells(92, "a")
For i = 92 To 217 Step 5
  Set Rng = Union(Rng, Cells(i, "a").Resize(3))...

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í

 

[abel89]

Cacho, eres el no va más. Funciona perfecto. Muchisimas gracias.

Te pongo un reto más complicado aún, bueno si tienes tiempo y ganas.

¿Cómo seria esta serie?

Sub Veurede83()...

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]

Cacho, eres el no va más.

¡Qué quieres que te diga!...

La expresión "no va más" la tengo asociada a los casinos.
Luego me pregunto (y te pregunto): - ¿Me viste "cara" de...

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í

 

[abel89]

Fenomenal Cacho. Funciona perfecto.
Eres una ayuda valiosisima.

Una ultima pregunta, si tomando como rango las columnas de la "d" a la "aa" solo quiero que aparezcan las columnas enteras "e"...

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]

Por cierto lo de "el no va más" sólo era un expresión que significa algo así como que eres el mejor.

¡Mirá vos!... Pensaba que...

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í

 

[abel89]

ok

 

[Cacho R]

Una ultima pregunta, si tomando como rango las columnas de la "d" a la "aa" solo quiero que aparezcan las columnas enteras "e", "h", "k", "n", "q", "t", "w", "z", ¿cómo puedo...

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í

 

[abel89]

Hola Cacho,

Dices para ver si algo que depurar
Yo creo que es mejor decir qué es lo que esta depurado, si es que hay algo depurado.

Las filas estan cogidas de 5 en 5 y o bien cojo la 3a, la 4a o...

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]

.
Comenta, Abel, que es lo que hace esta parte del código:

For i = 92 To 230 Step 5

Next

En particular: ¿Para que sirve "ese" Step?

 

[abel89]

saltar de 5 en 5 des de 92 a 230

 

[Cacho R]

saltar de 5 en 5 des de 92 a 230

¡Perfecto!... Ahora bien, si analizas:

'Columns("d").EntireColumn.Hidden = False
'Columns("g").EntireColumn.Hidden = False...

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í

 

[abel89]

Set i = NUMERO DE COLUMNA?????
For i = 4 To 27 Step 3

Columns("i").EntireColumn.Hidden = False
Next

 

[Cacho R]

Set i = NUMERO DE COLUMNA?????
For i = 4 To 27 Step 3

Columns("i").EntireColumn.Hidden = False
Next

¡¡¡ Wooooowwwww !!!...
Esto es un pequeño avance para la humanidad pero...

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í

 

[abel89]

Sub VivaCacho()
Columns("d:aa").ColumnWidth = 12
Columns("d:aa").Hidden = True
For h = 4 To 27 Step 3
Columns(h).Hidden = False
Next
End sub

 

[Cacho R]

.

Sub VivaCacho()

Jajajajajajajajajajajaj...

De hecho: ¡Sospeché -desde un principio- que lo sabías!

¡Felicitaciones, Abel!... ¿Qué se siente resolver por sí mismo "algo"...

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í

 

[abel89]

Sub Veurede81()
Application.ScreenUpdating = False
Range("j2:o2").Value = "Vista 1a Avaluació"
Columns("d:aa").ColumnWidth = 12

'VER SOLO LAS NOTAS DE LA 1a EVALUACIÓN
Columns("d:aa").Hidden =...

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í

 

[abel89]

Gracias Cacho,

Sigo teniendo otra pregunta para ti, jeje. Es de otro codigo
Bueno para cuando dispongas de tiempo.

Saludos
Abel

 

[Cacho R]

Gracias Cacho,

Sigo teniendo otra pregunta para ti, jeje. Es de otro codigo.

Como la presente consulta ya está "agotada", entonces no tienes más que crear una nueva...

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í

 

[PetterRoch]

Como la presente consulta ya está "agotada", entonces no tienes más que crear una nueva consulta haciendo click en...

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í