Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Marciel
#65258
Boa tarde pessoal

Preciso fazer uma busca de um valor em uma planilha extensa, e se o valor for encontrado me retornar a linha da celula.

O código abaixo está funcionando, porém tem um problema:
Código: Selecionar todos
Dim Valor_Doc As String

Valor_Doc = "333"

    With Worksheets("Plan1").Range("B11:B20")

        If .Find(Valor_Doc) Is Nothing Then
             MsgBox "Valor nao encontrado"
        Else
        a = .Find(Valor_Doc).Row
        MsgBox "valor encontrado na linha: " & a
        End If
    End With
supondo que na coluna da busca existem os valores:
333
3335
333,53

a macro está retornando os valores das linhas dos 3 valores, mas eu preciso que ele me retorne apenas o que for exatamente o 333.
Já tentei mudar o tipo de variavel pra string, long, double, mas nada resolveu.

Alguma dica ai galera?

Obrigado
Por osvaldomp
#65261
Experimente:
Código: Selecionar todos
Sub Procura()
 Dim c As Range, Valor_Doc As Long
  Valor_Doc = 333
  Set c = Sheets("Plan1").Range("B10:B20").Find(Valor_Doc, lookat:=xlWhole)
  If Not c Is Nothing Then
   MsgBox "valor encontrado na linha " & c.Row
  Else: MsgBox " valor não encontrado"
  End If
End Sub

Boa noite, pessoal, alguém consegue me ajud[…]

Contar dias através da data

Boa tarde Segue uma opção Até[…]

Boa tarde!! Eu copiei o mesmo código e os […]

prezados, bom dia eu tenho duas pastas de trabal[…]

bom dia ok, eu vou fazer isso

Oii, boa tarde! Tenho uma planilha com 50 colunas […]

Como limpar o meu código

Nesses casos utilize o formato abaixo. Sub Replac[…]

Boa tarde Veja se como foi feito é o que vc[…]