Bom dia colegas.
O colega "WZXNET7" me ajudou com código para localizar valor em negrito na coluna "A".
Mudei a coluna de busca de "A" para "Q" e agora não localiza mais os valores. Percebi que alguns sim e outros não.
Dá pra ver o que esta de errado?
Obrigado.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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.
Resposta útil? Clique na mãozinha ao lado do botão Citar.
Mais uma vez matou a pau.
Obrigado.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
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).
[]s
Patropi - Moderador
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel