Fóruns
Microsoft Excel - 2...
Formulários
Preencher todos os ...
 
Notifications
Clear all

Preencher todos os dados de um formulário

 
Formulários
7 Posts
3 Usuários
0 Reactions
1,835 Visualizações
RSS
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Tenho um formulário com várias txtbox, combobox e etc. Queria saber como faço para só salvar o formulário se todos os dados estiverem sido preenchidos, ou seja, só permitir salvar se todas essas txtbox e combobox estiverem preenchidas.

Outra situação, tenho uma combobox de UF com todos os estados do Brasil (logicamente) queria saber como faço para não permitir a digitação de outros dados nessa combobox.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 03/08/2012 1:03 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2012 4:24 pm
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

me indique o link da postagem....

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 04/08/2012 5:17 am
 Robert
(@robert)
Posts: 561
Honorable Member
 

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,

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 04/08/2012 6:18 am
Charlie-81
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

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.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 04/08/2012 6:20 am
 Robert
(@robert)
Posts: 561
Honorable Member
 

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.

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 04/08/2012 6:25 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/08/2012 7:39 am
Forum Jump:
  Tópico Anterior
Próximo Tópico