Notifications

Clear all

[Resolvido] MACRO DANDO ERRO INEXPLICÁVEL

2024 - VBA & Macros

Post Recente por JSCOPA10 1 ano atrás

7 Posts

2 Usuários

1 Reactions

946 Visualizações

RSS

JSCOPA10

(@jscopa10)

Posts: 344

Reputable Member

Topic starter

Meus caros amigos, bom dia. (após um sumiço estou de volta k)

Esta Macro abaixo funciona perfeitamente até a linha "xlPasteFormats", na hora da linha "xlPasteValues" dá este erro: "O método PasteSpecial da classe Range falhou"!!!

Alguma dica DICA???

=====================

Sub ultima_linha_nova_diaria2()

'MACRO1 -- copia este intervalo
Range("A10:F21").Copy

'vai até a linha A10000, sobe até a última célula preenchida, e desce 2 linhas
Range("A10000").End(xlUp).Offset(3, 0).PasteSpecial xlPasteFormats
Range("A10000").End(xlUp).Offset(3, 0).PasteSpecial xlPasteValues

'apaga a seleção inicial
Application.CutCopyMode = False

End Sub

MACRO-DANDO-ERRO.xlsm

Postado : 21/09/2023 12:20 pm

JSCOPA10

(@jscopa10)

Posts: 344

Reputable Member

Topic starter

OBS: Já usei essa mesma Macro em outro arquivo e funcionava perfeitamente!!!!!!!!!!! ... Inexplicável!!!

Postado : 21/09/2023 12:25 pm

JSCOPA10

(@jscopa10)

Posts: 344

Reputable Member

Topic starter

OPS!! ... Fiz uma gambiarra aqui que funcionou!!! ... YYEESS!!! kk ... Mas aceito sugestões melhores!!!

MACRO-DANDO-ERRO.xlsm

Postado : 21/09/2023 1:28 pm

Osvaldomp

(@osvaldomp)

Posts: 857

Prominent Member

Testaí ...

Sub ReplicaTabela()
  [B10:G21].Copy Cells(Rows.Count, 2).End(3)(4)
End Sub

Osvaldo

Postado : 21/09/2023 2:49 pm

JSCOPA10

(@jscopa10)

Posts: 344

Reputable Member

Topic starter

@osvaldomp , sua dica funcionou parcialmente ao replicar a tabela (as fórmulas não acompanharam).

Mas não quero replicar a tabela, quero copiar apenas valores e formatos (e assim ir colocando uma abaixo da outra com valores e formatos FIXOS).

Como disse acima, minha gambiarra (deixando a coluna A com um "x", já funcionou!!)!! ... De qualquer forma, agradeço a tentativa de ajudar!!

Este post foi modificado 1 ano atrás 3 vezes por JSCOPA10

Postado : 21/09/2023 3:23 pm

Osvaldomp

(@osvaldomp)

Posts: 857

Prominent Member

Postado por: @jscopa10

↑

@osvaldomp , sua dica funcionou parcialmente ao replicar a tabela (as fórmulas não acompanharam).

Eu tomei como base o arquivo que você disponibilizou, e não existem fórmulas na planilha.

O novo código abaixo irá colar valores e formatos.

Mas não quero replicar a tabela, quero copiar apenas valores e formatos

Hummm ... colar valores e formatos é replicar a tabela. Ou não?

(e assim ir colocando uma abaixo da outra com valores e formatos FIXOS).

Se você irá fazer múltiplas cópias (réplicas) da tabela, e se for do seu interesse, é possível incluir essa operação no código abaixo.

Sub ReplicaTabelaV2()
 Dim r As Range
  Set r = Cells(Rows.Count, 2).End(3)(4)
  [B10:G21].Copy: r.PasteSpecial xlValues: r.PasteSpecial xlFormats
End Sub

Osvaldo

Postado : 21/09/2023 8:29 pm