Cuestión : Hacer la lista de todos los cambios en los 5 días próximos

Hola todo, el

I que trabajaba en la hoja de balance atada y yo esperaban poder poblar automáticamente la lengüeta del calendario buscando el resto de lengüetas por fechas en el plazo de los 5 días próximos.  ¿

Is que posible?  ¿puede alguien ayudarme hacia fuera con la escritura de VB a hacerla? el

It sería ideal si podría suceder cuando usted selecciona ese

Thanks por adelantado. de cuadro class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Change-Managment-2-.xlsx el class= (67 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Cambiar Spreadsheet
el class= de
del >
class= del

Respuesta : Hacer la lista de todos los cambios en los 5 días próximos

Nombre de la hoja de trabajo agregado a la columna 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 se debe instalar en el cristal del código para la hoja de trabajo del calendario. No trabajará en absoluto si está instalado en cualquier otro lugar.
Worksheet_Activate secundario privado ()
WS dévil como hoja de trabajo, wsCalendar como hoja de trabajo
Rg dévil como gama, más rgDest como gama
N dévil como de largo
Application.ScreenUpdating = falso
wsCalendar determinado = hojas de trabajo (“calendario”)
wsCalendar.Rows (2).Resize (wsCalendar.Rows.Count - 1).Delete
Para cada WS en ThisWorkbook.Worksheets
    Seleccionar el caso WS. Nombre
    Encajonar el “calendario”, “casero”, “espacio de funcionamiento”   'no hacen caso de estas hojas de trabajo
    Encajonar 
        Con WS
            Fijar el rg =. Gama (“B4”). Volver a clasificar según el tamaño (.UsedRange.Rows.Count, 5)    'mirada en las columnas B: F, comenzando en la fila 4
            Si (no intersecarse (rg, .UsedRange) no es nada) y (rg. Células (1, 2) <> "") entonces
                campo de rg.AutoFilter: =2, Criteria1: = "<> = " y (fecha - 5)
                La más rgDest determinado = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy más rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Volver a clasificar según el tamaño (n, 1).Value = WS. Nombre
                rgDest.Rows (1).EntireRow.Delete
                . Gama (“B4”) .AutoFilter
            Terminar si
        Terminar con
    Terminar selecto
Después
Application.ScreenUpdating = verdad
Submarino del extremo
Otras soluciones  
 
programming4us programming4us