Visual Basic copiar linha com imagens e colar

[Ismael Souza]

Boa tarde pessoal !

 Preciso de uma ajuda novamente sobre um método que desconheço.

 Num planilha A, preciso copiar o range("A2:T2"), mas no range("G2") e no range("i2") tem imagens inseridas.

Como eu disse, preciso copiar todo esse range com as imagens, ir até uma planilha B,  no range("A2") da planilha B e colar com a imagem no formato original.

Se eu fizer isso de maneira comum, ao colar, as imagens perdem a formatação original.

Preciso fazer o copiar e colar sem perder a formatação original.

* não posso enviar o documento, onde trabalho não é permitido.

[Basole]

Faca um Exemplo bem próximo do arquivo original com dados fictícios e imagens idem. 

[Ismael Souza]

@Basole Os arquivos onde trabalho são criptografados, mesmo que eu coloque aqui, ninguem consegue abrir em outro PC, por isso pedi ajuda somente pelos exemplos, é possível criar algo com base no que foi descrito?

[Ismael Souza]

Ola @Basole, ola pessoal.

 Estou enviando um exemplo do que comentei no ultimo post pra ver se consigo uma ajuda.

Na planilha tem duas abas... uma chamada LOG e a outra HISTORICO.

Ao atualizar a aba LOG eu preciso copiar a linha, com a figura e colar na aba historico com o mesmo formato

Quando faço isso com codigos simples, o formato original é perdido.

poderiam me ajudar com isso?

obrigado

HISTORICO DE FALHAS.xlsx

[Ismael Souza]

Olá pessoal !

 Por favor, alguém poderia me ajudar com o exemplo acima?

[Basole]

Segue exemplo:

 

    Sheets("LOG").Activate
    Range("B4:H4").Select
    Selection.Copy
    Sheets("HISTORICO").Activate
    Range("B4").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Activate