Fråga : Gör för att lista allra ändringar i de nästa 5 dagarna

Hi allt, förmiddagarbetet för

I på det fäste räknearket och jag hoppas för att vara kompetent automatiskt att befolka kalenderfliken, genom att söka alla andra flikar för, daterar inom de nästa 5 dagarna.  

Is som möjlighet?  kan någon hjälpa mig ut med VBEN att skriva för att göra den?

It skulle är ideal, om den kunde hända, när du väljer den flik.

Thanks i advance. Attachments: för >
<-/div> " title= " för den Change-Managment-2-.xlsx (67 KB)  " javascript för href= " för Ändra Spreadsheet <-/div>
för >
<-/div> " klar "

Svar : Gör för att lista allra ändringar i de nästa 5 dagarna

Känt ökat för arbetssedel till kolonn 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:

'Denna sub måste installeras i kodifiera förser med rutor för kalenderarbetssedeln. Den ska inte arbete alls, om installerat någon annanstans.
Privata underWorksheet_Activate ()
Dunkel ws som arbetssedeln som är wsCalendar som arbetssedeln
Dunkel rg som spänner, mest rgDest som spänner
Dunkelt n som Long
Application.ScreenUpdating = falskt
Fastställdt wsCalendar = arbetssedlar (”kalendern”)
wsCalendar.Rows (2). Resize (wsCalendar.Rows.Count - 1). Borttagnings
För varje ws i ThisWorkbook.Worksheets
    Välj fallet ws. Namnge
    Case ”kalendern”, ”hem-”, ”funktionsdugligt utrymme”   'ignorerar dessa arbetssedlar
    Case annars
        Med ws
            Fastställd rg =. Spänna (”B4”). Resize (.UsedRange.Rows.Count, 5)    'looken på kolonner B: F start ror in 4
            Om (att inte skära (rg, .UsedRange) är ingenting), och (rg. "" för celler (1, 2 <> )) därefter
                rg.AutoFilter sätter in: =2 Criteria1: = "<> = " & (datera - 5),
                Fastställd mest rgDest = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                mest rgDest .AutoFilter.Range.Copy
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Resize (n, 1). Värdera = ws. Namnge
                rgDest.Rows (1) .EntireRow.Delete
                . Spänna (”B4”) .AutoFilter
            Avsluta om
        Avsluta med
    Avsluta valt
Därefter
Application.ScreenUpdating = True
Avsluta suben
Andra lösningar  
 
programming4us programming4us