Buscar un valor en varias hojas y poner datos en función de donde esté

09/03/2006 - 20:40 por luka | Informe spam
Hola a todos.
Estoy haciendo un userform con 2 combobox, dos textbox y un label
En el primero de los combobox cargo el nombre de las hojas
En el segundo de los combo cargo los valores de un rango que tengo en la
hoja datos y que va desde A2 a A60
En el resto de las hojas (12, cada una con el nombre del mes) tengo los
mismos valores en el mismo rango A2:A60

Esto ya lo he conseguido hacer "pirateando" lo que he podido por estas
listas.
Necesito ahora que en el label aparezca el valor que esta en la celda
adyacente al valor escogido en el combo2 de la hoja cogida en el combo1
y que los valores que se meten en los textbox se coloquen en las celdas
de las columnas E y F de la misma fila.

Espero que este claro para ustedes, porque en mi cabeza da un montón de
vueltas.
Gracias anticipadas a todos
Javier B.

Preguntas similare

Leer las respuestas

#1 Francisco GMAIL
12/03/2006 - 04:15 | Informe spam
Ya probaste hacer una referencia de celdas.

saludos
Respuesta Responder a este mensaje
#2 luka
15/03/2006 - 20:10 | Informe spam
Hola Francisco,
al final lo que he puesto ha sido lo que pongo al final.
Hace lo que quiero, pero no se si esta bien hecha.
Gracias
Saludos

Javier B.

Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
a = ComboBox1.Value
b = ComboBox2.Value

With Worksheets(a).Range("a1:a50")
Set c = .Find(b, LookIn:=xlValues)
If Not c Is Nothing Then
direccion = c.Address
Worksheets(a).Activate
Range(direccion).Select
Label1.Caption = ActiveCell.Offset(, 1).Value
End If
End With
End Sub
==

Francisco GMAIL escribió:
Ya probaste hacer una referencia de celdas.

saludos



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida