Bom dia Wagner...

Pois é..! tbém nao entendo o pq disso... Mas um detalhe, a variação se dá qdo selecionado a data, percorrendo coluna abaixo...

Eae sim que, é na barra de formulas que aparecem algumas celulas em dd/mm/aa e outras em dd/mm/aaaa tdeu..

Mas vou tentar mudar de coluna pra ver se resolve isso blz..

Wagner Uma outra coisa, nesse código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    
    Application.EnableEvents = False
    
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    
    If Target.Address(False, False) = "D1" Then
        For i = 5 To 3000
            Range("P" & i).Value = CDate(Range("D1").Value) - CDate(Range("Q" & i).Value)
        Next i
    ElseIf Target.Column = 17 And Target.Row > 4 Then
        Range("P" & Target.Row).Value = CDate(Range("D1").Value) - CDate(Range("Q" & Target.Row).Value)
    End If
    
    Application.EnableEvents = True
End Sub

Ocorre que qdo mudo o dia na "D1" pra uma outra data qualquer, o processo de atualização na coluna "P" que atualmente tenho mais de 2.000 linhas, está muito demorado, em torno de 4min +/- pra

atualizar a recontagem...

Será que teria uma maneira de deixar esse processo de forma instantânea assim como ocorre com a formula..?? que mudou a data, de imediato já é feito as alterações em toda a coluna...

Obg..

@jcgmcs,

Acredito que isso depende do tipo de processador, do sistema operacional, dos arquivos temporários existentes, do lixo virtual existente, do tamanho do arquivo, da velocidade do processador, da quantidade de memória RAM, da quantidade de espaço disponível em disco, enfim... de uma série de coisas que podem influenciar no desempenho e na performance do seu micro. Aí... não sei como ajudar.

Wagner boa noite..

Amigo muito obg à sua ajuda até onde pôde mas creio que problema é no próprio código msm, até pq minha máquina faço trabalhos de modelagem 3D..

Mas vou tentar resolver isso e posto aki Blz..

Abraçoo..

Postado por: @jcgmcs

...na barra de formulas que aparecem algumas celulas em dd/mm/aa e outras em dd/mm/aaaa.

Muito provavelmente sua coluna tinha células formatadas como texto antes de ser preenchida. Se for isso, é bem possível que a data também esteja aparecendo invertida na célula (m/d/aaaa). Faça um teste numa coluna vazia do lado com a fórmula =ÉTEXTO(Q5) e arraste. Procure por VERDADEIRO, se houver. Limpe os formatos e reformate a coluna para dd/mm/aa.

Bom dia Edson...

Fiz o teste e realmente várias e várias celulas estavam como VERDADEIRO msm.. e nem sei pq aconteceu isso.. Rss

Obg..