Notifications
Clear all

Base Separada

3 Posts
2 Usuários
0 Reactions
609 Visualizações
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Pessoal, bom dia!

Preciso de uma ajuda simples de vocês! Tenho um formulário no próprio Excel, onde a pessoa vai preenchendo as células e depois tenho um botão com uma macro que lança as informações numa planlha chamada Base_Dados! Funciona perfeitamente!

A pergunta é... como eu faço para fazer o cadastro, considerando que essa planilha Base_Dados estará fora da planilha onde tem o formulário num arquivo chamado Banco.xlsx!

Ou seja, preciso que ao clicar no botão cadastrar ele abra o arquivo Banco.xlsx, faça o mesmo procedimento abaixo e feche o arquivo, sem que o usuário veja essa movimentação!

O meu código esta abaixo... será que vocês poderiam me ajudar apenas com esse pedaço... Não consigo enviar uma planilha por aqui!

Quero apenas separar minha base noutro arquivo! Tem vários posts nesse sentido, mas todos utilizando form do vba... não conseguir adaptar!

Sub Cadastrar()



Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled

Sheets("Base_Dados").Select

Range("A65536").End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveCell = Sheets("Pesq_01").Range("B3")

ActiveCell.Offset(0, 1) = Sheets("Pesq_01").Range("B4")

ActiveCell.Offset(0, 2) = Sheets("Pesq_01").Range("H3")



End Sub
 
Postado : 14/06/2016 6:34 am
(@mprudencio)
Posts: 2749
Famed Member
 

Tente Assim:


Sub Gravar

' Insira essa linha no momento em que o arquivo deve ser aberto

Workbooks.Open Filename:= 'Caminho do arquivo que deve ser aberto


Seu codigo para gravação

'Salva a pasta ativa (deve ser a pasta base de dados) 
ActiveWorkbook.Save

'Fecha a pasta ativa
ActiveWorkbook.Close


End Sub


Se nao conseguir disponibilize o arquivo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 14/06/2016 7:10 am
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Perfeito meu AMIGO!
OBRIGADO

 
Postado : 14/06/2016 7:13 am