Bom dia.

Acho que existe alguma forma de atualizar todos de uma vez sem precisar complicar tanto, mas consegui fazer por código, segue:

Sub atualizar()

UltimaLinha = Planilha1.Rows.Count
Debug.Print UltimaLinha

For x = 5 To Planilha1.Range("N" & UltimaLinha).End(xlUp).Row
    Planilha1.Cells(x, 14).Select
    Planilha1.Cells(x, 14).Value = Planilha1.Cells(x, 14).Value
Next

MsgBox "Concluído! ", vbOKOnly + vbInformation, ""

End Sub

Boa tde Kev...

E vc pode dizer qual seria essa outra forma de atualizar todos de uma vez..?

Quebrando a cabeça dsd ontem com isso... rsrs

@jcgmcs To tentando descobrir também, mas acredito que exista algum atalho, por ser algo tão simples.
Vim uma vez uma dica com fórmula, copiar e colar no mesmo lugar que atualizar tudo, mas no nosso caso é texto e atrelado ao evento Change, gerando erro. Caso eu descubra compartilharei aqui.

Ah sim blzz... Mas pois é, algo tão simples e é uma dificuldade fazer isso Rsrs... Tomara msm q consiga algo ae pra facilitar.

Essa atualização na "N" preciso fazer pra que aquele seu código nas colunas de "40" até "50" possam ser preenchidas com minhas informações reais tndeu!!

Já adaptei aki seu último código, até funcionou, mas queria q me mostra-se as colunas sendo preenchidas e isso não acontecendo, só são exibidas qndo clicado no botão de conclusão...

Mas abç ae... blz!

Se realmente entendi sua solicitação, testa o código abaixo:

Sub atualizar()
Application.EnableEvents = True
UltimaLinha = Planilha1.Rows.Count

For x = 5 To Planilha1.Range("N" & UltimaLinha).End(xlUp).Row
    Planilha1.Cells(x, 14).Select
    Planilha1.Cells(x, 14).Value = Planilha1.Cells(x, 14).Value
Next

MsgBox "Concluído! ", vbOKOnly + vbInformation, ""

End Sub

Se realmente entendi sua solicitação, testa o código abaixo:

Sub atualizar()
Application.EnableEvents = True
UltimaLinha = Planilha1.Rows.Count

For x = 5 To Planilha1.Range("N" & UltimaLinha).End(xlUp).Row
    Planilha1.Cells(x, 14).Select
    Planilha1.Cells(x, 14).Value = Planilha1.Cells(x, 14).Value
Next

MsgBox "Concluído! ", vbOKOnly + vbInformation, ""

End Sub