Veja se ajuda. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 3 Then ...

Experimente: Sub somarMesV2() With Cells(Rows.Count, 1).End(3)(2) .Offset(, 5).Value = "TOTAL" .Offset(, 6)...

No código WB_Open foi colocado o comando Application.EnableEvents = False e não foi tornado para True ao final do código. Se necessária a existência ...

substitua Private Sub Workbook_Close(Cancel As Boolean) por Private Sub Workbook_BeforeClose(Cancel As Boolean)

O erro que houve no terceiro nome foi justamente devido a essa linha v = y + k - 14, honestamente não sei como esse 4 foi parar aí. Remova o 4, deve f...

Experimente: Sub ExcluiLinhasAmarelas() Dim k As Long Application.ScreenUpdating = False For k = Cells(Rows.Count, 1).End(3)...

Ricardo, obrigado pelo retorno. Só pra confirmar, no arquivo que anexei antes, há 2 planilhas com a FC aplicada, sendo uma com Intervalo Nomeado e a ...

Sub ReplicaDadosV2() Application.ScreenUpdating = False Sheets("Balanço Mensal").Cells(Rows.Count, 1).End(3)(2) = Dat...

Você usou o transpose pra passar os dados que já estavam organizados na sequência certa e caso não estivesse? (na planilha original que utilizo existe...

Funcionou perfeitamente a primeira forma citada. A primeira forma seria por Intervalo Nomeado ? Curiosidade e aprendizagem: a outra, por Espelho de ...

Experimente: acrescente a segunda linha abaixo ... NewSheet.Name = InputBox("RENOMEAR PARA:", "Renomeando�...

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