¿Como usar Find con xlpart?
Mto dante un favor
Necesito usar find vba para ubicar un numero de factura que puede estar en cualquier hoja del libro y una vez que lo encuentre me lleve a esa hoja pero la coincidencia No es exacta y que me solicité por un inputbox el dato a buscar de favor
1 respuesta
Respuesta de Dante Amor
2
Prueba esto:
Sub buscafactura()
Dim fact As Variant
Dim f As Range
Dim sh As Worksheet
fact = InputBox("Entra factura: ", "Número o parte del número")
If StrPtr(fact) = 0 Then
MsgBox "Click Cancel"
Exit Sub
ElseIf Len(fact) = 0 Then
MsgBox "Entra un número de factura"
Else
For Each sh In Sheets
Set f = sh.Cells.Find(fact, , xlValues, xlPart, , , False)
If Not f Is Nothing Then
sh.Select
f.Select
Exit Sub
End If
Next
End If
End Sub
