Notifications
Clear all

Critério para encontrar valor não funcionando.

4 Posts
2 Usuários
0 Reactions
599 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

 
Postado : 18/11/2017 7:04 am
gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

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.

 
Postado : 18/11/2017 7:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mais uma vez matou a pau.

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/11/2017 7:42 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/11/2017 6:34 pm