Traer datos a un combobox
Hola Elsa,
La parte de definir los datos para llamarlos desde Rowsource funciona excelente
Pero no quiero llamarlos desde ahí, quiero que los traiga de otra hoja para cargar el formulario desde cualquier parte del libro,
la cuestión es que cuando esta parte del código busca el dato; "En negrilla":...
Private Sub ComboBox1_Click()
dato = ComboBox1.Value
rango = "A1:A12"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole) ----- comentario ................... [busca el dato en el rango A1:A12, pero en la hoja activa] ----- comentario ---
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox9.Value = Range(ubica).Offset(0, 1).Value
TextBox10.Value = Range(ubica).Offset(0, 2).Value
End Sub
... Lo hace en la página que se encuentra activa, si cambio de hoja por ejemplo y abro el UserForm en otra hoja diferente no me busca el dato.
¿Cómo se haría para Set midato, busque en una hoja especifica no importa de que hoja se este abriendo el user form?
Gracias por su colaboración y por estar pendiente de mi pregunta.
La parte de definir los datos para llamarlos desde Rowsource funciona excelente
Pero no quiero llamarlos desde ahí, quiero que los traiga de otra hoja para cargar el formulario desde cualquier parte del libro,
la cuestión es que cuando esta parte del código busca el dato; "En negrilla":...
Private Sub ComboBox1_Click()
dato = ComboBox1.Value
rango = "A1:A12"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole) ----- comentario ................... [busca el dato en el rango A1:A12, pero en la hoja activa] ----- comentario ---
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox9.Value = Range(ubica).Offset(0, 1).Value
TextBox10.Value = Range(ubica).Offset(0, 2).Value
End Sub
... Lo hace en la página que se encuentra activa, si cambio de hoja por ejemplo y abro el UserForm en otra hoja diferente no me busca el dato.
¿Cómo se haría para Set midato, busque en una hoja especifica no importa de que hoja se este abriendo el user form?
Gracias por su colaboración y por estar pendiente de mi pregunta.
1 respuesta
Respuesta de Elsa Matilde
1
Mencionas que el combo se carga desde su propiedad Rowsource. Bien.
Ahora tratas de buscar el valor seleccionado en otra hoja. Entonces donde dice: ActiveSheet debes colocar el nombre de tu hoja.
Set midato = Sheets("Hoja4").Range(rango)........'todo lo que sigue.
Ahora cuando encuentra el dato y pasa los campos de ese registro encontrado a los textbox, también hay que mencionar la hoja:
Textbox9.Value = Sheets("Hoja4").Range(ubica).Offset(0,1).value
Espero haber aclarado el tema.
Saludos
Elsa
** Todo acerca de macros en este sitio:
http://es.geocities.com/lacibelesdepunilla
Ahora tratas de buscar el valor seleccionado en otra hoja. Entonces donde dice: ActiveSheet debes colocar el nombre de tu hoja.
Set midato = Sheets("Hoja4").Range(rango)........'todo lo que sigue.
Ahora cuando encuentra el dato y pasa los campos de ese registro encontrado a los textbox, también hay que mencionar la hoja:
Textbox9.Value = Sheets("Hoja4").Range(ubica).Offset(0,1).value
Espero haber aclarado el tema.
Saludos
Elsa
** Todo acerca de macros en este sitio:
http://es.geocities.com/lacibelesdepunilla
