Macro autofilter

14/07/2004 - 17:54 por José Frasquet | Informe spam
En un libro tengo las siguientes hojas entre otras:
1) "Base de datos" (con 43 columnas) Se trata de pisos para vender.
2) "Impresión de listados" (con la función BuscarV) y tres cuadros de lista
para elegir campos de las 43 columnas de la "Base de datos" antes
mencionada.
3) "Plantilla" (extrae datos con BuscarV de la "Base de datos")<> (por
cada referencia un DIN A4, con foto)
Bien, ahora voy a plantear lo que necesito y agradezco a cualquier maestro
del foro que me pueda ayudar.
1) En esta hoja necesitaría tene en una columna nueva, p.e. "foto", una
forma de llamar a la foto correspondiente a cada referencia de piso, ó si es
posible, ¿la propia foto?.
2) En esta hoja me gustaria tener un boton al que asignaria la macro que
basada en el autofiltro de la hoja "Base de datos", y en razón de los
criterios de filtrado que he elegido en los cuadros de lista, me
proporcione, copiando la columna en cuyo rango están las referencias de los
pisos y pegando ese rango en esta hoja, el listado que se pretende,
teneiendo en cuenta que al pegar el rango actuaria la función BuscarV antes
de imprimir finalmente la hoja.
3) Por último, en la hoja "Plantilla", tengo el rango H17:L34 destinado a
pegar la foto que corresponda a la referencia del piso solicitado. Agradezco
al maestro Héctor Miguel la ayuda que me proporcionó en su día (10-06-04) y
de hecho la estoy aprovechando actualmente, pero como no le dí la suficiente
explicación de lo que quería hacer, no me funciona demasiado práctica
aquella solución. Estoy usando ahora esta macro:
Sub Macrofotos2()
'
' Macrofotos2 Macro
' Macro grabada el 19/06/2004 por José R.
'
Range("H17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Isabel\Escritorio\Pepe Frasquet\Fichas de
pisos\5002.JPG" _
).Select
'Me gustaría cambiar a una carpeta en Mis documentos que se llame "Fotos
de pisos" y se llamarían por la referencia, p.ej. 5002.JPG
Range("a3").Select
End Sub

Bueno es todo. (ya es bastante...) Agradezco infinitamente la ayuda.
Gracias. Saludos
Pepe Frasquet

Preguntas similare

Leer las respuestas

#1 José Frasquet
16/07/2004 - 12:55 | Informe spam
16-07-04 - Hola a todos,
nadie me ha contestado por el momento y no sé si es porque puse que necesito
ayuda de "cualquier maestro del foro". Pues bien, no he querido ofender a
nadie sino que pienso que hay muchos maestros de Excel/BVA, pero quiero
decir que agradezco cualquier ayuda de cualquier persona, ya sea un maestro
efectivamente ó un principiante pues de lo que se trata es de ayudarnos los
unos a los otros.
Aclarado esto, ruego esa ayuda aunque sea parcial, a mis necesidades
indicadas mas abajo. Prometo reciprocidad si está en mi mano.
Saludos y gracias
Pepe Frasquet


"José Frasquet" escribió en el mensaje
news:
En un libro tengo las siguientes hojas entre otras:
1) "Base de datos" (con 43 columnas) Se trata de pisos para vender.
2) "Impresión de listados" (con la función BuscarV) y tres cuadros de


lista
para elegir campos de las 43 columnas de la "Base de datos" antes
mencionada.
3) "Plantilla" (extrae datos con BuscarV de la "Base de datos")<> (por
cada referencia un DIN A4, con foto)
Bien, ahora voy a plantear lo que necesito y agradezco a cualquier maestro
del foro que me pueda ayudar.
1) En esta hoja necesitaría tene en una columna nueva, p.e. "foto", una
forma de llamar a la foto correspondiente a cada referencia de piso, ó si


es
posible, ¿la propia foto?.
2) En esta hoja me gustaria tener un boton al que asignaria la macro que
basada en el autofiltro de la hoja "Base de datos", y en razón de los
criterios de filtrado que he elegido en los cuadros de lista, me
proporcione, copiando la columna en cuyo rango están las referencias de


los
pisos y pegando ese rango en esta hoja, el listado que se pretende,
teneiendo en cuenta que al pegar el rango actuaria la función BuscarV


antes
de imprimir finalmente la hoja.
3) Por último, en la hoja "Plantilla", tengo el rango H17:L34 destinado a
pegar la foto que corresponda a la referencia del piso solicitado.


Agradezco
al maestro Héctor Miguel la ayuda que me proporcionó en su día (10-06-04)


y
de hecho la estoy aprovechando actualmente, pero como no le dí la


suficiente
explicación de lo que quería hacer, no me funciona demasiado práctica
aquella solución. Estoy usando ahora esta macro:
Sub Macrofotos2()
'
' Macrofotos2 Macro
' Macro grabada el 19/06/2004 por José R.
'
Range("H17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Isabel\Escritorio\Pepe Frasquet\Fichas


de
pisos\5002.JPG" _
).Select
'Me gustaría cambiar a una carpeta en Mis documentos que se llame


"Fotos
de pisos" y se llamarían por la referencia, p.ej. 5002.JPG
Range("a3").Select
End Sub

Bueno es todo. (ya es bastante...) Agradezco infinitamente la ayuda.
Gracias. Saludos
Pepe Frasquet


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida