Visual Basic - Seleccionar siguientes celdas

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 3
Ha disminuido su posición en 49 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Seleccionar siguientes celdas

Publicado por Emmanuel (2 intervenciones) el 25/09/2018 19:25:08
Que tal compañeros, espero puedan apoyarme, estoy tratando de realizar una macro que a partir de una celda cualquiera, seleccione las n siguientes filas y las oculte.

no estoy muy familiarizado con VBA, pero estoy intentando sin éxito con la siguiente orden.

Range.select.Offset.Resize(14, all).Hidden = True
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 Antoni Masana
Val: 1.179
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Seleccionar siguientes celdas

Publicado por Antoni Masana (430 intervenciones) el 26/09/2018 09:01:45
Las celdas no se pueden ocular. Se puede ocultar las columnas o las filas
¿Que escogemos Filas o Columnas?
Si son columnas ¿Hacia la izquierda o la derecha o ambas?
Si son Filas ¿Hacia arriba o abajo o ambas?

Cuando dices :seleccione las n siguientes filas y las oculte. " ¿incluye la de referencia?

Es decir si estoy en la columna A y oculto 5 son: A, B, C, D y E o A + B, C. D, E y F o b] B, C. D, E y F[/b]

Es decir si estoy en la Fila 1 y oculto 5 son: 1, 2, 3, 4 y 5 o 1 + 2, 3. 4, 5 y 6 o 2, 3. 4, 5 y 6

Saludos.
\\//_
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
sin imagen de perfil
Val: 3
Ha disminuido su posición en 49 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Seleccionar siguientes celdas

Publicado por Emmanuel (2 intervenciones) el 26/09/2018 15:14:00
gracias por tu interés, justo es el segundo caso, si estoy en la fila 1, que oculte 2,3,4,etc.

1
2
3
4
5
6
7
fila = ActiveCell.Row
columna = ActiveCell.Column
 
Rows((fila + 1) & ":" & (fila + 15)).Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-6
ActiveSheet.Cells(fila, columna).Select

lo que estoy haciendo es un indice tipo acordeón, pero no quiero llenarme de código dándole referencias a cada botón, por ello busco un único código que oculte las siguientes 22 filas.
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
Imágen de perfil de Antoni Masana
Val: 1.179
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Seleccionar siguientes celdas

Publicado por Antoni Masana (430 intervenciones) el 27/09/2018 10:23:42
Esta macro te oculta 5 columnas.
La columna de la celda activa y las 4 siguientes.

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Oculta_Columnas()
    Dim Num_Columnas_a_Ocultar As Integer, a As Integer, Col As Long
 
    Num_Columnas_a_Ocultar = 5
 
    For a = 0 To Num_Columnas_a_Ocultar - 1
        Col = ActiveCell.Column
        Columns(Col).Select
        Selection.EntireColumn.Hidden = True
        ActiveCell.Offset(0, 1).Select
    Next
 
End Sub

Y esto lo hace sobre las filas

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Oculta_Filas()
    Dim Num_Filas_a_Ocultar As Integer, a As Integer, Fil As Long
 
    Num_Filas_a_Ocultar = 5
 
    For a = 0 To Num_Filas_a_Ocultar - 1
        Fil = ActiveCell.Row
        Rows(Fil).Select
        Selection.EntireRow.Hidden = True
        ActiveCell.Offset(1, 0).Select
    Next
 
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar