substitua esta linha ' Set rg = ActiveSheet.[A:G].Select ' errando aqui por esta Set rg = Range("A" & ActiveCe...

Porém gostaria apenas de alguns toques finais. Alguns toques finais ? Tá de brincadeira, né. Será necessário um outro código muito mais trabalhoso do...

Experimente manter a tecla Shift pressionada ao clicar para abrir o arquivo.

Sub ReplicaDados() Dim WSo As Worksheet, WSd As Worksheet, LR As Long Set WSo = Workbooks("Acompanhamento orçamentário atual").Sheets...

Sub IntercalaDados() With Range("K:K").SpecialCells(4) .FormulaR1C1 = "=Plan3!RC" .Value = .Value ...

Experimente: Sub InsereNúmeros() Dim k As Long, e As Long, d As Long For k = 13 To Cells(Rows.Count, 3).End(3).Row If InStr(1, C...

Não consegui reproduzir o erro aqui. Protegendo ou não a planilha e a pasta, os códigos funcionam. Segue o arquivo anexado com a planilha e a pasta p...

sugestão - disponibilize uma amostra do seu arquivo Excel, com o resultado desejado e com as explicações na própria planilha do que você deseja .

Sub InsereTextoEmCélulasVazias() Range("C2:C" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlBlanks) = &quo...

Qual é a senha para desproteger o arquivo que você disponibilizou ? Além desses dois códigos há algum outro no seu arquivo original ?

Verdade, erro meu. Você escreveu Aba Revisão e eu deveria ter entendido como Menu Revisão ... Quando eu aplico esses códigos na planilha sem macr...

O Objetivo desta macro, é eliminar o espaço da Direita ... Aqui o arquivo abriu sem espaço à direita dos valores. Porém os valores estão inseridos c...

Com base nas suas explicações e no arquivo que você disponibilizou eu não consigo te ajudar pois continuo sem entender qual é o problema. Deixo para a...

1. consigo ver somente a planilha "Modelo", não vejo a planilha "Revisão" que você citou. 2. no seu arquivo há 2 códigos: Workboo...

Sugestão - disponibilize uma amostra do seu arquivo Excel e explique o que significa "eu aplico algumas senhas".