Attribute VB_Name = "GenPlanillaAnual"
Function InformePlanillaAnual(StrHojaSrch, VariantDatoBuscar, LongFilaInicial,
LongColumna, LongRespuestaColumna, LongColumnaClasif, NumMes, NumAnual) As Long
Dim P1StrHojaSrch As String, P2VariantDatoBuscar As Variant, P3LongFilaInicial As
Long, P4LongColumna As Long, P5LongRespuestaColumna As Long, P6LongColumnaClasif As
Long, P7NumMes As Long, P8NumAnual As Long, VariantFechax As Date, StrMensaje As
String, VarianteDatoEval As Variant, LongMiMes As Long, LongMiAnual As Long
InformePlanillaAnual = 0
StrMensaje = "Asigne bien los par�metros. Param1 = Caracter, Param2 = Cualquier
Dato, Param3 = N�mero, Param4 = N�mero, Param5 = N�mero"
If VarType(StrHojaSrch) = 8 Or VarType(StrHojaSrch) = 2 Then
If WorksheetExist(StrHojaSrch) Then
If VarType(VariantDatoBuscar) = 5 Or VarType(VariantDatoBuscar) = 7 Or
VarType(VariantDatoBuscar) = 8 Or VarType(VariantDatoBuscar) = 2 Then
If VarType(LongFilaInicial) = 5 Or VarType(LongFilaInicial) = 2 Then
If VarType(LongColumna) = 5 Or VarType(LongColumna) = 2 Then
If VarType(LongRespuestaColumna) = 5 Or
VarType(LongRespuestaColumna) = 2 Then
If VarType(LongColumnaClasif) = 5 Or
VarType(LongColumnaClasif) = 2 Then
If VarType(NumMes) = 5 Or VarType(NumMes) = 2 Then
If VarType(NumAnual) = 5 Or VarType(NumAnual) = 2
Then
P1StrHojaSrch = StrHojaSrch
P2VariantDatoBuscar = VariantDatoBuscar
P3LongFilaInicial = LongFilaInicial
P4LongColumna = LongColumna
P5LongRespuestaColumna = LongRespuestaColumna
P6LongColumnaClasif = LongColumnaClasif
P7NumMes = NumMes
P8NumAnual = NumAnual
While
Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial, P4LongColumna) <> "" Or
Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial, P4LongColumna) <> 0
If
Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial, P4LongColumna) =
P2VariantDatoBuscar Then
VariantFechax =
Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial, P6LongColumnaClasif).Value
If VarType(VariantFechax) = 7 Then
LongMiMes = Month(VariantFechax)
LongMiAnual = Year(VariantFechax)
VarianteDatoEval =
Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial, P5LongRespuestaColumna).Value
Select Case
VarType(VarianteDatoEval)
Case 5 'Es Numerico
If P7NumMes = LongMiMes And
P8NumAnual = LongMiAnual Then
InformePlanillaAnual =
InformePlanillaAnual + Worksheets(P1StrHojaSrch).Cells(P3LongFilaInicial,
P5LongRespuestaColumna).Value
End If
End Select
End If
End If
P3LongFilaInicial = P3LongFilaInicial + 1
Wend
Else '1
InformePlanillaAnual = 0
End If
Else '2
InformePlanillaAnual = 0
End If
Else '3
InformePlanillaAnual = 0
End If
Else '4
InformePlanillaAnual = 0
End If
Else '5
InformePlanillaAnual = 0
End If
Else '6
InformePlanillaAnual = 0
End If
Else '7
InformePlanillaAnual = 0
End If
Else '8
InformePlanillaAnual = 0
End If
Else '9
InformePlanillaAnual = 0
End If
End Function
'Forma de Uso:
' =InformePlanillaAnual("REGISTROS";D2;2;1;2;1,12,2024)
'=InformePlanillaAnual("REGISTROS";1;2;1;2;1,12,2024)
'=InformePlanillaAnual("REGISTROS";"01/10/2024";2;1;2;1,12,2024)
'=InformePlanillaAnual("REGISTROS";MeVar;2;1;2;1,12,2024)