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

Obrigado pela ajuda, não havia pensado em colocar botões para essa função. Mas acho que a minha planilha de referência deve estar com algum bug, porque quando uso a sua planilha como base de referência funciona perfeitamente, mas quando utilizo a minha dá o mesmo problema, a combo do nome fica em branco. Vou começar do zero outra vez usando a sua função desde o início, provavelmente deve funcionar, obrigado novamente.

Sim, é assim que ele está funcionando, porém eu preciso da possibilidade de pesquisar também pelo CNPJ, mas se eu uso a mesma função no CNPJ dá algum tipo de erro e não aparece nada na combo do nome.

bom dia, estou tentando fazer uma função encadeada em duas combobox, mas não está funcionando eu preciso de duas combos uma com o Nome e outra com o CNPJ, me dando a possibilidade de pesquisar através de ambas, e me dando o resultado equivalente à linha da informação, infelizmente a rede da minha empresa não permite anexar arquivos para enviar fora do meu email, por isso escrevo abaixo a fórmula que estou usando Private Sub UserForm_Initialize() linha = 2 Do Until Sheets("Base de Dados").Cells(linha, 2) = "" Nome.AddItem Sheets("Base de Dados").Cells(linha, 2) linha = linha + 1 Loop linha = 2 Do Until Sheets("Base de Dados").Cells(linha, 1) = "" CNPJ.AddItem Sheets("Base de Dados").Cells(linha, 1) linha = linha + 1 Loop End Sub Private Sub Nome_Click() CNPJ.Clear linha = 2 Do Until Sheets("Base de Dados").Cells(linha, 1) = "" If Sheets("Base de Dados").Cells(linha, 2) = Nome Then CNPJ.AddItem Sheets("Base de Dados").Cells(linha, 1) linha = linha + 1 Else linha = linha + 1 End If Loop End Sub essa fórmula funciona somente quando a referencia são os Nomes, se eu faço ela para o CNPJ a combobox fica em branco sem nenhuma informação. poderia me ajudar a achar onde está o erro? obrigado