Boa noite!!

isso eu já respondi, procure na nossa base de dados!!!

Att

me indique o link da postagem....

Charlie,
Bom dia !

A base de dados estar no planilhando, você poderá procurar quando quiser e quando necessitar , é só ir na opção PESQUISAR do lado superior direito.

Veja se atende : http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=3501

http://www.planilhando.com.br/forum/viewtopic.php?f=16&t=4783

viewtopic.php?f=10&t=3493

Abrs,

Charlie,
Bom dia !

A base de dados estar no planilhando, você poderá procurar quando quiser e quando necessitar , é só ir na opção PESQUISAR do lado superior direito.

Veja se atende : http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=3501

http://www.planilhando.com.br/forum/viewtopic.php?f=16&t=4783

viewtopic.php?f=10&t=3493

Abrs,

Muito agradecido pela resposta.
Então, como eu saberia o que pesquisar se o título do tópico ou termo é totalmente diferente do que procuro, por isso que as buscas quase sempre não encontram nenhum resultado.
Muito obrigado pela resposta.

Chalie,

Já aconteceu comigo também de só ficar olhando para o titulo mais quando entrava totalmente dentro do conteúdo percebia que se tratava do que estava procurando mais com outras palavras .

Abrs.

Bom dia!!

Veja um exemplo.
Faça as adaptações necessárias

Private Sub salvarempresa_Click()
Dim obj As MSForms.Control
  For Each obj In Me.Controls
   If obj = "" Then
    MsgBox "Fill object " & obj.Name
     Exit Sub
    End If
  Next
totalregistro = Worksheets("plan5").UsedRange.Rows.Count
With Worksheets("plan5")
.Cells(totalregistro, 1) = nomeempresarial
.Cells(totalregistro, 2) = cnpjcpf
.Cells(totalregistro, 3) = fantasia
.Cells(totalregistro, 4) = logradouro
.Cells(totalregistro, 5) = numero
.Cells(totalregistro, 6) = bairro
.Cells(totalregistro, 7) = uf
.Cells(totalregistro, 8) = cidade
.Cells(totalregistro, 9) = responsavel
.Cells(totalregistro, 10) = telefone
nomeempresarial = ""
cnpjcpf = ""
logradouro = ""
fantasia = ""
numero = ""
bairro = ""
uf = ""
cidade = ""
responsavel = ""
telefone = ""
End With
MsgBox "Gravado com sucesso!"
End Sub