Buscar y redireccionar dato en libro de Excel
Buenas, excelente página!
Mi pregunta es la siguiente:
Tengo un libro con 40 hojas en Excel 2007. Cada hoja tiene varias tablas, en donde cada fila, de esass tablas, tiene un código alfanumérico.
Necesito un buscador, el cual me pida el código a encontrar, lo encuentre y me redireccione a la hoja en donde este dato se encuentra.
Desde ya muchas gracias por su tiempo.
Mi pregunta es la siguiente:
Tengo un libro con 40 hojas en Excel 2007. Cada hoja tiene varias tablas, en donde cada fila, de esass tablas, tiene un código alfanumérico.
Necesito un buscador, el cual me pida el código a encontrar, lo encuentre y me redireccione a la hoja en donde este dato se encuentra.
Desde ya muchas gracias por su tiempo.
Respuesta de Eduard Caballero
1
Crea un formulario con un textbox y un botón de comando.
Al botón de comando agregale este código
Private Sub CommandButton1_Click()
Dim id_documento, idBusca As String
Dim fila As Integer
For Each sh In Sheets
sh.Select
fila = 1
id_documento = TextBox1
Do While idBusca <> id_documento
fila = fila + 1
idBusca = Range("A" & fila).Value
If idBusca = Empty Then
Exit Do
ElseIf idBusca = id_documento Then
Range("A" & fila).Select
Exit Sub
End If
Loop
idBusca = ""
Next sh
If ind = Empty Then
MsgBox "No Existe este valor "
TextBox1 = ""
End If
End Sub
Con esto busca y selecciona el valor en las columna A de todas las hojas a partir de A2
Al botón de comando agregale este código
Private Sub CommandButton1_Click()
Dim id_documento, idBusca As String
Dim fila As Integer
For Each sh In Sheets
sh.Select
fila = 1
id_documento = TextBox1
Do While idBusca <> id_documento
fila = fila + 1
idBusca = Range("A" & fila).Value
If idBusca = Empty Then
Exit Do
ElseIf idBusca = id_documento Then
Range("A" & fila).Select
Exit Sub
End If
Loop
idBusca = ""
Next sh
If ind = Empty Then
MsgBox "No Existe este valor "
TextBox1 = ""
End If
End Sub
Con esto busca y selecciona el valor en las columna A de todas las hojas a partir de A2
Muchas gracias por tu respuesta, pero no tengo habilidad para programar en excel.
¿Podrías decirme como asigno una macro a un botón de comando?. Por otro lado, necesito que me expliques también "Crea un formulario con un textbox y un botón de comando.", ya que no manejo Excel 2007..
Gracias por tu tiempo!
¿Podrías decirme como asigno una macro a un botón de comando?. Por otro lado, necesito que me expliques también "Crea un formulario con un textbox y un botón de comando.", ya que no manejo Excel 2007..
Gracias por tu tiempo!
Ok. No lo coloque porque tu pregunta es algo compleja y supuse que sabrías algo.
Acá tienes como crear el userform y el botón de comando, en la cuadro de herramientas tienes el textbox
http://hojas-de-calculo-en-excel.blogspot.com/2008/03/mi-primer-userform.html
Acá tienes como crear el userform y el botón de comando, en la cuadro de herramientas tienes el textbox
http://hojas-de-calculo-en-excel.blogspot.com/2008/03/mi-primer-userform.html
