Cargar datos a un combobox
Hola Tavopz,
Dentro de un formulario tengo un ComboBox que trae O CARGA UNOS DATOS DE la "Hoja1", quiero que esos datos me los cargue desde otra hoja, por ejemplo "Midate".
Los datos son: Ene, Feb, Mar, Abr, etc.
La hoja pricinpal es la "Hoja1" y ahí se abre el userForm, pero quiero que ese dato lo traiga desde "Midate".
Como haría.
Private Sub ComboBox1_Click()
dato = ComboBox1.Value
rango = "A1:A12"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
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
Este código me lo busca en la hoja principal, quiero que lo busque en "Midate".
Gracias por tu colaboración Tavopz
Dentro de un formulario tengo un ComboBox que trae O CARGA UNOS DATOS DE la "Hoja1", quiero que esos datos me los cargue desde otra hoja, por ejemplo "Midate".
Los datos son: Ene, Feb, Mar, Abr, etc.
La hoja pricinpal es la "Hoja1" y ahí se abre el userForm, pero quiero que ese dato lo traiga desde "Midate".
Como haría.
Private Sub ComboBox1_Click()
dato = ComboBox1.Value
rango = "A1:A12"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
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
Este código me lo busca en la hoja principal, quiero que lo busque en "Midate".
Gracias por tu colaboración Tavopz
1 Respuesta
Respuesta de tavopz
1
Si defines el rango con un nombre te quedará más fácil. Me refiero a que seleccionas el rango y en la ventana al lado de la de fórmulas colocas el nombre (o por el menú Insertar/Nombre/Definir).
Así podrás tomar este rango de datos sin importar en qué hoja te encuentras ubicado.
Así podrás tomar este rango de datos sin importar en qué hoja te encuentras ubicado.
