Excel Macro colar valores de acordo com a Semana

[engrocha]

Boa tarde!

Preciso de um macro que cole valores de uma coluna para outra levando como critério a SEMANA.

Em anexo será melhor para entender o solicitado.

 

Grato,

Rocha.

Macro colar por semana.zip

[Visitante]

Experimente:

 

Sub ReplicaDados()
 Dim d As Range
  Set d = [G2:J2].Find([D2])
  If Not d Is Nothing Then [D4:D26].Copy d.Offset(1)
End Sub

 

[engrocha]

@osvaldomp Perfeito, muito obrigado!

adicionado 9 minutos depois

8 minutos atrás, engrocha disse:

@osvaldomp Perfeito, muito obrigado!

Amigo, ficou ótima, mas quando inseri fórmulas vi que está replicando as fórmulas.

Teria como colar somente valores?

 

Desde já agradeço,

Rocha

[Visitante]

Amigo, na próxima, passe as informações completas na primeira postagem.

Sub ReplicaValores()
 Dim d As Range
  Set d = [G2:J2].Find([D2])
  If Not d Is Nothing Then [D4:D26].Copy
  d.Offset(1).PasteSpecial xlValues
End Sub

 

[engrocha]

@osvaldomp Muito bom, muito obrigado novamente! Sempre simples e espetacular.

Grato!

40 minutos atrás, engrocha disse:

@osvaldomp Perfeito, muito obrigado!

Amigo, ficou ótima, mas quando inseri fórmulas vi que está replicando as fórmulas.

Teria como colar somente valores?

 

Desde já agradeço,

Rocha

[Patropi]

Bom dia @engrocha

 

Testei o código do Osvaldo e ele funcionou perfeitamente.

 

Confira na planilha em anexo.

 

[]s

 

 

11_07_19_Macro colar por semana.zip