Crear una macro para visualizar unas filas en concreto
Tengo un libro en el cual tengo una hoja con botones que quiero que al pulsarlos me seleccionen un rango de filas de la hoja llamada única... Se puede crear una macro para cada botón y que cada uno me seleccione el rango de filas a ver... Por ejemplo el botón llamado “enero” que me seleccione para ver solamente las filas comprendidas entre la 7 y la 14 de la hoja llamada “hoja única”
1 respuesta
Si del mismo... si te fijas yo tengo hechas unas grabaciones pero son de andar por casa...
gracias dante
Podrías enviarme un ejemplo de lo que necesitas, ya que en las filas tengo nombres, ¿entonces cómo vamos a delimitar las filas si no tengo fechas?
Es para visualizar los grupos de trabajo para poder consultar viendo los grupos, si pulsas por ejemplo el botón de la hoja portada que pone oficina veras que se ehecuta una macro (grabada por mi), que hace que se vean los componentes de ese grupo de trabajo
Es que me gustaría quitar las macros que yo grabe, que son de andar por casa, y dejar el atchivo con tus macros y ya para que sirva para siempre.
Gracias dante
Entonces ya no entendí tu solicitud, es que tu requerimiento pusiste "enero"
Por ejemplo el botón llamado “enero” que me seleccione para ver solamente las filas comprendidas entre la 7 y la 14 de la hoja llamada “hoja única”
Qué tiene que ver el mes de "enero" con los grupos.
Y si ya tienes las macros que seleccionan los grupos, ¿qué te faltaría?
Perdón me confundí en la denominación en vez de enero tendría que haber puesto... por ejemplo oficina. Esas macros son como veras un poco de aquella manera... granada por mi
Para saber qué filas (nombres de persona) se tienen que dejar visibles, necesito que me digas a qué grupo pertenece cada persona
En la Nombres, en la columna B pon el nombre del grupo, por ejemplo:
Cuando termines me envías el archivo.
Te anexo el código
Sub VERSUBOFIC()
Call Mostrar_Fila("SUBOFICIALES")
End Sub
Sub VERRADAR()
Call Mostrar_Fila("RADAR")
End Sub
Sub VERTRANSP()
Call Mostrar_Fila("TRANSPORTES")
End Sub
Sub VERGENRAL()
Call Mostrar_Fila("GENERAL")
End Sub
Sub VERGIAT()
Call Mostrar_Fila("GIAT")
End Sub
Sub VEROFICINA()
Call Mostrar_Fila("OFICINA")
End Sub
Sub VERCONDUCTYLAB()
Call Mostrar_Fila("CONDUCTORES")
End Sub
Sub VERMATERIAL()
Call Mostrar_Fila("MATERIAL")
End Sub
Sub VERATESTADOS()
Call Mostrar_Fila("ATESTADOS")
End Sub
Sub VERCOTA()
Call Mostrar_Fila("COTA")
End Sub
'
Sub Mostrar_Fila(grupo)
Application.ScreenUpdating = False
Set h1 = Sheets("HOJA UNICA")
Set h2 = Sheets("NOMBRES")
h1.Select
h1.Cells.EntireRow.Hidden = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = u To 3 Step -1
nombre = h1.Cells(i, "A")
Set b = h2.Columns("A").Find(nombre, lookat:=xlWhole)
If Not b Is Nothing Then
w_grupo = h2.Cells(b.Row, "B")
If w_grupo <> grupo Then
h1.Rows(i).EntireRow.Hidden = True
End If
End If
Next
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Rows(u).EntireRow.Hidden = False
h1.Range("A1").Select
End Sub
'
Sub VOLVERPORTADA()
Sheets("PORTADA").Select
End Subsal u dos
