Inserir informações em uma Base de Dados usando Textbox

[slaino]

bom dia,

 

estou tentando fazer uma uma base de dados para utilizar as macros da minha planilha, eu já fiz uma função para inserir os dados novos na sheet da base de dados, mas eu preciso que o CNPJ inserido seja verificado antes de gravar na célula correspondente, e caso o número esteja errado apareça uma mensagem na tela avisando CNPJ incorreto.

 

segue abaixo a função para gravar os dados que já está pronta, peço desculpas por colar a função diretamente no texto, mas onde trabalho não posso anexar arquivos diretamente.

 

 

Private Sub CommandButton1_Click()

 

lin = 1

col = 1

 

While Sheets("Base de Dados").Cells(lin, col) <> ""

 

lin = lin + 1

 

Wend

 

Sheets("Base de Dados").Cells(lin, 2) = txt_cliente_interno.Text

Sheets("Base de Dados").Cells(lin, 1) = txt_cnpj_interno.Text

 

txt_cliente_interno.Text = ""

txt_cnpj_interno.Text = ""

 

Userform_Initialize

 

End Sub

[Xflapc2]

Encontrei neste site uma função validadora de CNPJ:

 

http://www.ensinandoexcel.com.br/vba/calculo_cnpj/vba_calculo_cnpj.asp

 

Só copiar e fazer os ajustes no seu código.