Questione : Fare la lista di tutti i cambiamenti in 5 giorni prossimi

Ciao tutto, il

I che lavorano al foglio elettronico allegato ed io stavano sperando di potere popolare automaticamente la linguetta del calendario cercando tutte le altre linguette le date nei 5 giorni prossimi.  

Is che possibile?  può qualcuno aiutarlo fuori con lo scritto di VB a farlo? il

It sarebbe ideale se potesse accadere quando selezionate in anticipo quel

Thanks. di tabella class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di Change-Managment-2-.xlsx il class= (67 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
Cambiare Spreadsheet
il class= di
del >
class= del

Risposta : Fare la lista di tutti i cambiamenti in 5 giorni prossimi

Nome del manuale aggiunto alla colonna 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:

'Questo sommergibile deve essere installato nella lastra di vetro di codice per il manuale del calendario. Non funzionerà affatto se installato in qualsiasi altro luogo.
Worksheet_Activate secondario riservato ()
La WS fioca come manuale, wsCalendar come manuale
Rg fioco come gamma, più rgDest come gamma
N fioca come lungamente
Application.ScreenUpdating = falso
wsCalendar stabilito = manuali (“calendario„)
wsCalendar.Rows (2).Resize (wsCalendar.Rows.Count - 1).Delete
Per l'ogni WS in ThisWorkbook.Worksheets
    Selezionare il caso WS. Nome
    Mettere “il calendario„, “domestico„, “spazio di lavoro„   'ignorano questi manuali
    Mettere altrimenti
        Con la WS
            Regolare il rg =. Gamma (“B4„). Ridimensionare (.UsedRange.Rows.Count, 5)    'sguardo alle colonne B: F, iniziante nella fila 4
            Se (non intersecare (rg, .UsedRange) è niente) e (rg. Cellule (1, 2) <> "") allora
                campo di rg.AutoFilter: =2, Criteria1: = "<> = " & (data - 5)
                Più rgDest stabilito = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy più rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Ridimensionare (n, 1).Value = WS. Nome
                rgDest.Rows (1).EntireRow.Delete
                . Gamma (“B4„) .AutoFilter
            Concluder se
        Concluder con
    Concludere prescelto
Dopo
Application.ScreenUpdating = allineano
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us