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

Private Sub Workbook_Open() If MsgBox("Deseja executar a Macro?", vbYesNo + vbQuestion) = vbYes Then teste End Sub

Experimente o código abaixo no lugar do seu. Sub NumeraRegistro() If ActiveCell.Address = "$A$3" Then ActiveCell.Value = 1 El...

Os dois últimos códigos são alternativas aos códigos anteriores. Faça os testes com um de cada vez e no lugar dos anteriores

Seguem 2 alternativas que não desabilitam o Ctrl+z. Dê duplo clique em qualquer célula vazia para rodar o código. O primeiro código ativa a célula 'A1...