Como filtrar información encabezada por filas

Hola Héctor,
Con respecto a 3 ejemplos para ilustración con gusto escribo 2 siguientes:

1) Tengo tabulados los 12 meses del año, uno en cada columna. En cada mes se
describen las ventas y sus respectivos costos, si quiero tener a la vista
unicamente el 3er. trimestre de julio a sept, tiendo a ocultar el resto de
meses. La pregunta es si existe algún método para filtrar unicamente los
meses del 3er trimeste.

2) Tengo tabuladas facturas emitidas por servicios prestados y por columna
detallo conceptos como fecha emisión, número factura, cliente, concepto,
etc.. La pregunta es como filtrar únicamente las columnas que necesito tener
a la vista.

Una opción que he trabajado y siento que me funciona parcialmente, son los
esquemas, pero quisiera saber que hay de los filtros o bien si podrías
recomendarme otro procedimiento.
Reitero mi agradecimiento y agradezco tu tiempo.










"Héctor Miguel" escribió:

hola, Manuel !

> ... la forma que he utilizado... es ocultando las columnas que no quiero reportar
> ... me gustaria... un filtro de encabezado de filas que seleccione... las columnas que cumplan un criterio
> ... por ejemplo un unico numero.
> ... si existiera alguna idea favor escribirme.

ideas hay bastantes... pero [creo que] seria mejor si puedes *delimitar* el alcance de tus necesidades
no se hasta donde quisieras *simular* [p.e.] el dialogo de los autofiltros *normales* [titulos en columnas]
que volveria *obligatorio* el uso de formularios y unos cuantos *bucles* para informar del contenido de *su fila*
o... si el asunto no es tan *complicado* en sus necesidades...
-> podrias comentar dos o tres casos mas *concretos* [p.e. los que serian mas comunes] ?

saludos,
hector.

hola, Manuel !

Con respecto a 3 ejemplos para ilustracion con gusto escribo 2 siguientes:

1) Tengo... los 12 meses... uno en cada columna
si quiero tener a la vista unicamente el 3er. trimestre de julio a sept, tiendo a ocultar el resto de meses.
La pregunta es si existe algun metodo para filtrar unicamente los meses del 3er trimeste.

2) Tengo... facturas... por servicios prestados
... por columna detallo conceptos como fecha emision, numero factura, cliente, concepto, etc..
La pregunta es como filtrar unicamente las columnas que necesito tener a la vista.

Una opcion que he trabajado y siento que me funciona parcialmente, son los esquemas
pero quisiera saber que hay de los filtros o bien si podrias recomendarme otro procedimiento...

de atras... pa'lante :)

la opcion de los esquemas tambien es posible de *automatizarla* [pero se requieren detalles mas... *precisos*] :-((

*hablando de detalles precisos*...

1) hubiera sido bueno conocer [p.e.] el rango donde tabulas los 12 meses y el tipo de datos en sus *titulos*
no es claro si pones cada numero de mes [1, 2, ... 12] o los nombres [ene, ... dic] o algun dato-fecha con formato personalizado -?-

si suponemos que los meses [numerados, enunciados, dato-fecha, o como sea que los uses] estan en las columnas 'B:M'
y que en la celda 'A1' esctibes EL NUMERO de mes correspondiente a cualquier *trimestre* [T-1 1 a 3... T2 4 a 6, etc.]
-> copia/pega las siguientes instrucciones en el modulo de codigo de *esa* hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Val([a1]) = 0 Then Columns("b:m").EntireColumn.Hidden = False: Exit Sub
Columns("b:m").EntireColumn.Hidden = True
Columns(Evaluate("match(a1,{1,4,7,10})*3-1")).Resize(, 3).EntireColumn.Hidden = False
End Sub

y... cuando quieras mostrar todos los meses [simplemente] borras en contenido de la celda 'A1'

2) si el 'proceso de seleccion' sera efectuado [de alguna manera]... *discrecionalmente*...
usa algo +/- como lo siguiente:

a) inserta un control commandbutton [de la barra de herramientas cuadro de controles] p.e. en tu hoja

b) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja [click derecho en su etiqueta y -> ver codigo]

Private Sub CommandButton1_MouseDown( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Selection.EntireColumn.Hidden = Shift <> 1
End Sub

c) regresa a excel y cuando quieras:
1) ocultar la/s columna/s que previamente selecciones [simplemente] pulsas en el boton
2) mostrar columnas ocultas: seleccionas columnas visibles ANTES Y DESPUES de las ocultas y pulsas {mayus}+click_boton

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

estimado Héctor

Pude poner en práctica la primera sugerencia, que agrupa los resultados por
trimestres.

La 2da opción, lamentablemente no me funcionó. quizá podrías explicarme si
es necesario que haga alguna acción para vincular el boton de controlcon la
instrucción copiada y pegada.

Gracias

"Héctor Miguel" escribió:

hola, Manuel !

> Con respecto a 3 ejemplos para ilustracion con gusto escribo 2 siguientes:

> 1) Tengo... los 12 meses... uno en cada columna
> si quiero tener a la vista unicamente el 3er. trimestre de julio a sept, tiendo a ocultar el resto de meses.
> La pregunta es si existe algun metodo para filtrar unicamente los meses del 3er trimeste.

> 2) Tengo... facturas... por servicios prestados
> ... por columna detallo conceptos como fecha emision, numero factura, cliente, concepto, etc..
> La pregunta es como filtrar unicamente las columnas que necesito tener a la vista.

