Boa tarde!!

Eu não entendi, mas seria +- isso..

Sub AleVBA-12938()
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Digite um valor a pesquisar")
    If Trim(FindString) <> "" Then
        With Sheets("Plan1").Range("A:A")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                'Application.Goto Rng, True
                MsgBox "Valoe se encontra em:" & Rng.Address
            Else
                MsgBox "Não encontrado"
            End If
        End With
    End If
End Sub

Abaxio adaptação , mas dá erro , no depurador

Private Sub BTNEND_Click()
Dim FindString As String
Dim rng As Range

FindString = InputBox("Digite um valor a pesquisar")
If Trim(FindString) <> "" Then
With Workbooks("CANHOTOS2014.xlsm")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
'Application.Goto Rng, True
MsgBox "Valor se encontra em:" & rng.Address
Else
MsgBox "Não encontrado"
End If
End With
End If
End Sub

Boa tarde!!

Você não está referenciando a guia e intervalo!

Tente assim..

Private Sub BTNEND_Click()
Dim FindString As String
Dim rng As Range

FindString = InputBox("Digite um valor a pesquisar")
If Trim(FindString) <> "" Then
Application.ThisWorkbook.Activate
With Worksheets("Plan1").Range("A1:A500")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
'Application.Goto Rng, True
MsgBox "Valor se encontra em:" & rng.Address
Else
MsgBox "Não encontrado"
End If
End With
End If
End Sub

Uma parte do caminho é esa mesmo. mas dai pra frente , teria que a partir da celula encontrada localizar a primeira linha da mesma coluna e qual planilha da pasta de trabalho.

Boa tarde!!

Seria melhor você montar um pequeno arquivo modelo com os dados do arquivo e postar aqui no fórum!

Att

Boa tarde!!

Seria tipo isso...........?

Sub AleVBA_12928V3()
    Dim l As Long
    l = Application.WorksheetFunction.Match("ale9", Range("A1:V1"), 0)
    MsgBox "Encontrado na coluna : " & l
End Sub

Boa tarde!!

Uma versão com InputBox

AleVBA_12928V4()   
Dim l As Long
    Dim FindString As String
    FindString = InputBox("Digite um valor a pesquisar")
    l = Application.WorksheetFunction.Match(FindString, Range("A1:V1"), 0)
    MsgBox "Encontrado na coluna : " & l
End Sub

Não testado!!
Att

segue anexo , preciso informar NF no imputbox, e retornar msg com o nome da planilah ( o numero da caixa) e a 1linha da coluna ( o numero do lote)

não baixei o seu exemplo ainda mas segue oq eu entendi
fiz com um user form que procura em todas as abas e em todas a celulas
mas retorna o nome da aba e o lote em caixas de texto

É ISSO AI!

Mensagem por denisw » 24 minutos atrás
É ISSO AI!

fiquei confuso,
resolveu ?