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

Olá, Raisa. Veja se algum dos códigos abaixo pode servir. este é disparado ao aplicar duplo clique e ativa a planilha do mesmo arquivo, cujo nome est...

É possível também por meio da Formatação Condicional, se as tabelas não forem demasiado grandes. Retorne se você quer experimentar esta opção ou se s...

Não deu certo amigo. Para a sugestão do Leandro funcionar, atribua ao botão a macro "Confirmacao" e pode apagar a macro "confirm"...

Experimente: Sub ComparaBasesV2() Dim LR As Long Application.ScreenUpdating = False With Sheets("Plan1") .AutoFilterMod...

Conforme está comentado logo abaixo do nome no código que passei ('marcar a Referência 'Microsoft Forms 2.0 Object Library), é preciso marcar a Refer...

Veja se aproveita algo. O código abaixo "copia" os conteúdos das células do intervalo 'B3:B12' para a Área de Transferência e cola em 'E3:E1...

Olá, Mariana. O código funciona também para a colagem mas de apenas uma célula por vez, pois eu coloquei um comando no código que impõe essa limitaçã...

Cole o código abaixo no módulo da planilha. A propósito, sugiro que você mude o código que envia e-mail, que está no módulo da planilha, para um módul...