Excel macro que congele datas

[JKsa]

Pessoal, criei essa macro que copia e cola os valores para outra planilha, O que está faltando para que ela cole somente o valor, sem a fórmula?

Sub AGENDAMENTO()
  
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
  LR = Sheets("DADOSAGENDA").Cells(Rows.Count, 2).End(xlUp).Row
  Sheets("AGENDAMENTO").Range("C3:h44").Copy Sheets("DADOSAGENDA").Range("B" & LR + 1)
  ActiveCell.Offset(0, 0).Select
  Range("e3:h44").ClearContents
   
End Sub
    

 

[Midori]

Cole como valor, por exemplo:

 

Range("A1:B1").Copy

Range("A2:B2").PasteSpecial xlPasteValues

 

[JKsa]

Olliver, valeu, pela ajuda, mas não funcionou.

 

veja só, são duas planilhas, uma onde são preenchidas informações diariamente e outra para onde os dados ao final do dia são levados. Ao ativar a macro, esta limpa a planilha preenchida e leva os dados para a planilha receptora, onde vão sendo colados sempre abaixo do dia anterior, isso para criar um histórico. o problema está na criação desse histórico, pois como os dados estão sendo levados como fórmulas e não como valores, as fórmulas de datas se alteram todos os dias, ou seja, os dados de ontem, estão com a data atual... entende?

adicionado 6 minutos depois

Eu até tentei fazer isso:

  Sheets("DADOSAGENDA").Range("B" & LR + 1).PasteSpecial xlPasteValues

Mas ele diz que o método PasteSpecial da classe Range falhou. 

[Midori]

Como ficou seu código após alterar para PasteSpecial?

 

Se a macro anterior estava funcionando e você só fez essa adaptação, devia funcionar.

[CasaDoHardware]

Partindo do seu codigo com a ajuda do colega acima  fiz esta adaptação

 

Verique se funciona!!

 

 

Sub AGENDAMENTO()
  
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
  LR = Sheets("DADOSAGENDA").Cells(Rows.Count, 2).End(xlUp).Row
  Sheets("AGENDAMENTO").Range("C3:h44").Copy
  Sheets("DADOSAGENDA").Range("B" & LR + 1).PasteSpecial Paste:=xlPasteValues
  Sheets("AGENDAMENTO").Range("e3:h44").ClearContents
   
End Sub

 

[JKsa]

4 horas atrás, CasaDoHardware disse:

Partindo do seu codigo com a ajuda do colega acima  fiz esta adaptação

 

Verique se funciona!!

 

 

Sub AGENDAMENTO()
  
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
  LR = Sheets("DADOSAGENDA").Cells(Rows.Count, 2).End(xlUp).Row
  Sheets("AGENDAMENTO").Range("C3:h44").Copy
  Sheets("DADOSAGENDA").Range("B" & LR + 1).PasteSpecial Paste:=xlPasteValues
  Sheets("AGENDAMENTO").Range("e3:h44").ClearContents
   
End Sub

 

Cara, valeu!

 

Deu muito certo!

 

Obrigado pela ajuda!