O que você quer dizer com a palavra automaticamente?

Use: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim VlrNum As String On Error GoTo EndMacro If Application.Intersect(Target,...

Corrigindo: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False Application.EnableEvents = Fa...

Seria algo como por exemplo: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False Application....

Você está usando na coluna DATA =SE(E22="";"";HOJE()) ? Se for isso então é a questão de atualização da função HOJE() toda vez em...

Dim MyTime, MyDate, MyStr MyTime = #17:04:23# MyDate = #January 27, 1993# ' Returns current system time in the system-defined long time format. MyStr...

Veja agora se atende. RTX.xlsx

Veja se lhe atende ao que precisa! RTX.xlsx

Sub Classificar() Range("EF14:EF1012").Select Selection.Copy Range("EK14").Select ActiveSheet&...

=ESQUERDA(A1;1)&"."&EXT.TEXTO(A1;2;NÚM.CARACT(A1)-1)

Pelo tipo do erro você está com problemas relacionados aos tipos dos dados que está querendo atribuir. Exemplo quero atribuir o valor 1223 (texto) em ...

Veja como desenvolvi uma forma de lista dinâmica para isso. Segue anexo Listas dinâmicas.xlsx

Bom dia"! Use formatação condicional na célula B1 Veja o exemplo Format.xlsx

Já verificou se por ventura não é versão do Office?

1) Retire as mesclagens das células. 2) Faça o alinhamento na seleção para ficar centralizado 3) Use o código dentro da worksheet e não em um módulo s...