Substitua esta linha If Application.Intersect(Target, Range("G8:J5000")) Is Nothing Then por esta If Application.Inters...

Abaixo o seu código corrigido. Private Sub Worksheet_Change(ByVal Target As Range) Dim PL1 As Worksheet, PL2 As Worksheet, cont As Long, x As Long ...

Paulo, veja se o arquivo anexo te ajuda. Instalei uma cópia do código que sugeri acima no Módulo1. Se rodar a macro hoje, 6/set, a planilha "6&...

... se OFF deixa vazio para eu digitar manualmente E o que você vai digitar ? Se o conteúdo que você vai digitar é sempre igual você pode inclui-lo n...

Olá. Experimentou as funções TRUNC E INT ? Exs: =TRUNC(A1) =INT(A1)

Pq quando troco o nome na plan2 na celula A2 não funciona ? Sempre chama o formulaLocal da Empresa B Isso ocorre porque as fórmulas que você elaborou...

Mas colega, tudo bem, mas eu quero q o botão vá para a planilha q esteja correspondente ao dia do mês. ( hoje é dia 5, ele vai para a planilha 5, aman...

Experimentem o evento Worksheet_Calculate no lugar do evento Worksheet_Change

... mas ainda não deu certo... ... é isto mesmo O que você fez que de repente deu certo ? ... só preciso que quando ele achar o 2º item repetido, exe...

"=SE(B2=0;"""";RTD(""empresa.rtd"";;B2;$C$1))" abaixo uma versão simplificada do seu código Pr...

enquanto a coluna A for igual ele procura os repetidos na coluna B e colorir somente o 2 repetido que achar independente se tiver 3 ou 4... Coluna A ...

Olá, Sandro. Veja se ajuda. =CONT.SES(B3:B12;"X";C3:C12;"X";D3:D12;"X")

Sub PintaPrimeiroRepetido() Dim k As Long, m As Long, x As Long For k = 1 To Cells(Rows.Count, 1).End(3).Row m = Application....

Não apareceu na celula na C2 O problema é aí com você. Aqui testei no arquivo que você postou com a alteração que eu sugeri e voilá...

"=RTD(""empresa.rtd"";;B2;$C$1)"