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