Buscar Datos Por Rango De Fecha Y Totalizarlos
Tengo los siguientes datos hoja 1, tres columnas = columna A "Fecha" Columna B "Factura" Columna C "Valor Factura", y tengo datos recolectados de mes abril, mayo, junio en dichas columnas, lo que pretendo hacer con esto es que mediante un botón que tengo en la hoja 2 me arroje en en rango C3 el valor total de las facturas del mes de abril.
2 respuestas
Respuesta de James Bond
2
Este es el resultado de la macro para que funcione es necesario que tus datos en la hoja dos estén como en la imagen en A3 capturas la fecha puede se cualquier fecha, Excel calcula el numero de mes y con ese numero la macro totaliza en C3
y esta es la macro, el boton tu se lo agregas.
Sub sumar_datos()
Set h1 = Worksheets("hoja1")
Set H2 = Worksheets("hoja2")
Set DATOS = h1.Range("a1").CurrentRegion
With DATOS
r = .Rows.Count: c = .Columns.Count
Set MES = .Cells(2, c + 1).Resize(r - 1)
MES.Formula = "=month(a2)"
VMES = H2.Range("B3")
CUENTA = WorksheetFunction.CountIf(MES, VMES)
FILA = WorksheetFunction.Match(VMES, MES, 0)
H2.Range("C3") = WorksheetFunction.Sum(.Cells(FILA + 1, 3).Resize(CUENTA, 1))
MES.Clear
End With
Set DATOS = Nothing: Set MES = Nothing
End Sub
