Combobox Userform

Explicación mas detallada

1. Mediante este código logre que al activar el userform me coloque los
datos en un listbox.

Son 50 item en este listbox, que me agrega al activar el listbox.

Private Sub UserForm_Activate()

ListBox1.Clear
ListBox1.AddItem "Dato 1"
ListBox1.AddItem "Dato 2"
ListBox1.AddItem "Dato 3"

End Sub

Ya esta resuelto lo de que me coloque en un listbox los datos que deseaba.

2. Todos los item estan por decir algo en orden determinado y cada dato va a
una celda determinada ejemplo C5 si escojo el primer item. Si escojo el
segundo item va a la celda C6 y asi sucesivamente.

Ejemplo Detallado

Si escojo Dato1 en el listbox ese dato va la celda C5 de la hoja2
Si escojo Dato2 en el listbox ese dato va la celda C6 de la hoja2
Si escojo Dato3 en el listbox ese dato va la celda C7 de la hoja2
Si escojo Dato4 en el listbox ese dato va la celda C6 de la hoja2

Y asi sucesivamente.

Los userform estan en la hoja 1

3. He logrado colocar en el listbox los datos que deseo como explico en el
punto 1.
Lo que falta es

Ejemplo
Al escojer Dato2 en el listbox el dato que ingrese en un textbox vaye a la
celda C6 de la hoja 2.
Al escojer Dato3 en el listbox el dato que ingrese en un textbox vaye a la
celda C7 de la hoja 2.

Saludos

"Carlos" escribió en el mensaje
news:

Hola amigos del foro

Como puedo hacer para generar un combobox desde un userform que no tome
los datos de Excel si no que lo tome desde el mismo código?
Que ese combobox al escoger un valor de la lista me envíe el valor a una
celda determinada para cada valor de la lista?

Saludos

Mi idea es que al seleccionar un item en un listbox y al colocar un valor en
un textbox segun el item del listbox este valor insertado en el textbox se
va una celda determinada.

Mediante este codigo puedo rellenar un listbox con 50 items.

Private Sub UserForm_Activate()

ListBox1.Clear
ListBox1.AddItem "Dato 1"
ListBox1.AddItem "Dato 2"
ListBox1.AddItem "Dato 3"
ListBox1.AddItem "Dato 4"

End Sub

Lo que deseo es esto!

Ejemplo Detallado

Si escojo Dato1 en el listbox el valor que inserte un textbox vaya a C5 de
la hoja2
Si escojo Dato2 en el listbox el valor que inserte de un textbox vaya a C6
de la hoja2
Si escojo Dato3 en el listbox el valor que inserte de un textbox vaya a C7
de la hoja2
Si escojo Dato4 en el listbox el valor que inserte de un textbox vaya a C8
de la hoja2

El item que escoja en el listbox va relacionado al texbox donde inserte el
valor.

Y asi sucesivamente.

Los userform estan en la hoja 1


Saludos









"Carlos" escribió en el mensaje
news:%

Explicación mas detallada

1. Mediante este código logre que al activar el userform me coloque los
datos en un listbox.

Son 50 item en este listbox, que me agrega al activar el listbox.

Private Sub UserForm_Activate()

ListBox1.Clear
ListBox1.AddItem "Dato 1"
ListBox1.AddItem "Dato 2"
ListBox1.AddItem "Dato 3"

End Sub

Ya esta resuelto lo de que me coloque en un listbox los datos que deseaba.

2. Todos los item estan por decir algo en orden determinado y cada dato va
a una celda determinada ejemplo C5 si escojo el primer item. Si escojo el
segundo item va a la celda C6 y asi sucesivamente.

Ejemplo Detallado

Si escojo Dato1 en el listbox ese dato va la celda C5 de la hoja2
Si escojo Dato2 en el listbox ese dato va la celda C6 de la hoja2
Si escojo Dato3 en el listbox ese dato va la celda C7 de la hoja2
Si escojo Dato4 en el listbox ese dato va la celda C6 de la hoja2

Y asi sucesivamente.

Los userform estan en la hoja 1

3. He logrado colocar en el listbox los datos que deseo como explico en el
punto 1.
Lo que falta es

