Este fórum está sendo desativado

[vilc]

Boa noite, como faço para quando pressionar enter ou sair da textbox, verificar se na planilha na coluna D6 em diante já existe o nome digitado na textbox.

[gfranco]

Boa noite.
Veja se consegue adaptar à sua necessidade:
(no caso estou lançando o valor numa segunda textbox)

Código: Selecionar todos

Private Sub TextBox1_AfterUpdate()
Me.TextBox2.Text = WorksheetFunction.CountIf(Planilha1.Range("d6:d" & Rows.Count), Me.TextBox1.Text)
End Sub

[vilc]

consegui através desse código...

Private Sub txtmaterial_Exit(ByVal Cancel As MSForms.ReturnBoolean)

'Verifica se já existe o Material Cadastrado na Planilha Estoque a partir da coluna D6


Dim lngRow As Long

lngRow = fncMatch(Me.txtmaterial.Value, ThisWorkbook.Worksheets("Estoque").Columns("D"))
If lngRow > 0 Then
MsgBox "Material já Cadastrado ", vbCritical

txtmaterial.Value = ""

txtmaterial.SetFocus

Else
'Prosseguir o cadastro





End If