Notifications
Clear all

Comando Salvar

10 Posts
4 Usuários
0 Reactions
2,242 Visualizações
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Boa noite Galera,

Estou com uma duvida e preciso muito de ajuda. Criei um formulario no excel no qual existem diversas textbox e combobox. As combobox puxam informações de uma Plan "Dados" para completarem o cadastro. Bom, após o preenchimento de todas as informações no formulario, o usuario terá q clicar no botao "Salvar", e todas as informações serao registradas numa aba diferente. Enfim.....nao consigo fazer esse comando funcionar....alguem pode me ajudar?????

 
Postado : 23/09/2014 9:30 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

afbergman,

Bom Dia!

Tudo bem. Entendido. Poste seu arquivo aqui pois há necessidade de uma série de informações para que se faça o desenvolvimento de um código que faça o que você quer. Por exemplo: os dados devem ser gravados em qual aba? começam em que linha? vão até que linha? começam em que coluna?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/09/2014 5:24 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Use a pesquisa do fórum!!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 24/09/2014 12:42 pm
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

afbergman,

Bom Dia!

Tudo bem. Entendido. Poste seu arquivo aqui pois há necessidade de uma série de informações para que se faça o desenvolvimento de um código que faça o que você quer. Por exemplo: os dados devem ser gravados em qual aba? começam em que linha? vão até que linha? começam em que coluna?

Fala Wagner! Obrigado pela resposta.

Então, Voce vai poder visualizar pelo arquivo que existe esse formSolicitação e nele existem duas pages. Uma page corresponde ao cadastro de onibus e a outra corresponde ao cadastro de passarela. Qndo clicar no botao salvar de cada uma independente, os dados inseridos irão diretamente para as suas respectivas abas.
Na PlanPassarela, pode começar a partir da linha 9, e a PlanOnibus a partir da 8. Elas nao tem limite de linha, pois após esse processo irei planejar um segundo procedimento, que com certeza irei precisar da ajuda dos colegas.

obs: para abrir com todas as opções disponiveis, terá q acessar como administrador......usuario: ADMIN senha: admin

Abs

 
Postado : 24/09/2014 6:43 pm
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Pessoal, quem puder me ajudar agradeço bastante, to enrolado no trabalho pra tentar entregar isso.

Abraços.

 
Postado : 26/09/2014 8:33 am
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Ninguem se habilita a me ajudar???????

 
Postado : 01/10/2014 6:46 am
selmo
(@selmo)
Posts: 236
Estimable Member
 

Então, o procedimento para salvar é simples. Baixei o seu arquivo, mas fiquei um tanto quanto confuso quanto a forma e onde as informações seram salvas. Mas na duvida, segue o codigo base para salvar, basta modifica-lo conforme sua nescessidade.

' verifica a ultima linha preenchida e faz o registro em seguida
 UltimaLinha = Sheets("nome_da_planilha").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
 If UltimaLinha < 3 Then UltimaLinha = 3
  Application.DisplayAlerts = False
  
  
 
    Sheets("nome_da_planilha").Range("B" & UltimaLinha).Value = textbox1.Text ' 
    Sheets("nome_da_planilha").Range("A" & UltimaLinha).Value = textbox2.Text
    Unload Me
    MsgBox "Registro criado!", vbDefaultButton1, "DADOS SALVOS"
    textbox1 = "": textbox2 = "" limpa as textbox para novo registro
    Exit Sub

Quaisquer duvidas pergunta ae o/

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 01/10/2014 8:44 am
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Então, o procedimento para salvar é simples. Baixei o seu arquivo, mas fiquei um tanto quanto confuso quanto a forma e onde as informações seram salvas. Mas na duvida, segue o codigo base para salvar, basta modifica-lo conforme sua nescessidade.

' verifica a ultima linha preenchida e faz o registro em seguida
 UltimaLinha = Sheets("nome_da_planilha").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
 If UltimaLinha < 3 Then UltimaLinha = 3
  Application.DisplayAlerts = False
  
  
 
    Sheets("nome_da_planilha").Range("B" & UltimaLinha).Value = textbox1.Text ' 
    Sheets("nome_da_planilha").Range("A" & UltimaLinha).Value = textbox2.Text
    Unload Me
    MsgBox "Registro criado!", vbDefaultButton1, "DADOS SALVOS"
    textbox1 = "": textbox2 = "" limpa as textbox para novo registro
    Exit Sub

Quaisquer duvidas pergunta ae o/

Fala Selmo,

Então, vou tentar explicar melhor. No formulario existem 2 multipages, uma é referente ao cadastro das passarelas e a outra de onibus. Existe uma plan para cada uma, que irá funcionar como um "banco de dados", gravando tudo que colocado nas multipages correspondentes. Atraves do botao "Gravar" de cada uma, as informações será jogadas para a plan onibus ou passarela. A minha duvida esta ai, como criar esse codigo para cada botao. Não estou conseguindo, sempre da um erro. Noa sei mais por onde começar. Vou mandar um arquivo mais atualizado para que voce de uma olhada. Abraços.

 
Postado : 03/10/2014 8:22 pm
(@afbergman)
Posts: 108
Estimable Member
Topic starter
 

Fala Selmo, blza?

Consegui configurar um botao de uma multipage para gravar corretamente com a sua formula fazendo as alterações. O problema agora é q nao consigo fazer a outra multipages salvar corretamente em outra plan do mesmo jeito da outra. Vc pode dar uma olhada e ver o q acontece de diferente??? Vou mandar a atualizada no anexo.
Abraços.

 
Postado : 04/10/2014 6:47 am
selmo
(@selmo)
Posts: 236
Estimable Member
 

Então, a solução é simples, a seguinte rotina busca na primeira coluna da planilha a ultima célula preenchida, e a partir dela começa a efetuar os registros, é só alterar o numero da coluna para onde estiver o titulo de inicio, no caso, usei como base a coluna numero 5 para a busca, segue o codigo para alteração

UltimaLinha2 = Sheets("PLANILHA PASSARELA").Cells(Cells.Rows.Count, 5).End(xlUp).Row + 1

O código funciona perfeitamente, quaisquer futuras duvidas, estamos ae :D

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

 
Postado : 04/10/2014 3:01 pm