Ejemplo
Al escojer Dato2 en el listbox el dato que ingrese en un textbox vaye a la
celda C6 de la hoja 2.
Al escojer Dato3 en el listbox el dato que ingrese en un textbox vaye a la
celda C7 de la hoja 2.

Saludos

"Carlos" escribió en el mensaje
news:

Hola amigos del foro

Como puedo hacer para generar un combobox desde un userform que no tome
los datos de Excel si no que lo tome desde el mismo código?
Que ese combobox al escoger un valor de la lista me envíe el valor a una
celda determinada para cada valor de la lista?

Saludos

hola, Carlos !

1) todavia no comentas si se trata de un solo textbox... o tienes uno para cada elemento a seleccionar en el listbox -?-
2) los elementos de un control de lista/combo se cuentan desde 0 hasta n_menos uno (si tiene 50, 0 a 49)
y la propiedad que te dice cual es el seleccionado es .ListIndex (o sea)
3) si suponemos que tienes un solo textbox (TextBox1) y segun el elemento seleccionado en la lista lo mandas a la hoja2 ???

copia/pega las siguientes lineas en el modulo de codigo del formulario:

Private Sub ListBox1_Click()
Worksheets("hoja2").Range("c" & Listbox1.ListIndex + 5) = TextBox1
End Sub

saludos,
hector.

__ OP __

Mi idea es que al seleccionar un item en un listbox y al colocar un valor en un textbox segun el item del listbox
este valor insertado en el textbox se va una celda determinada.
Mediante este codigo puedo rellenar un listbox con 50 items.
Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.AddItem "Dato 1"
ListBox1.AddItem "Dato 2"
ListBox1.AddItem "Dato 3"
ListBox1.AddItem "Dato 4"
End Sub
Lo que deseo es esto!
Ejemplo Detallado
Si escojo Dato1 en el listbox el valor que inserte un textbox vaya a C5 de la hoja2
Si escojo Dato2 en el listbox el valor que inserte de un textbox vaya a C6 de la hoja2
Si escojo Dato3 en el listbox el valor que inserte de un textbox vaya a C7 de la hoja2
Si escojo Dato4 en el listbox el valor que inserte de un textbox vaya a C8 de la hoja2
El item que escoja en el listbox va relacionado al texbox donde inserte el valor.
Y asi sucesivamente...

gracias así me funciona perfectamente!!

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

hola, Carlos !

1) todavia no comentas si se trata de un solo textbox... o tienes uno para
cada elemento a seleccionar en el listbox -?-
2) los elementos de un control de lista/combo se cuentan desde 0 hasta
n_menos uno (si tiene 50, 0 a 49)
y la propiedad que te dice cual es el seleccionado es .ListIndex (o
sea)
3) si suponemos que tienes un solo textbox (TextBox1) y segun el elemento
seleccionado en la lista lo mandas a la hoja2 ???

copia/pega las siguientes lineas en el modulo de codigo del formulario:

Private Sub ListBox1_Click()
Worksheets("hoja2").Range("c" & Listbox1.ListIndex + 5) = TextBox1
End Sub

saludos,
hector.

__ OP __

Mi idea es que al seleccionar un item en un listbox y al colocar un valor
en un textbox segun el item del listbox
este valor insertado en el textbox se va una celda determinada.
Mediante este codigo puedo rellenar un listbox con 50 items.
Private Sub UserForm_Activate()
ListBox1.Clear
ListBox1.AddItem "Dato 1"
ListBox1.AddItem "Dato 2"
ListBox1.AddItem "Dato 3"
ListBox1.AddItem "Dato 4"
End Sub
Lo que deseo es esto!
Ejemplo Detallado
Si escojo Dato1 en el listbox el valor que inserte un textbox vaya a C5
de la hoja2
Si escojo Dato2 en el listbox el valor que inserte de un textbox vaya a
C6 de la hoja2
Si escojo Dato3 en el listbox el valor que inserte de un textbox vaya a
C7 de la hoja2
Si escojo Dato4 en el listbox el valor que inserte de un textbox vaya a
C8 de la hoja2
El item que escoja en el listbox va relacionado al texbox donde inserte
el valor.
Y asi sucesivamente...