> Una opcion que he trabajado y siento que me funciona parcialmente, son los esquemas
> pero quisiera saber que hay de los filtros o bien si podrias recomendarme otro procedimiento...

de atras... pa'lante :)

la opcion de los esquemas tambien es posible de *automatizarla* [pero se requieren detalles mas... *precisos*] :-((

*hablando de detalles precisos*...

1) hubiera sido bueno conocer [p.e.] el rango donde tabulas los 12 meses y el tipo de datos en sus *titulos*
no es claro si pones cada numero de mes [1, 2, ... 12] o los nombres [ene, ... dic] o algun dato-fecha con formato personalizado -?-

si suponemos que los meses [numerados, enunciados, dato-fecha, o como sea que los uses] estan en las columnas 'B:M'
y que en la celda 'A1' esctibes EL NUMERO de mes correspondiente a cualquier *trimestre* [T-1 1 a 3... T2 4 a 6, etc.]
-> copia/pega las siguientes instrucciones en el modulo de codigo de *esa* hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Val([a1]) = 0 Then Columns("b:m").EntireColumn.Hidden = False: Exit Sub
Columns("b:m").EntireColumn.Hidden = True
Columns(Evaluate("match(a1,{1,4,7,10})*3-1")).Resize(, 3).EntireColumn.Hidden = False
End Sub

y... cuando quieras mostrar todos los meses [simplemente] borras en contenido de la celda 'A1'

2) si el 'proceso de seleccion' sera efectuado [de alguna manera]... *discrecionalmente*...
usa algo +/- como lo siguiente:

a) inserta un control commandbutton [de la barra de herramientas cuadro de controles] p.e. en tu hoja

b) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja [click derecho en su etiqueta y -> ver codigo]

Private Sub CommandButton1_MouseDown( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Selection.EntireColumn.Hidden = Shift <> 1
End Sub

c) regresa a excel y cuando quieras:
1) ocultar la/s columna/s que previamente selecciones [simplemente] pulsas en el boton
2) mostrar columnas ocultas: seleccionas columnas visibles ANTES Y DESPUES de las ocultas y pulsas {mayus}+click_boton

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Manuel !

... La 2da opcion, lamentablemente no me funciono.
quiza podrias explicarme si es necesario que haga alguna accion
para vincular el boton de control con la instruccion copiada y pegada.

de la segunda opcion sugerida:
-> los incisos a y b son la forma de vincular el codigo con el boton de comando
[OJO, la sugerencia es utilizar un control de la barra de herramientas *cuadro de controles* NO *formularios*]
-> el inciso c son las [dizque] instrucciones para usar el clic en el boton:
clic = se ocultan las columnas de la seleccion actual [sea contigua o no]
shift+clic = semuestran las columnas de la seleccion actual [ver notas en el propio inciso]

si comentas cual de los *pasos* anteriores es diferente de los que [realmente] hiciste ???

saludos,
hector.

2) si el 'proceso de seleccion' sera efectuado [de alguna manera]... *discrecionalmente*...
usa algo +/- como lo siguiente:

a) inserta un control commandbutton [de la barra de herramientas cuadro de controles] p.e. en tu hoja

b) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja [click derecho en su etiqueta y -> ver codigo]

Private Sub CommandButton1_MouseDown( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Selection.EntireColumn.Hidden = Shift <> 1
End Sub

c) regresa a excel y cuando quieras:
1) ocultar la/s columna/s que previamente selecciones [simplemente] pulsas en el boton
2) mostrar columnas ocultas: seleccionas columnas visibles ANTES Y DESPUES de las ocultas y pulsas {mayus}+click_boton

Hola Héctor,

Muchas gracias por la ayuda, las dos opciones me funcionaron. Quizá en el
futuro vuelva a pedir tu ayuda. Saludos.


"Héctor Miguel" escribió:

hola, Manuel !

> ... La 2da opcion, lamentablemente no me funciono.
> quiza podrias explicarme si es necesario que haga alguna accion
> para vincular el boton de control con la instruccion copiada y pegada.

de la segunda opcion sugerida:
-> los incisos a y b son la forma de vincular el codigo con el boton de comando
[OJO, la sugerencia es utilizar un control de la barra de herramientas *cuadro de controles* NO *formularios*]
-> el inciso c son las [dizque] instrucciones para usar el clic en el boton:
clic = se ocultan las columnas de la seleccion actual [sea contigua o no]
shift+clic = semuestran las columnas de la seleccion actual [ver notas en el propio inciso]

si comentas cual de los *pasos* anteriores es diferente de los que [realmente] hiciste ???

saludos,
hector.

>> 2) si el 'proceso de seleccion' sera efectuado [de alguna manera]... *discrecionalmente*...
>> usa algo +/- como lo siguiente:
>>
>> a) inserta un control commandbutton [de la barra de herramientas cuadro de controles] p.e. en tu hoja
>>
>> b) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja [click derecho en su etiqueta y -> ver codigo]
>>
>> Private Sub CommandButton1_MouseDown( _
>> ByVal Button As Integer, ByVal Shift As Integer, _
>> ByVal X As Single, ByVal Y As Single)
>> Selection.EntireColumn.Hidden = Shift <> 1
>> End Sub
>>
>> c) regresa a excel y cuando quieras:
>> 1) ocultar la/s columna/s que previamente selecciones [simplemente] pulsas en el boton
>> 2) mostrar columnas ocultas: seleccionas columnas visibles ANTES Y DESPUES de las ocultas y pulsas {mayus}+click_boton