Diego Baixe a planilha e veja se é isto que vc deseja: 06_01_14_Rateio_Teste_Patropi.zip Dê retorno. Se a resposta foi útil, clique na mãozinha q...

Rech Não é permitido a criação de mais de um tópico sobre o mesmo assunto. Eu fundi os teus 2 tópicos. Quando o tópico já estiver trancado, se apare...

Diego Para facilitar anexe um exemplo da tua planilha(arquivo compactado, demonstrando o resultado esperado. []s

O valor que vê é o resultado, em notação científica, da conta que foi proposta para a linha 3, formate a célula como numérica e vera um valor 23700000...

Veja se assim atende: Sub Desfazer() Dim Linha As Integer, nPlan As String nPlan = ActiveSheet.Name Linha = Sheets("Plan1").Range(...

Bom dia!! Como eu não tive erro, por favor post seu arquivo modelo!! Eu estou saindo e volto só ao anoitecer, caso alguém não te ajudar, eu o farei!...

Bom dia!! Eu espero que ajude em alguma coisa, obrigado pelo retorno! Att

Bom dia!! Quanto ao outro post Sub Desfazer() Dim Linha As Integer With Sheets("Plan1").Activate Linha = .Range("...

Bom dia!! Veja a resposta no outro post viewtopic.php?f=10&t=14034 Att

Bom dia!! Tente assim Altere essa linha With sheets("Plan1") para With Worksheets("Plan1") Att

Bom dia!! guma, você olhou meu anexo, nos posts anteriores????????? Att

Boa noite!! Considerando o anexo, veja se ajuda. Att

pcscbruno Seja bem vindo ao fórum! Anexei novamente a planilha, conforme a tua solicitação. Se a resposta foi útil, clique na mãozinha que fica do ...

Infelizmente é o que tenho; não acompanhei o tópico, baixei algumas planilhas para estudo, porem nem cheguei a abrir/ver ainda.

Boa tarde Oliveira 12 Seja bem-vindo ao fórum! Movi teu tópico para VBA & Macros , que é o assunto da tua dúvida. Onde vc havia postado é exclu...