¿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
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas