Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Incluir dados na pl...
 
Notifications
Clear all

Incluir dados na planilha usando listview !

 
2024 - VBA & Macros
Post Recente por erwin_hc 12 anos atrás
4 Posts
2 Usuários
0 Reactions
1,218 Visualizações
RSS
 erwin_hc
(@erwin_hc)
Posts: 4
New Member
Topic starter
 

Boa noite !

Gostaria da ajuda dos senhores, tenho um formulário que insere, altera e remove dados na planilha através do listview (Peguei o modelo no site http://excelmax.blogspot.com.br/2012/11 ... e-vba.html) e adaptei para minhas necessidades, até aqui beleza... o problema é o seguinte na rotina que esta no btn_incluir quando eu envio os dados para planilha, se a planilha estar vazia ele retorna um erro e não inclui nada na planilha, porém se já estiver ao menos um dado incluso na célula da planilha ele funciona normalmente, o problema é o seguinte, se o usuário que for usar a planilha excluir todos os dados através do formulário quando ele for digitar o primeiro cadastro vai retornar erro, abaixo o erro;

erro em tempo de execução '13':
Tipos incompatíveis.............. ao DEPURAR ele vai até a seguinte linha no código; Cells(ultimalinha, 1) = Format(Cells(ultimalinha - 1, 1) + 1, "00000")

Segue em anexo o projeto;

Pizzaria Cadastro.zip
 
Postado : 07/04/2013 5:54 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Detalhe melhor sua dúvida, você tem vários forms etc..

Você diz que no "cxCadastro" o cadastrar caso a guia não tenha cadastro, gera erro?

Eu não tive problema.... :?

Att

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

 
Postado : 07/04/2013 6:16 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Erwin, ao que pude perceber, vc se refere aos 03 botões de inclusão (Cliente, Produtos,Motoboys).
Altere nas rotinas a linha:

De:
If ultimalinha - 1 = "ID" Then
Para:
If Cells(ultimalinha - 1, 1) = "ID" Then

Certifique-se tb que a linha

ultimalinha = Plan3.Cells(Plan3.Cells.Rows.count, "A").End(xlUp).Row + 1

sempre se refere a planilha nomeada na rotina (Plan1 ou Plan2 ou Plan3

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

 
Postado : 08/04/2013 6:31 am
 erwin_hc
(@erwin_hc)
Posts: 4
New Member
Topic starter
 

Muito obrigado Alexandre por ajudar-me, e principalmente Reinaldo, através da sua dica eu resolvi o meu problema, alterei as rotinas dos três botões como você havia falado e também alterei o codigo na seguintes linha para,"ultimalinha = Plan3.Cells(Plan3.Cells.Rows.count, "A").End(xlUp).Row + 1" para ------ ultimalinha.... ------ ultimalinha1...... ------- e ultimalinha2....... assim não gera conflitos. Muito obrigado mesmo. Até mais.

 
Postado : 08/04/2013 5:16 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico