Pergunta : Fazer a lista de todas as mudanças nos próximos 5 dias

Olá! tudo, o

I am que trabalhamos no spreadsheet unido e eu estavam esperando poder povoar automaticamente a aba do calendário procurarando todas as abas restantes por datas dentro dos próximos 5 dias.  

Is que possível?  pode alguém ajudar-me para fora com o certificado de VB a fazê-lo? o

It seria ideal se poderia acontecer quando você seleciona essa aba.

Thanks adiantado. class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
class= " fileInfo " do
o title= " do " nome de arquivo do class= " do Change-Managment-2-.xlsx o class= (67 KB)  Javascript " do href= " dos " attachmentDetails do class= do (tipo de lima detalhes)  
class= " descrição " do
Mudar Spreadsheet
o class= de
do >
class= do

Resposta : Fazer a lista de todas as mudanças nos próximos 5 dias

Nome da folha adicionado à coluna A
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

'Este submarino deve ser instalado na placa do código para a folha do calendário. Não trabalhará de todo se instalado seja là onde for.
Worksheet_Activate secundário confidencial ()
WS não ofuscante como a folha, wsCalendar como a folha
Rg não ofuscante como a escala, a mais rgDest como a escala
N não ofuscante como por muito tempo
Application.ScreenUpdating = falso
wsCalendar ajustado = folhas (“calendário”)
wsCalendar.Rows (2). Resize (wsCalendar.Rows.Count - 1). Supressão
Para cada WS em ThisWorkbook.Worksheets
    Selecionar o caso WS. Nome
    Encaixotar o “calendário”, “Home”, de “espaço funcionamento”   'ignoram estas folhas
    Encaixotar mais
        Com WS
            Ajustar o rg =. Escala (“B4”). Resize (.UsedRange.Rows.Count, 5)    'o olhar nas colunas B: F, começando na fileira 4
            Se (não se cruzar (rg, .UsedRange) não é nada) e (rg. "" das pilhas (1, 2 <> )) então
                campo de rg.AutoFilter: =2, Criteria1: = "<> = " & (data - 5)
                O mais rgDest ajustado = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy o mais rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Resize (n, 1). Valor = WS. Nome
                rgDest.Rows (1) .EntireRow.Delete
                . Escala (“B4”) .AutoFilter
            Terminar se
        Terminar com
    Terminar seleto
Em seguida
Application.ScreenUpdating = retificam
Submarino da extremidade
Outras soluções  
 
programming4us programming4us