Boa tarde, jcgmcs
Então amigo, tu tinha solicitado que toda vez que abrisse o arquivo atualiza-se ... como você citou mais acima
"...É possível fazer esse código atualizar tdas as linhas assim que abrir a planilha..." ...
Vamos repassar algumas coisas primeiro; como tu tens "já" preenchido 2.500 linhas, não vai mais mexer
nelas ... então só precisará atualizar uma "única" vez ... isso podemos fazer da seguinte forma:
- insira este código abaixo em um módulo:
Sub AtualizaDadosI()
Dim lin As Integer
Dim dataD As Date
Worksheets("Plan1".Activate 'aqui coloque o nome da sua Planilha
lin = 5
dataD = Range("D2".Value
Do Until Cells(lin, 2) = ""
If Cells(lin, 10) <> "" Then
Range("I" & lin).Value = Abs(DateDiff("d", dataD, Cells(lin, 10).Value))
Else
End If
lin = lin + 1
Loop
End Sub
- Agora crie um Botão na Planilha que contém os dados, na barra de ferramentas (Excel) clique em "Desenvolvedor" e logo
em seguida em "Modo de design"; com isso no Botão (CommandButton1 criado) poderá ser clicado com o botão direito do
mouse em cima dele e clicar no menu em "Exibir código", abrirá o VBE e a Janela deste; em seguida cole o código abaixo
dentro:
Call AtualizaDadosI
- Primeiro tire do "Modo de design", desta forma o Botão agora estará operacional, quando clicado efetuará a atualização sem
precisar reiniciar o arquivo (não esqueça de "Deletar" o código que faz a mesma coisa no "Workbook_Open", assim quando
reiniciar ou abrir novamente o arquivo, ele só será atualizado se clicar no Botão (CommandButton1) e tu provavelmente não
precisará clicar mais do que 1 única vez, né ).
- Para a questão de digitar uma data manualmente na "D2" é só comentar ou deletar este trecho abaixo:
'data de hoje no Range "D2" *******************
Worksheets("Plan1".Range("D2".Value = Date
'**********************************************
Obs: caso altere alguma célula na coluna "J" irá automaticamente atualizar a linha respectiva da coluna "I", não
precisando se preocupar em clicar no Botão para atualizar
Verifique se todos esses tramites solucionam as suas questões levantadas na última mensagem
Se tiver dúvidas estamos aqui
Aguardando sua resposta e seu Feed Back(que é muito importante) ... se foi útil, não esqueça de Clicar no Botão "Curtir" ...
LaerteB "Se