Pytanie : Robić lista wszystkie zmiana w the następny 5 dzień

Cześć Dzień,

I am działanie na the dołączać spreadsheet i I mieć nadzieję sprawnie automatycznie the Kalendarzowy zakładka wszystkie the inny zakładka dla data wśród the następny 5 dzień.  

Is który ewentualny?  móc ono ono z the VB Pismo ono?

It być idealny jeżeli ono móc gdy ty wybierać ten zakładka.

Thanks w advance.
Attachments:
Change-Managment-2-.xlsx (67 KB)  (Kartoteka Typ Szczegół)  
Zmiana Spreadsheet

Odpowiedź : Robić lista wszystkie zmiana w the następny 5 dzień

Worksheet imię dodawać kolumna 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:

'Ten okręt podwodny musieć instalować w the kod tafla dla the kalendarzowy worksheet. Ono pracować wcale jeżeli instalować gdziekolwiek inny.
Intymny Okręt podwodny Worksheet_Activate ()
Ciemnawy ws Jako Worksheet, wsCalendar Jako Worksheet
Ciemnawy rg Jako Pasmo, rgDest Pasmo
Ciemnawy n Długo
Application.ScreenUpdating = Fałszywy
Ustalony wsCalendar = Worksheets ("Kalendarz")
wsCalendar.Rows (2).Resize (wsCalendar.Rows.Count - 1).Delete
Dla ThisWorkbook.Worksheets ws W ThisWorkbook.Worksheets
    Wybrany Skrzynka ws. Imię
    Pakować "Kalendarz", "Domowy", "Przestrzeń"   'Ignorować te worksheets
    Pakować Inny
        Z ws
            Ustalony rg =. Pasmo ("B4"). Resize (.UsedRange.Rows.Count, 5)    'Spojrzenie przy kolumna B: F, w rząd 4
            Jeżeli ((Rg, .UsedRange) Być Rg) I (rg. Komórka ((1), 2) <> "") Wtedy
                rg.AutoFilter Pole: =2, Criteria1: = "<> = " & (Data - 5)
                Ustalony rgDest = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset ((0), -1). Resize (n, 1).Value = ws. Imię
                rgDest.Rows (1).EntireRow.Delete
                . Pasmo ("B4") .AutoFilter
            Kończyć Jeżeli
        Kończyć Z
    Kończyć Wybiórka
Następnie
Application.ScreenUpdating = Prawdziwy
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us