Cuestión : Perseguidor de la atención - consolidación de los datos

Tengo un perseguidor de la atención que tenga mes en datos del mes en varias hojas de balance y he incluido una hoja de balance nombrada el “resumen”, que debe básicamente darme la suma de las hojas para cada empleado (tirado de las varias hojas). Ayudarme por favor. Gracias class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : Perseguidor de la atención - consolidación de los datos

Aquí está una actualización que trata el punto 1. Para el punto 2, usted apenas tiene que copiar la fórmula a través.

Thomas
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:
29:

Función GetLeave (empNo como secuencia, strType como secuencia)
Sht dévil como hoja de trabajo, rowFound como de largo, colFound como de largo, lgResult como de largo

En curriculum vitae del error después

Para cada sht en ActiveWorkbook.Worksheets

    Si sht. Nombre <> “resumen” entonces
        rowFound = sht. Columnas (2).Find (qué: =empNo, después: =sht. Células (1, 2), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ del =False
                    , SearchFormat: =False). Fila
        colFound = sht. Filas (9).Find (qué: =strType, después: =sht. Células (9, 1), LookIn: =xlValues, LookAt: = _
                    xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: _ del =False
                    , SearchFormat: =False). Columna
    
    
        Si Err.Number = 0 entonces
            lgResult = lgResult + sht. Células (rowFound, colFound)
        
            Err.Clear
        Terminar si
    
    Terminar si
    
Después

GetLeave = lgResult

Función del final
Otras soluciones  
 
programming4us programming4us