Forums Últimos mensajes - Powered by IBM
 

SPINBUTTON y COMBOBOX ???

05/02/2010 - 19:20 por ORFAO | Informe spam
Hola Grupo !
en la hoja1
he definido un nombref llamado "computos"
este cambia de tamaño dependiendo del calor de una celda
computos ÞSREF(Hoja1!$A$2;0;0;Hoja1!$A$1;3)
donde a1 es contar(A2:A65535)
luego
en la hoja6
asigno a combobox1.listfillrange="Computos"
y combobox1.linked cell="B5"
adicionalmente tengo un spinnbuttom con linkedcell="B5"
es decir los dos controles estan linqueados a la misma celda
al cambiar el valor de la celda
deberia cambiar el combobox1.value y el spinnbutrtom.value a ese nuevo
valor
pero cuando cambio el valor de la celda directamente o usando el
spinbuttom solo me actualiza el spinmbuttom y no el combobox .
aunque el la celda b5 aparezca el nuevo valor en el
Me.ComboBox4.Value aparece el anterior

entonces... utilizo
en Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$5" Then
Me.ComboBox4.Value = Me.SpinButton1.Value
end sub

adicionalmente, el valor de hoja2!b5 puedo cambiarlo via codigo desde
otra hoja
para lo cual inabhilito los controles del a hoja6 haciendo
linkedcell=""
pero para restablecerlos desde esa otra hoja me genera un error

vbaproject.Hoja6!.SpinButton1.linkedcell= "B5"
vbaproject.Hoja6!.commandbuttom.linkedcell= "B5"



por que pasa esto ? como corregirlo


Grracias de antemano.
 

Leer las respuestas

#1 Héctor Miguel
06/02/2010 - 03:36 | Informe spam
hola, moises !

1) define si se trata de hoja6, u hoja2, u hoja6! <= este ultimo termina con el signo "!"
2) define tambien si se trata de combobox1, o combobox4, o algun "commandbuttom" (?)
3) comenta el por que de la nece(si)dad de incluir en la calificacion el vbaproject (?)

lo anterior porque he tratado de (re)crear un modelo de trabajo +/- como el tuyo y no se comporta como indicas
cambiando el spinbutton se refresca el valor mostrado por el combobox (independientemente del origen de su lista)

tampoco he tenido inconvenientes modificando las "linkedcell" de ambos controles (desde cualquier hoja)

(me da la impresion de que tu modelo es "menos sencillo" de lo que se pudiera desprender de tu consulta)

saludos,
hector.

__ OP __
en la hoja1 he definido un nombref llamado "computos"
este cambia de tamaño dependiendo del calor de una celda computos ÞSREF(Hoja1!$A$2;0;0;Hoja1!$A$1;3)
donde a1 es contar(A2:A65535)
luego en la hoja6 asigno a combobox1.listfillrange="Computos" y combobox1.linked cell="B5"
adicionalmente tengo un spinnbuttom con linkedcell="B5"
es decir los dos controles estan linqueados a la misma celda
al cambiar el valor de la celda deberia cambiar el combobox1.value y el spinnbutrtom.value a ese nuevo valor
pero cuando cambio el valor de la celda directamente
o usando el spinbuttom solo me actualiza el spinmbuttom y no el combobox.
aunque el la celda b5 aparezca el nuevo valor en el Me.ComboBox4.Value aparece el anterior
entonces... utilizo
en Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Me.ComboBox4.Value = Me.SpinButton1.Value
end sub
adicionalmente, el valor de hoja2!b5 puedo cambiarlo via codigo desde otra hoja
para lo cual inabhilito los controles del a hoja6 haciendo linkedcell=""
pero para restablecerlos desde esa otra hoja me genera un error
vbaproject.Hoja6!.SpinButton1.linkedcell= "B5"
vbaproject.Hoja6!.commandbuttom.linkedcell= "B5"
por que pasa esto ? como corregirlo

Preguntas similares