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?

Boa tarde!!

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

Att

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

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

Abraços.

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

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/

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.

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.

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