Hola a todos!
Estoy haciendo una planilla de cheques y donde necesito usar condiciones para sumar y contar, dentro de los filtros activados.
y es ahi donde la macro que hice, que es el codigo que subi, no me anda, osea anda pero no me tiene en cuenta la seleccion del autofiltro, me suma y me cuenta como si no estuviera ningun autofiltro activado.
Disculpame las molestias
y desde ya muchisimas gracias por su ayuda.
Saludos.
Código:
I = 16
ACUM_IMPORTE = 0
ACUM_IMPORTE_ABOGADO = 0
ACUM_INTERES_COBRADO = 0
ACUM_INTERES_ABOGADO = 0
CONTVACIO = 0
CONTVACIO_ABOGADO = 0
ACUM_IMPORTE_CANJE = 0
ACUM_INTERES_CANJE = 0
CONTVACIO_CANJE = 0
While Worksheets("Hoja1").Cells(I, 1).Value <> ""
If Worksheets("Hoja1").Cells(I, 10).Value = 1 And Worksheets("Hoja1").Cells(I, 9).Value = "COBRADO" Then
ACUM_IMPORTE = ACUM_IMPORTE + Worksheets("Hoja1").Cells(I, 7).Value
ACUM_INTERES_COBRADO = ACUM_INTERES_COBRADO + Worksheets("Hoja1").Cells(I, 8).Value
CONTVACIO = CONTVACIO + 1
Else
If Worksheets("Hoja1").Cells(I, 10).Value = 1 And Worksheets("Hoja1").Cells(I, 9).Value = "ABOGADO" Then
ACUM_IMPORTE_ABOGADO = ACUM_IMPORTE_ABOGADO + Worksheets("Hoja1").Cells(I, 7).Value
ACUM_INTERES_ABOGADO = ACUM_INTERES_ABOGADO + Worksheets("Hoja1").Cells(I, 8).Value
CONTVACIO_ABOGADO = CONTVACIO_ABOGADO + 1
Else
ACUM_IMPORTE_CANJE = ACUM_IMPORTE_CANJE + Worksheets("Hoja1").Cells(I, 7).Value
ACUM_INTERES_CANJE = ACUM_INTERES_CANJE + Worksheets("Hoja1").Cells(I, 8).Value
CONTVACIO_CANJE = CONTVACIO_CANJE + 1
End If
End If
I = I + 1
Range("D5") = ACUM_IMPORTE
Range("B5") = CONTVACIO
Range("F5") = ACUM_INTERES_COBRADO
Range("D6") = ACUM_IMPORTE_ABOGADO
Range("B6") = CONTVACIO_ABOGADO
Range("F6") = ACUM_INTERES_ABOGADO
Range("D7") = ACUM_IMPORTE_CANJE
Range("B7") = CONTVACIO_CANJE
Range("F7") = ACUM_INTERES_CANJE
Wend
I = I - 1
Worksheets("Hoja1").Cells(I, 7).Select
celdaactiva = ActiveCell.Address
Range("H10") = Application.WorksheetFunction.Subtotal(109, Range("G16:" + celdaactiva))
Range("H13") = Application.WorksheetFunction.Subtotal(102, Range("G16:" + celdaactiva))
Worksheets("Hoja1").Cells(11, 1).Select