TEXBOX

23/04/2009 - 23:57 por JORGE EC | Informe spam
Como puedo hacer para que el valor o la información de un texbox de mi
formulario muestre el contenido de la celda C17

El problema está, en que, en mi formulario uso un contro de numero , y este
genera numero que se almacena en la celda de D17, entonces va cambiando,
0-1-2. etc.

Y la celda C17 también cambia según los cambios de la D17, ya que la celda
C17 hace lo siguiente: =BUSCARV(D18;NOMBRE;2;0), en donde "NOMBRE" es mi
rango de busqueda.

los comandos en el VBA SON:

Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
End Sub

Este comando me genera un numero que se presenta en el formulario en el
texbox1, y tambien genera el mismo numero en la celda D17 esto utilizando las
propiedades de sourcerange = D17

Pero en mi comando del texbox2, no se como hacer que aparezca el contenido
de la celda C17, intenté con la siguiente rutina en el spinbutton1 pero no me
funcionó:

Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
TextBox2.Text = ActiveSheet.Range("C17").Value
End If
End Sub
 

Leer las respuestas

#1 Héctor Miguel
24/04/2009 - 04:53 | Informe spam
hola, Jorge !

para un control de tipo "SpinButton" incrustado en un formulario (userform), me queda la duda de...
donde y como encontraste/pusiste/determinaste/... su propiedad "sourcerange" en "Ñ7" -???-
(quiza quisiste decir la propiedad "ControlSource" ???)

te resultaria mas facil el simplemente agregar una instruccion que deposite en esa celda los cambios del spinbutton (p.e.)

Private Sub SpinButton1_Change()
[d17] = SpinButton1
TextBox1 = SpinButton1
TextBox2 = [c17].Text
End Sub

saludos,
hector.

__ OP _
Como puedo hacer para que el valor o la informacion de un texbox de mi formulario muestre el contenido de la celda C17
El problema esta, en que, en mi formulario uso un contro de numero... que se almacena en la celda de D17
... C17... cambia segun... D17, ya que... C17... =BUSCARV(D18;NOMBRE;2;0), ... "NOMBRE" es mi rango de busqueda.
los comandos en el VBA SON:
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
End Sub
Este comando me genera un numero que se presenta en el formulario en el texbox1
y tambien genera el mismo numero en la celda D17 esto utilizando las propiedades de sourcerange = D17
Pero en mi comando del texbox2, no se como hacer que aparezca el contenido de la celda C17
intente con la siguiente rutina en el spinbutton1 pero no me funciono:
Private Sub SpinButton1_Change()
TextBox1.Text = SpinButton1.Value
TextBox2.Text = ActiveSheet.Range("C17").Value
End If
End Sub

Preguntas similares