Excel Selecionar linha de datas do dia anterior e enviar por email

[Visitante]

10 horas atrás, Cleomirfl disse:

Sabe me dizer o porque que isso ocorre?

Sem ver o seu arquivo, não. Imagens não servem.

 

[Cleomirfl]

12 horas atrás, osvaldomp disse:

 

@osvaldomp ..Opa..desculpe meu amigo...vou disponibilizar aqui...Observe q a formatação condicional nas colunas F e P não saem quando clico no botão "ENVIAR RELATÓRIO RECEBIMENTO DE CALES" como vemos na imagem abaixo...

 

Estranho...

REC.xlsx

[Visitante]

Cleomir, não encontrei a macro no seu arquivo.

[Cleomirfl]

@osvaldomp ..desculpe pela demora em responder meu camarada, fiquei sem pc esses dias, mas vamos lá..tinha me esquecido de salvar como pasta autorizada para macro...rsrs..mas tá aí no anexo agora..

 

Não estou conseguindo anexar a planilha com o código, está dando que não é permitido salvar a planilha..não sei porque..mas diponibilizo o código abaixo..está salvo no Módulo...conforme figura abaixo;

 

 

Sub EnviaIntervalo()
 Application.ScreenUpdating = False
 With Sheets("RECEBIMENTO DE CALES")
  .AutoFilterMode = False
  .Range("A5:P5").AutoFilter Field:=1, Criteria1:= _
      ">=" & CDbl(Date - 4), Operator:=xlAnd, Criteria2:="<" & CDbl(Date + 1)
  Sheets.Add
  .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy [A1]
  .AutoFilterMode = False
 End With
 Columns("A:P").AutoFit
 Range("A1:P" & Cells(Rows.Count, 1).End(3).Row).Select
 ActiveWorkbook.EnvelopeVisible = True
 With ActiveSheet.MailEnvelope
  .Introduction = "Informações Apuradas as 06h"
  .Item.To = "[email protected]"   'coloque o destinatário da mensagem
  .Item.Subject = "Recebimento de Cales"
  .Item.Send
 End With
 Application.DisplayAlerts = False
 ActiveSheet.Delete
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 
 MsgBox "Relatório Enviado com sucesso!"
 
End Sub

Obrigado pela ajuda aí mano...

REC.xlsx

[Visitante]

substitua esta linha

  .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy [A1]

 

por estas

  .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy
  [A1].PasteSpecial xlPasteValues
  [A1].PasteSpecial xlPasteFormats

 

[Cleomirfl]

11 horas atrás, osvaldomp disse:

substitua esta linha

  .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy [A1]

 

por estas

  .Range("A5:P" & .Cells(Rows.Count, 1).End(3).Row).Copy
  [A1].PasteSpecial xlPasteValues
  [A1].PasteSpecial xlPasteFormats

 

Excelente meu camarada...acredito q agora não tenhamos mais surpresas..rsrsr..valeu pelo suporte...estarei iniciando em janeiro um curso de VBA, espero que um dia consiga desenrolar desse jeito como você! Obrigado mais uma vez!!!