Excel - buscar en excel

   
Vista:

buscar en excel

Publicado por david ramirez (10 intervenciones) el 15/12/2008 20:27:36
Hola

quiero que me ayuden, en una planilla excel donde tengo tres hojas, en la hoja1 aplico la función buscarv en un celda (A2) y el resultado lo busquo en la hoja2 y hoja3. EN ESTOS MOMENTOS lo puedo hacer pero, solo logro que los resultados sean de la hoja2. no se como anidar para buscar en la hoja3
no se si me entiendes.
saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:buscar en excel

Publicado por Juan (35 intervenciones) el 16/12/2008 00:03:51
Private Sub cmdBusqueda_Click()
'Stop
If txtArgumento = "" Then
MsgBox "Coloca algun dato para buscar", vbOKOnly + vbInformation, "AVISO"
txtArgumento.SetFocus
Exit Sub
End If
' ----------------------------------------------------
For i = 1 To Sheets.Count
Juan1 = Sheets(i).Name
Worksheets(i).Select
With Worksheets(i).Range("a1:z65536")
Set c = .Find("*" & txtArgumento & "*", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
txtDatos = Worksheets(i).Name & Chr(10) & _
c.Address & ": " & c.Value & Chr(10) & _
Worksheets(i).Range("A" & Mid(c.Address, 4, 4)) & Chr(10) & _
Worksheets(i).Range("B" & Mid(c.Address, 4, 4)) & Chr(10) & _
Worksheets(i).Range("C" & Mid(c.Address, 4, 4)) & Chr(10) & _
Worksheets(i).Range("D" & Mid(c.Address, 4, 4)) & Chr(10) & _
Worksheets(i).Range("E" & Mid(c.Address, 4, 4)) & Chr(10) & _
Worksheets(i).Range("F" & Mid(c.Address, 4, 4))
Worksheets(i).Range(c.Address).Select
' -----------------------

Titulo = "¿Es esto lo buscado?" & txtArgumento & Juan & Chr(10)
Texto = Mid(txtDatos, 1, 500) & Chr(10) & Err.Description & Chr(10) & "¿Es esto lo buscado? "
If MsgBox(Texto, vbQuestion + vbYesNo, Titulo) = vbYes Then
txtDatos = "BIEN" & Chr(10) & Mid(txtDatos, 1, 500)
'Worksheets(i).Range(c.Address).Select
Exit Sub
Else
'Worksheets(i).Range(c.Address).Select
' Stop Por aqui se va el NO y sigue buscando
End If

' --------------------------

Set c = .FindNext(c) ' 65536
If c Is Nothing Then Exit Sub ' Por aqui se llega al final de la Hoja
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
'MsgBox "Fin de la hoja: "
End With

'MsgBox "FIN DE LA BUSQUEDA del todo"
Next i
MsgBox "Fin de la busqueda en todo el libro"
Exit Sub
' -------------------------------------------------------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar