Buscador
Hola agradezco la ayuda que me van ha brindar. Necesito algún código para buscar un dato que se encuentra en combobox de la hoja1. Para que busque en las celdas de otra hoja y saber la dirección de la celda donde se encuentra.. Gracias
1 respuesta
Respuesta de Elsa Matilde
1
Imagino que el combobox estará dibujado con la barra Cuadro de controles.
Entonces con clic derecho sobre el control, ver código entrarás al Editor, para copiar esta rutina de ejemplo.
Private Sub ComboBox1_Change()
'se busca en hoja2 en todas las celdas
Set busca = Sheets(2).Cells.Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not busca Is Nothing Then
'devuelve la dirección del dato encontrado en celda B20-Ajustar ref
ActiveSheet.Range("B20") = busca.Address(False, False)
End If
End Sub
Pruébala y si resuelve tu consulta, no olvides finalizarla
Entonces con clic derecho sobre el control, ver código entrarás al Editor, para copiar esta rutina de ejemplo.
Private Sub ComboBox1_Change()
'se busca en hoja2 en todas las celdas
Set busca = Sheets(2).Cells.Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not busca Is Nothing Then
'devuelve la dirección del dato encontrado en celda B20-Ajustar ref
ActiveSheet.Range("B20") = busca.Address(False, False)
End If
End Sub
Pruébala y si resuelve tu consulta, no olvides finalizarla
Dios te bendiga por la ayuda.. pero necesito algo más, que el buscador me encuentre si hay datos repetidos y estos datos me los agregue a un combobox que se encuentra en la hoja2.. gracias por la ayuda y que DIOS te siga ilumando para ayudar a muchas personas más..
¿Y por qué ahora la consulta es tan diferente a la anterior?
Consulta original:
... buscar el dato del combo de Hoja1...
'... saber la dirección de la celda...'
Nueva consulta:
... agregue a un combo de la Hoja2...
'... estos datos me los agregue a un comobox...'
Cuando tengas bien en claro lo que necesitas, enviame aclaraciones para que la respuesta no caiga en saco roto.
Consulta original:
... buscar el dato del combo de Hoja1...
'... saber la dirección de la celda...'
Nueva consulta:
... agregue a un combo de la Hoja2...
'... estos datos me los agregue a un comobox...'
Cuando tengas bien en claro lo que necesitas, enviame aclaraciones para que la respuesta no caiga en saco roto.
