... 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)"

Alan, veja se ajuda. Substitua o seu código pelo código abaixo. Private Sub ListBox1_Click() Dim c As Long c = Sheets("ESTOQUE").Col...

Como faço para desenvolver o botão do usuário 2? Olá, Paulo. Veja se o código abaixo faz o que você quer. Sub AtivaPlanDoDia() Sheets(CStr(Day(Da...

Experimente. Acrescentei as linhas abaixo: Application.ScreenUpdating = False Application.ScreenUpdating = True ActiveWindow.SmallScroll Down:=8 >&...

Experimente Workbooks.Open "C:MinhaPastaMeuArquivo.xlsm", False

Olá, Cabral. A função INDIRETO não funciona no caso de Validação com Intervalo Dinâmico. Uma forma de contornar, utilizando INDIRETO, é transformar ...

Experimente substituindo estas linhas For Each Ws In Worksheets Ws.Copy before:=Destino.Sheets(1) Next por esta ActiveSheet....

(1) >> equivale a (xlToLeft) (2) >> equivale a (xlToRight) (3) >> equivale a (xlUp) (4) >> equivale a (xlDown)

Olá, Rafael. Veja se ajuda. Substitua o seu código pelo código abaixo. Private Sub CommandButton1_Click() Dim k As Long, m As Long, LR As Long, x A...