Boa-noite França Segue código Application.SendKeys ("%{F11}")

Boa-noite Tente assim: Private Sub txt_periodo_AfterUpdate() Dim lngPriLin, lngUltLin, lngLoopLin As Long Dim datperiodo ...

Boa-tarde Insira essa linha Plan2.Activate logo após Private Sub Userform_Initialize()

Obrigado Rafael...!

Bom-dia Segue alterações: Estou no trabalho e sem tempo pra ficar alterando os seus códigos, então criei um novo UserForm e inseri novos código...

Boa-noite Segue arquivo...

Coloque assim: CDate(TextBox2.Text)

Tente esses passos: Vá em Iniciar/ Executar...e digite: REGSVR32 "C:Arquivos de ProgramasArquivos ComunsSystemole dbsqloledb.dll" REGSVR32...

Boa-tarde Seria assim: Private Sub Workbook_BeforeClose(Cancel As Boolean) Call Limpar1 Call Limpar2 Call Limpar3 Call Limpar4 Call Limpar5 Call Li...

Bom-dia Josy Aqui na empresa uso o Office 365 64 bits e estava dando o mesmo erro, mais seguindo as orientações do EdsonBR e do Basole funcionou...

Boa-noite Vai em "Desenvolvedor - Inserir...no Controle ActiveX insira um "TextBox" e cole na linha C3 Abaixo do nome Produto Co...

Você tentou "salvar como" escolheu um nome diferente para fazer testes...ou apenas viu que as opções já estavam desmarcadas e salvou normalm...