Visual Basic para Aplicaciones - VBA Excel 2010 moverse entre celdas agrupadas

Life is soft - evento anual de software empresarial
 
Vista:

VBA Excel 2010 moverse entre celdas agrupadas

Publicado por miguel (1 intervención) el 27/09/2013 18:00:59
Buen dia.
Estoy programando una utileria que abre archivos, procesa y pega.

Todo bien hasta el momento,
Tengo una función que genera los subtotales de un rango, y oculta el nivel 2
Selection.Subtotal
y luego utilizo
ActiveSheet.Outline.ShowLevels RowLevels:=2

Hasta allí todo bien.
Pero, yo necesito posterirormente ir a mis titulos , así que voy utilizando
Range("A7").Select

Posteriormente , físicamente necesito ir a la celda que se encuentra inmediatamente "desoculta" de A7, que no es la A8, sino que dependiendo de los datos puede ser A15, A20 etc, así que utilizo:

ActiveCell.Offset(1, 0).Range("A1").Select

Pero esto lo que hace es irse siempre a A8, y A8 está oculta..... como puedo hacerle, puesto que si "manualmente" si estoy en A7 y presiono la tecla hacia abajo, se va a la siguiente que puede ser cualquiera.

Gracias por su apoyo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

VBA Excel 2010 moverse entre celdas agrupadas

Publicado por JuanC (565 intervenciones) el 27/09/2013 19:44:12
algo así quizás sirva...

1
2
3
4
5
6
7
Dim i&
Range("c5").Select
i = 1
Do While ActiveCell.Offset(i).EntireRow.Hidden
   i = i + 1
Loop
ActiveCell.Offset(i).Select

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar