Verificar se nome já existe na planilha atraves da textbox
Enviado: 21 Jul 2018 às 18:00
por 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.
Re: Verificar se nome já existe na planilha atraves da textb
Enviado: 21 Jul 2018 às 22:38
por gfranco
Boa noite.
Veja se consegue adaptar à sua necessidade:
(no caso estou lançando o valor numa segunda textbox)
Código: Selecionar todosPrivate Sub TextBox1_AfterUpdate()
Me.TextBox2.Text = WorksheetFunction.CountIf(Planilha1.Range("d6:d" & Rows.Count), Me.TextBox1.Text)
End Sub
Verificar se nome já existe na planilha atraves da textbox
Enviado: 22 Jul 2018 às 11:47
por 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