inserta el valor de una celda a un cuadro de texto y actuali

17/07/2012 - 21:18 por mario198501 | Informe spam
hola amigos saludos a todos quisiera que me ayuden con esta macro ,tengo una ecuacion con cual obtengo el resutado en una celda este resultado debe de mostrarse en un cuadro de texto ,y si lo caqmbio debe actualizarse , por ejemplo tego un valor de 30 en la celda A3 y en un cuadro de texto (llamado m)que este relacionado a esta deberia decir X=30 y si cambio el valor en la celda a A3
a un valor de 40 en el cuadro de texto debe cambiar a X=40
quiero que sea en macro ya que se podria hacer con las celdas pero seria mas limpio sin eso .....esta macro es algo similar a http://damianexcel.blogspot.com/2011/10 ... lores.html este es mas coplicado intente modificarlo pero nada ...ayudenme por favor gracias por leer mi mensaje
 

Leer las respuestas

#1 mario198501
26/07/2012 - 21:46 | Informe spam
Pedro F. Pardo escribió el 19/07/2012 12:11 :
El martes, 17 de julio de 2012 20:19:57 UTC+1, mario198501 escribió:
hola amigos saludos a todos quisiera que me ayuden con esta macro ,tengo una
ecuacion con cual obtengo el resutado en una celda este resultado debe de
mostrarse en un cuadro de texto ,y si lo caqmbio debe actualizarse , por
ejemplo
tego un valor de 30 en la celda A3 y en un cuadro de texto (llamado m)que este
relacionado a esta deberia decir X0 y si cambio el valor en la celda a A3
a un valor de 40 en el cuadro de texto debe cambiar a X@
quiero que sea en macro ya que se podria hacer con las celdas pero seria mas
limpio sin eso .esta macro es algo similar a
http://damianexcel.blogspot.com/2011/10 ... lores.html este es mas coplicado
intente modificarlo pero nada ...ayudenme por favor gracias por leer mi
mensaje






Esta macro creo que te servirá,
tienes que incluirla en el código del Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 1 Then ' fila=3, columna=1
ActiveSheet.Shapes("m").OLEFormat.Object.Text = "X=" &
Range("A3").Value
End If
End Sub



Solo funciona cuando cambias algo en la celda A3 (Fila 3, Columna 1) ;-)

Saludos


gracias por responder lo probare

Preguntas similares