Visual Basic - BUSCAR DATOS EXACTO EN EXCEL DESDE VISUAL BASIC

Life is soft - evento anual de software empresarial
   
Vista:

BUSCAR DATOS EXACTO EN EXCEL DESDE VISUAL BASIC

Publicado por J@m (190 intervenciones) el 24/11/2015 21:23:15
Hola, tengo una hoja de excel con unos datos, desde Visual Basic 6, hago una búsqueda que funciona bien, tengo este código:

txtSearch = Text1.Text

Set rngfnd = ws.UsedRange.Find(What:=txtSearch, After:=ws.UsedRange.Cells(ws.UsedRange.Cells.Count), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)

Pero si busco "684" y una celda contiene el valor "54684" igual me lo trae, yo quiero que solo me traiga la coincidencia exacta "684"

Gracias
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

BUSCAR DATOS EXACTO EN EXCEL DESDE VISUAL BASIC

Publicado por Marcelo (225 intervenciones) el 20/12/2015 23:30:53
Hola J@m,
Mi solución de seguro no es la más sofisticada pero el resultado es lo importante. Revisa el código a ver qué te parece. Suerte!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cmdSearch_Click()
txtSearch = Text1.Text
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("c:\Book1.xls")
Set ws = wb.Worksheets("Sheet1")
 
With ws.UsedRange.Cells
    Set c = .Find(txtSearch, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            If (c.Value = txtSearch) Then
                Debug.Print "Value Found at: " & c.Address
            End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
MsgBox ("Done!")
End 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

BUSCAR DATOS EXACTO EN EXCEL DESDE VISUAL BASIC

Publicado por J@m (190 intervenciones) el 21/12/2015 15:09:24
Hola, esta bueno y arreglándole cositas funciona, pero si lo que busco es "76" y en una celda tengo "76" y en otra "176" las dos me las encuentra, debería solo encontrarme la de "76"
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