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