Critério para encontrar um valor

2024 - VBA & Macros

Post Recente por Fernando Fernandes 7 anos atrás

3 Posts

2 Usuários

0 Reactions

568 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia colegas.
Preciso aprimorar meu código para que seja encontrado na planilha coluna "A" só os números em negrito.

Obrigado.

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

Postado : 14/11/2017 7:11 am

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Bom dia.
Altere o código do seu botão do form para:

Private Sub CommandButton1_Click()
 Dim ulinha As Long
 ulinha = Plan1.Cells(Cells.Rows.Count, 1).End(3).Row
 Dim sprocurado As String
 Dim nprocurado As Long
 procurado = Me.TextBox1.Text
 
 If VBA.IsNumeric(Me.TextBox1.Text) Then
 nprocurado = VBA.CLng(Me.TextBox1.Text)
 
        For i = 2 To ulinha
        
            If Plan1.Cells(i, 1) = nprocurado And Plan1.Cells(i, 1).Font.Bold = True Then
            
                MsgBox "Produto já cadastrado na linha " & i
                        
            
            End If
        
        
        Next i
 
 
 End If
 
End Sub

e veja se é esse o resultado esperado.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 14/11/2017 8:22 am