Estou tentando fazer uma macro em que identifique se há uma data de vencimento na coluna L que vence dentro de um mês, e se houver, lançar um msgbox
e envie um e-mail via Outlook
colando toda a tabela (I1:O21) no corpo do e-mail.
Caso não haja vencimentos com DateDiff
< 30, cria um msgBox
indicado que não há pagamentos nesse mês.
Mas por algum motivo há um erro e não consigo identificar.
O erro:
Segue cód:
Sub Atualizar_pagamentos()
Dim dataMin As Date
Set myRange = Worksheets("Calendário Financeiro").range("L9:L19")
dataMin = Application.WorksheetFunction.Min(myRange)
If DateDiff("d", Now(), dataMinima) < 30 Then
msgbox "Atenção, há pagamentos de seguro dentro de 30 dias, verifique seu e-mail." + vbOKOnly
Dim rng As range
Sheets("Calendário Financeiro").Cells = "I1:O21"
Set rng = Selection.SpecialCells(xlCellTypeVisible)
rng.Copy Sheets("Calendário Financeiro").[A1]
Sheets("Calendário Financeiro").Activate: ActiveSheet.UsedRange.Select
ActiveWorkbook.EnvelopeVisible = True 'False
With ActiveSheet.MailEnvelope
.Introduction = "Olá, segue pagamentos de seguros dentro do mês:"
.Item.To = "[email protected]"
.Item.CC = ""
.Item.Subject = "TESTE Pagamento"
End With
Else
msgbox "Não há pagamentos de seguro para serem programados dentro do mês" + vbOKOnly
End If
End Sub
EDIT Acabei fechando e abrindo a planilha e tive uma resposta diferente no depurador:
O que isso significa?
Dim dataMin As Date
antes dedataMin = Application.WorksheetFunction.Min(myRange)
. A utilização deOption Explicit
evita este tipo de erro, pois você precisaria declarar todas as variáveis.