formulario

excelente!!!
no sabes el tiempo que me ha ahorrado tenia que copiar un grupo de casi 20
formularios 40 veces hacia abajo, y habría tenido que cambiar uno a uno las
respectivas celdas vinculadas
GRACIAS!

"Héctor Miguel" escribió en el mensaje
news:%

hola, Luis !

... un cuadro combinado... modifica una determinada celda
cuando... copio ese cuadro combinado y lo pego varia filas abajo
... quisiera que... cambiara automaticamente la celda a la que esta
vinculada
por la que corresponde al numero de celdas mas abajo que lo estoy pegando
...

cuando copias celdas con/u objetos incrustados, se van "con todo y sus
propiedades" (incluidas las de los objetos)
y se requiere codigo para modificar (p.e.) la celda a la que debiera
quedar vinculada cada objeto :-(

una vez que hayas copiado n_celdas con sus combox (y/o hayas incrustado
n_combos en las celdas donde las necesites)...
si suponemos/asumimos/... que los combos son de la barra de herramientas
"formularios" (NO de la de "cuadro de controles") <= OJO
y suponemos que cada combo esta quedando superpuesto (precisamente)
"dentro" de la esquina superior izquierda de "su celda"
y suponemos que la celda vinculada "correspondiente" debe ser la que esta
una columna a la izquierda de la ubicacion del combo
prueba con las siguientes instrucciones ejecutadas desde el editor de VBA
=> {Alt}+{F11} en la ventana de inmediato => {ctrl}+G
OJO todo es una sola linea y no pierdas de vista que hay dos veces "dos
puntos" -> :
y pulsas enter para que se ajuste cada combo con su celda

for each combo in activesheet.dropdowns: combo.linkedcell =
combo.topleftcell.offset(,-1).address: next

si la esquina superior izquierda de cada casilla NO esta "dentro" de su
celda, sino "ligeramente" sobre la celda superior...
-> cambia la propiedad "topleftcell.offset(,-1).address" por ->
topleftcell.offset(1,-1).address

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

Podría hacerse algo similar con el hipervínculo asignado a una imagen??


"Héctor Miguel" escribió en el mensaje
news:%

hola, Luis !

... un cuadro combinado... modifica una determinada celda
cuando... copio ese cuadro combinado y lo pego varia filas abajo
... quisiera que... cambiara automaticamente la celda a la que esta
vinculada
por la que corresponde al numero de celdas mas abajo que lo estoy pegando
...

cuando copias celdas con/u objetos incrustados, se van "con todo y sus
propiedades" (incluidas las de los objetos)
y se requiere codigo para modificar (p.e.) la celda a la que debiera
quedar vinculada cada objeto :-(

una vez que hayas copiado n_celdas con sus combox (y/o hayas incrustado
n_combos en las celdas donde las necesites)...
si suponemos/asumimos/... que los combos son de la barra de herramientas
"formularios" (NO de la de "cuadro de controles") <= OJO
y suponemos que cada combo esta quedando superpuesto (precisamente)
"dentro" de la esquina superior izquierda de "su celda"
y suponemos que la celda vinculada "correspondiente" debe ser la que esta
una columna a la izquierda de la ubicacion del combo
prueba con las siguientes instrucciones ejecutadas desde el editor de VBA
=> {Alt}+{F11} en la ventana de inmediato => {ctrl}+G
OJO todo es una sola linea y no pierdas de vista que hay dos veces "dos
puntos" -> :
y pulsas enter para que se ajuste cada combo con su celda

for each combo in activesheet.dropdowns: combo.linkedcell =
combo.topleftcell.offset(,-1).address: next

si la esquina superior izquierda de cada casilla NO esta "dentro" de su
celda, sino "ligeramente" sobre la celda superior...
-> cambia la propiedad "topleftcell.offset(,-1).address" por ->
topleftcell.offset(1,-1).address

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

hola, Luis !

... un cuadro combinado... modifica una determinada celda
cuando... copio ese cuadro combinado y lo pego varia filas abajo
... quisiera que... cambiara automaticamente la celda a la que esta vinculada
por la que corresponde al numero de celdas mas abajo que lo estoy pegando ...

cuando copias celdas con/u objetos incrustados, se van "con todo y sus propiedades" (incluidas las de los objetos)
y se requiere codigo para modificar (p.e.) la celda a la que debiera quedar vinculada cada objeto :-(

una vez que hayas copiado n_celdas con sus combox (y/o hayas incrustado n_combos en las celdas donde las necesites)...
si suponemos/asumimos/... que los combos son de la barra de herramientas "formularios" (NO de la de "cuadro de controles") <= OJO
y suponemos que cada combo esta quedando superpuesto (precisamente) "dentro" de la esquina superior izquierda de "su celda"
y suponemos que la celda vinculada "correspondiente" debe ser la que esta una columna a la izquierda de la ubicacion del combo
prueba con las siguientes instrucciones ejecutadas desde el editor de VBA => {Alt}+{F11} en la ventana de inmediato => {ctrl}+G
OJO todo es una sola linea y no pierdas de vista que hay dos veces "dos puntos" -> :
y pulsas enter para que se ajuste cada combo con su celda

for each combo in activesheet.dropdowns: combo.linkedcell = combo.topleftcell.offset(,-1).address: next

si la esquina superior izquierda de cada casilla NO esta "dentro" de su celda, sino "ligeramente" sobre la celda superior...
-> cambia la propiedad "topleftcell.offset(,-1).address" por -> topleftcell.offset(1,-1).address

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

hola, Luis !

... tenia que copiar un grupo de casi 20 formularios 40 veces hacia abajo
y habría tenido que cambiar uno a uno las respectivas celdas vinculadas ..

(solo por curiosidad)...
no te resutaria mas conveniente usar las reglas de validacion por lista ?
(en lugar de incrustar n_objetos combo en tus hojas de calculo) -?-

saludos,
hector.

hola, Luis !

Podria hacerse algo similar con el hipervinculo asignado a una imagen??

es probable que si... si encuentras la forma de "decirle" al hipervinculo "donde" esta "la imagen"
y si el hipervinculo es por: (menu) insertar > hipervinculo o por formula: =hipervinculo("saltar_a_donde","texto_en_celda")
y probablemente algunas otras "cosillas" que (de momento) solo tu conoces :))

saludos,
hector.