Sumas en excel
Saludos amigo veo que es usted C.P. Y pues me entenderá aún más, estoy realizando unas revisiones de recargos solo que me encontré con un problema de sumas, colocó en la columna A el mes y año y en la columna B la tasa, estos serían mis datos, necesito en base a fecha inicial y fecha final dado en otras celdas en una celda POR me de la suma correspondiente a ese periodo por ejemplo reargos del 1ero. De enero de 2001 a Junio de 2001, pero si luego cambio la fecha inicial en donde estoy haciendo el cálculo a septiembre de 2001 que me recalcule a este nuevo periodo de 9 meses y así, siempre que me busque y suem en base a las fechas dadas.
Gracias desde ya por el apoyo
Gracias desde ya por el apoyo
1 respuesta
Respuesta de gualo
1
Sub Sumar_Recargos()
Range("F2").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1]),1)"
inicial = Range("F2").Value
Selection.ClearContents
Range("F3").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1]),1)"
final = Range("F3").Value
Selection.ClearContents
Range("A2").Select
recargo = 0
While ActiveCell.Value <> ""
If ActiveCell.Value = inicial Then
While Not ActiveCell.Value = final
recargo = recargo + ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Wend
End If
ActiveCell.Offset(1, 0).Select
Wend
Range("F2").Select
ActiveCell.Value = recargo
Selection.NumberFormat = "0.00%"
End Sub
Usa esta macro, y si no te resuelve me vuelves a decir. ;-)
Range("F2").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1]),1)"
inicial = Range("F2").Value
Selection.ClearContents
Range("F3").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1]),1)"
final = Range("F3").Value
Selection.ClearContents
Range("A2").Select
recargo = 0
While ActiveCell.Value <> ""
If ActiveCell.Value = inicial Then
While Not ActiveCell.Value = final
recargo = recargo + ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Wend
End If
ActiveCell.Offset(1, 0).Select
Wend
Range("F2").Select
ActiveCell.Value = recargo
Selection.NumberFormat = "0.00%"
End Sub
Usa esta macro, y si no te resuelve me vuelves a decir. ;-)
Los supuestos en mi macro son:
1)Las fechas en la columna A son con el día primero del mes y están ordenados ascendentemente
2)Las fechas inicial y final están en E2 y E3 respectivamente y están vacías las celdas F2 y F3
3)Los valores de A y B empiezan en el renglón 2 (el 1 son títulos)
Se me olvidó decírtelos, pues si no es así, hab´rá que modificar la macro.
1)Las fechas en la columna A son con el día primero del mes y están ordenados ascendentemente
2)Las fechas inicial y final están en E2 y E3 respectivamente y están vacías las celdas F2 y F3
3)Los valores de A y B empiezan en el renglón 2 (el 1 son títulos)
Se me olvidó decírtelos, pues si no es así, hab´rá que modificar la macro.
