Usuário com melhor resposta
Responder a POPUP do Excel automaticamente

Pergunta
-
Boa tarde,
Criei uma macro que tem função principal de apagar e recriar planilhas de acordo com as datas do mês, mas não sei como responder os POPUP gerados pelo excel automaticamente, alguém poderia me ajudar?
Segue a macro:
Sub Iniciar_Mes() Dim nNumSheets As Long Dim dPriDiaProxMes, dUltiDiaProxMes, dAtual As Date Dim wbMes As Workbook Dim wsDia As Worksheet Dim J As Long Dim nProxMes, nProxAno As Integer sMes = Left(ThisWorkbook.Name, 8) nProxMes = Mid(sMes, 6, 2) nProxAno = Mid(sMes, 1, 4) dPriDiaProxMes = DateSerial(nProxAno, nProxMes + 1, 1) dUltiDiaProxMes = DateSerial(nProxAno, nProxMes + 2, 1) - 1 Set wbMes = ThisWorkbook For Each wsDia In wbMes.Worksheets 'Apaga todas as planilhas até restar uma nNumSheets = wbMes.Worksheets.Count If nNumSheets > 1 Then wsDia.Delete Else wsDia.Range("C6:AC29").SpecialCells(xlCellTypeConstants, 23).ClearContents 'apaga todo conteúdo dentro da aba menos formulas Exit For End If Next For J = dUltiDiaProxMes To dPriDiaProxMes Step -1 dAtual = Format(J, "dd/mm/yyyy") Sheets(1).Select Sheets(1).Copy Before:=Sheets(1) Sheets(1).Name = Mid(dAtual, 1, 2) Next End Sub
POPUP que aparece ao deletar:
POPUP que aparece ao criar:
Desde já agradeço a vocês!
- Editado Lucas_Martins_Silva domingo, 1 de março de 2015 18:45 Falta de informação
Respostas
-
Faça assim:
application.DisplayAlerts = False sheets(1).delete application.DisplayAlerts = true
Natan
- Marcado como Resposta Lucas_Martins_Silva domingo, 1 de março de 2015 19:25
Todas as Respostas
-
Faça assim:
application.DisplayAlerts = False sheets(1).delete application.DisplayAlerts = true
Natan
- Marcado como Resposta Lucas_Martins_Silva domingo, 1 de março de 2015 19:25
-
Obrigado Nathan,
Consegui resolver com sua indicação.
- Editado Lucas_Martins_Silva domingo, 1 de março de 2015 19:26 Resposta encontrada