agrupar varios estilo

hola (...), ?????

tengo todos los estilos de cajas chica grande mediana en una hoja de exel
caja chica lote 1
caja chica lote 2
caja mediana lote 8
caja mediana lote 9
caja grande lote4
caja grande lote 11
lo que necesito es en otra hoja de calculo solovisualizar las cajas chicas o las grandes o medianas
con una macro una fornula etc. tengo exel 2003 ...

usa los filtros avanzados por codigo para "refrescar" los datos que consultes en cada ocasion
(p.e.) suponiendo que:

-> en tu hoja1:
los titulos estan en la fila 1, por lo que tus registros inician en la fila 2
existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)

-> en la hoja2:
a) pon en A1 el mismo titulo que tienes para los "estilos" (Hoja1 A1 ?, o el campo que requieras para filtrar)
b) en la celda A2 vas a "solicitar" el nombre/id/codigo/... del estilo que requieras consultar
c) en el rango A4:D4 vas a poner los mismos "titulos" que tienes en las columnas A:D de la hoja1
d) copia/pega (o escribe) las siguientes lineas => en el modulo de codigo de la hoja2:
(haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:d4"), _
Unique:=False
End Sub

tambien existen conversaciones que tratan el uso de filtros avanzados por codigo: http://tinyurl.com/ly8xh7

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

"Héctor Miguel" escribió:

hola (...), ?????

> tengo todos los estilos de cajas chica grande mediana en una hoja de exel
> caja chica lote 1
> caja chica lote 2
> caja mediana lote 8
> caja mediana lote 9
> caja grande lote4
> caja grande lote 11
> lo que necesito es en otra hoja de calculo solovisualizar las cajas chicas o las grandes o medianas
> con una macro una fornula etc. tengo exel 2003 ...

usa los filtros avanzados por codigo para "refrescar" los datos que consultes en cada ocasion
(p.e.) suponiendo que:

-> en tu hoja1:
los titulos estan en la fila 1, por lo que tus registros inician en la fila 2
existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)

-> en la hoja2:
a) pon en A1 el mismo titulo que tienes para los "estilos" (Hoja1 A1 ?, o el campo que requieras para filtrar)
b) en la celda A2 vas a "solicitar" el nombre/id/codigo/... del estilo que requieras consultar
c) en el rango A4:D4 vas a poner los mismos "titulos" que tienes en las columnas A:D de la hoja1
d) copia/pega (o escribe) las siguientes lineas => en el modulo de codigo de la hoja2:
(haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:d4"), _
Unique:=False
End Sub

tambien existen conversaciones que tratan el uso de filtros avanzados por codigo: http://tinyurl.com/ly8xh7

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

listo miguel muchas gracias solo una ultima pregunta como adiciona mas columnas a mi busqueda
.

hola (...), ?????

listo miguel muchas gracias solo una ultima pregunta como adiciona mas columnas a mi busqueda

no has comentado cual es la estructura y rangos de tus listados (???)
prueba adaptando los rangos supuestos en la propuesta:

existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)

CopyToRange:=Range("a4:d4"), _

saludos,
hector.

__ OP __

hola (...), ?????
usa los filtros avanzados por codigo para "refrescar" los datos que consultes en cada ocasion
(p.e.) suponiendo que:

-> en tu hoja1:
los titulos estan en la fila 1, por lo que tus registros inician en la fila 2
existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)

-> en la hoja2:
a) pon en A1 el mismo titulo que tienes para los "estilos" (Hoja1 A1 ?, o el campo que requieras para filtrar)
b) en la celda A2 vas a "solicitar" el nombre/id/codigo/... del estilo que requieras consultar
c) en el rango A4:D4 vas a poner los mismos "titulos" que tienes en las columnas A:D de la hoja1
d) copia/pega (o escribe) las siguientes lineas => en el modulo de codigo de la hoja2:
(haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), _
CopyToRange:=Range("a4:d4"), _
Unique:=False
End Sub

tambien existen conversaciones que tratan el uso de filtros avanzados por codigo: http://tinyurl.com/ly8xh7

"Héctor Miguel" escribió:

hola (...), ?????

> listo miguel muchas gracias solo una ultima pregunta como adiciona mas columnas a mi busqueda

no has comentado cual es la estructura y rangos de tus listados (???)
prueba adaptando los rangos supuestos en la propuesta:

>> existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)

>> CopyToRange:=Range("a4:d4"), _

saludos,
hector.

__ OP __
>> hola (...), ?????
>> usa los filtros avanzados por codigo para "refrescar" los datos que consultes en cada ocasion
>> (p.e.) suponiendo que:
>>
>> -> en tu hoja1:
>> los titulos estan en la fila 1, por lo que tus registros inician en la fila 2
>> existen 4 columnas con detalles/datos/... que te interesa obtener (A:D)
>>
>> -> en la hoja2:
>> a) pon en A1 el mismo titulo que tienes para los "estilos" (Hoja1 A1 ?, o el campo que requieras para filtrar)
>> b) en la celda A2 vas a "solicitar" el nombre/id/codigo/... del estilo que requieras consultar
>> c) en el rango A4:D4 vas a poner los mismos "titulos" que tienes en las columnas A:D de la hoja1
>> d) copia/pega (o escribe) las siguientes lineas => en el modulo de codigo de la hoja2:
>> (haz un clic-secundario sobre la etiqueta con su nombre y selecciona "ver codigo")
>>
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Address <> "$A$2" Then Exit Sub
>> Worksheets("hoja1").Range("a1").CurrentRegion.AdvancedFilter _
>> Action:=xlFilterCopy, _
>> CriteriaRange:=Range("a1:a2"), _
>> CopyToRange:=Range("a4:d4"), _
>> Unique:=False
>> End Sub
>>
>> tambien existen conversaciones que tratan el uso de filtros avanzados por codigo: http://tinyurl.com/ly8xh7


.
LISTO

POR TU AYUDA MIL GRACIAS..