Bom dia.
Pela sua descrição imagino que apenas os valores decimais não estão sendo encontrados, então..
Mude o código do botão para o seguinte:

Private Sub CommandButton1_Click()

Dim ulinha As Long
ulinha = Plan1.Cells(Cells.Rows.Count, 17).End(3).Row
Dim sprocurado As String
Dim nprocurado As Double
procurado = Me.TextBox1.Text

If VBA.IsNumeric(Me.TextBox1.Text) Then
nprocurado = VBA.CDbl(Me.TextBox1.Text)

        For i = 2 To ulinha
        
            If Plan1.Cells(i, 17) = nprocurado And Plan1.Cells(i, 17).Font.Bold = True Then
            
                MsgBox "Produto já cadastrado na linha " & i
                        
            
            End If
        
        
        Next i


End If

End Sub

Dê retorno.

Mais uma vez matou a pau.

Obrigado.

Dunguinha

Acesse o link abaixo e veja como agradecer aos colaboradores e como marcar corretamente o Resolvido (Neste tópico, eu já desmarquei e marquei na resposta correta).

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador