Experimente: Sub ReplicaDados() Sheets("Balanço Mensal").Cells(Rows.Count, 1).End(3)(2) = Date Sheets("Balanço Mensal...

Experimente o código abaixo. Faça o teste inicialmente no segundo arquivo que você disponibilizou. Ao rodar o código a planilha "RelatórioExemplo...

Tópico duplicado. http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=25203&p=126487#p126487

Tópico duplicado. http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=25193

... Como criar um IF para pecorrer toda a planilha e detectar se ela esta com a cor AMARELO e deletar essa linha? A partir da versão 2007 as planil...

Ricardo, segue abaixo cópia do seu arquivo com as duas formas que citei antes aplicadas na FC, Intervalo Nomeado e Espelho de Coluna. Veja se alguma ...

Infelizmente os seus comentários não contribuíram para esclarecer qualquer das dúvidas que coloquei. Sugiro que você leia atentamente cada dúvida e a...

Dúvidas: 1. todos os nomes da lista da planilha "RelatórioExemplo" terão ou "Promoção" ou "Alteração por Reconhecimento"...

Experimente: Sub RearranjaDados() Dim k As Long, LR As Long, m As Long If Sheets("Plan2").[A2] <> "" Then...

Veja se ajuda: Sub VerificaÁreaTransferência() If Application.ClipboardFormats(1) = -1 Then MsgBox "AT vazia" Else MsgBox "...

Testei o código no segundo exemplo que você postou e funcionou corretamente.

Resolveu em parte, na minha listagens há linhas em branco o que prejudica o desenvolvimento da macro. Resultado óbvio, pois você postou um exemplo de ...

Teria alguma coisa com o Office? o meu é 2007 Se na versão do Patropi também funcionou, então provavelmente essa é uma limitação da versão 2007. Eu...

Experimente: 1. na planilha "Processos Feitos" selecione 'C2:C9' 2. menu Formatação Condicional / Limpar regras da seleção 3. novamente menu...

Experimente: Sub ListaOrdenada() Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Copy [D2] Range(&...