Rows ("X:Y").Select

02/11/2003 - 22:26 por julian-vlc-sp | Informe spam
¡Hola a tod@s!

Aunque llevo tiempo en el grupo de access, en este soy nuevo.

Estoy empezando con el vba, y agradecería me ayudaseis.

Para ocultar unas filas, uso el siguiente código que he sacado de un macro,
poniéndolo en el evento al hacer click, de un botón determinado:

ActiveSheet.Unprotect password:="pp"
Rows("7:10").Select
Selection.EntireRow.Hidden = True
Range("a11").Select
ActiveSheet.Protect password:="pp", DrawingObjects:=True,
Contents:=True, Scenarios:=True

me funciona bien, y hace lo que necesito.

Quiero poner varios botones, cada uno para un rango distinto, los valores 7
y 10 en este ejemplo, se calcularlos, y son los valores de dos variables, a
y b que son del tipo string.

El problema viene, que si pongo: Rows("a:b").Select. ó Rows("a:b").Select, ó
algunas otras formas que he probado, no funciona.

¿Me podéis ayudar?

SALUDOS.
julian-valencia-españa
 

Leer las respuestas

#1 Leonel
02/11/2003 - 23:12 | Informe spam
¡Hola a !

Aunque llevo tiempo en el grupo de access, en este soy nuevo.

Estoy empezando con el vba, y agradecería me ayudaseis.

Para ocultar unas filas, uso el siguiente código que he


sacado de un macro,
poniéndolo en el evento al hacer click, de un botón


determinado:

ActiveSheet.Unprotect password:="pp"
Rows("7:10").Select
Selection.EntireRow.Hidden = True
Range("a11").Select
ActiveSheet.Protect password:="pp", DrawingObjects:=True,
Contents:=True, Scenarios:=True

me funciona bien, y hace lo que necesito.

Quiero poner varios botones, cada uno para un rango


distinto, los valores 7
y 10 en este ejemplo, se calcularlos, y son los valores de


dos variables, a
y b que son del tipo string.

El problema viene, que si pongo: Rows("a:b").Select. ó


Rows("a:b").Select, ó
algunas otras formas que he probado, no funciona.

¿Me podéis ayudar?

SALUDOS.
julian-valencia-españa


.
esto funciona:


rows(a & ":" & b).select
ahora no es necesario ejecutar este select hazlo directo
rows(a & ":" & b).EntireRow.Hidden=true

"&" separado por un espacio en ambos lados

espero te sirva
un saludo

Preguntas similares