Onde esta a origem dos dados?

lfrbranca todos que participam do forum oferecem ajuda de forma voluntaria, e possuem outras coisas a fazer entao sugiro que aguarde alguem responder ...

E por isso que o ideal é disponibilizar o arquivo com informações Facilita quem vai ajudar

Tenta antes do With rstBanco On Error Resume Next

Tira o vba do date Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1.Value = Date End Sub

Por curiosidade que codigos vc usa para esse fim.

Disponibilize o arquivo que facilita a resposta

Talvez Assim Simples objetivo e o melhor de graça. As vezes que precisei funcionaram muito bem

Disponibilize o arquivo com alguns dados

Troque o seu codigo por este Sub PlanilhaAberta2() Dim Resposta As String Resposta = MsgBox("Acho que dá pra puxar um assunto né?", vbYes...

Faz um arquivo menor e disponibilza aqui ou coloca em um servidor qualquer e compartilhe

Nao entendi muito bem mas me parece que um campo calculado resolve o problema... Disponibilize o arquivo com alguns dados.

Minha sugestao é criar um banco de dados unico consolidando isso na planilha mestre e importar os dados das 70 planilhas a cada vez que o arquivo for ...

Disponibilize a planilha com dados

Alt + F11 Ou Clica no nome da guia com o botao direito Exibir Codigo Modulos No seu caso modulo 01 Tudo que tiver Dim na frente é uma declar...