Notifications
Clear all

[Resolvido] Um Formulário em duas pastas de trabalho

4 Posts
3 Usuários
0 Reactions
1,104 Visualizações
(@topscore)
Posts: 41
Eminent Member
Topic starter
 

Pessoal, seguinte:

Gestor1 = Meu arquivo principal.       BDados= Banco de dados, outro arquivo, xlsx, onde só abro, gravo os dados e fecho em seguida.        FormInicial = Meu Formulário principal        TextBoxNome = Caixa de texto no FormInicial

 

Esse código, para gravar no mesmo arquivo que estou usando (Gestor1), funciona perfeitamente:

Sub Teste()
Sheets("bdusuarios").Activate
ActiveCell.Value = TextBoxNome.Value
End Sub

 

Porém, se tento fazer isso no Bdados

Sub Teste1()
Windows(BDados).Activate
Sheets("bdusuarios").Activate
ActiveCell.Value = TextBoxNome.Value
End Sub

Ele trava na última linha do código. Como se a textbox ou o Formulário não existissem. Possivelmente porque são objetos do arquivo Gestor1 e não do Bdados.

 

Alguém pode me ajudar a fazer isso?


Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

 
Postado : 07/10/2020 10:47 pm
Mauro Coutinho
(@coutinho)
Posts: 95
Estimable Member
 

Tente assim, troque o nome do Userfom pelo o que voce definiu no seu formulário.

ActiveCell.Value = UserForm1.TextBoxNome.Value

 
Postado : 08/10/2020 9:15 am
(@teleguiado)
Posts: 142
Estimable Member
 

@topscore

Só uma duvida Sheets("bdusuarios") existe nos dois arquivos?

Obrigado.

Teleguiado.
E-mail: [email protected]

 
Postado : 08/10/2020 10:13 am
(@topscore)
Posts: 41
Eminent Member
Topic starter
 

HOLY S**T!

Funcionou Coutinho.

Sim, BDusuarios existe em ambos arquivos.

 

Uma coisa tão simples!

Existem duas fases distintas na minha existência: antes e depois de eu descobrir como fazer isso!

 

Obrigado a ambos!

 
Postado : 08/10/2020 12:06 pm