none
Responder a POPUP do Excel automaticamente RRS feed

  • 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!

    domingo, 1 de março de 2015 18:38

Respostas

Todas as Respostas