.Find encontrando somente números inteiros

[Pedro Jhonata]

Olá, pessoal.


Tenho um problema bem simples. Quando uso o .find("x") em meu código ele só retorna algo se o x for um número inteiro, caso eu pesquise algum número com decimais, dá "Nothing".

Como posso resolver?

Código: Selecionar todos

Sub agoravai()



valor = "9,5*"



With Worksheets("plan1").Range("b1:b30")

    Set c = .Find(valor)
        
    If Not c Is Nothing Then
        firstAddress = c.Address
        i = 1
        Do
        lin1 = c.Row
            Worksheets("plan2").Cells(i, 1) = Worksheets("plan1").Cells(lin1, 1).Value
            Set c = .FindNext(c)
            i = i + 1
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

[Mauro Coutinho]

Nesta situação para o VBA reconhecer um numero decimal ele tem de estar com ponto e não virgula :

troque "9,5*" por "9.5*"

[]s

[Pedro Jhonata]

Nesta situação para o VBA reconhecer um numero decimal ele tem de estar com ponto e não virgula :

troque "9,5*" por "9.5*"

[]s

kkkkk

Sério que era só isso?

Muito obrigado, Mauro.

Como uma vírgula faz diferença...