Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CONTADOR DE REGISTR...
 
Notifications
Clear all

CONTADOR DE REGISTRO

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
2,593 Visualizações
RSS
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

BOA TARDE!

TENHO UMA PLANILHA ONDE INSIRO REGISTROS ATRAVÉS DO MEU USERFORM... GOSTARIA DE INSERIR UMA LISTBOX OU UMA COMBOBOX ONDE ELE CONTASSE A QUANTIDADE DE REGISTROS QUE ESTOU INSERINDO.

Qual código poderia usar?

 
Postado : 29/04/2013 1:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não é de bom gritar (é o que mensagens em caixa alta significam na net); mas segue uma possibilidade:
Supondo que a inserção de registro seja atraves de um botão.Então insira no formulario um, por exemplo Label de nome lblQtde.
No botão de cadastro coloque:
If lblQtde.caption="" then
lbl.Qtde.caption=1
else
lbl.Qtde.caption=Val(lblQtde).caption+1
end if

 
Postado : 29/04/2013 1:51 pm
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

Reinaldo, fiz conforme disse mas deu um erro dizendo que o meu qualificador está invalido

If lblQtde.Caption = "" Then
lbl.Qtde.Caption = 1
Else
lbl.Qtde.Caption = Val(lblQtde).Caption + 1

End If

 
Postado : 29/04/2013 2:04 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ops!!
deve ser Val(lblQtde.Caption) +1

 
Postado : 29/04/2013 2:07 pm
 wfranca
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

inseri..

só que quando clico em inserir o item ele encerra o meu userform.

 
Postado : 29/04/2013 2:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi, nada haver
Pode disponibilizar o seu exemplo?? ás vezes um pequeno senão em outra parte pode causar isso

 
Postado : 29/04/2013 2:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico