Jump to content

[SOLUCIONADO] Generar reporte con macro, con datos y operaciones especificas


bermix

Recommended Posts

Hola amigos; nuevamente estoy de regreso solicitando su ayuda, y de antemano agradeciendo el apoyo que me dieron en el tema anterior los amigos de este foro. Gracias!!

Agrego un archivo donde muestro un ejemplo de la ayuda que solicito. Tengo un codigo en este archivo archivo que me proporcionaron aqui en este foro, pero ahora quiero que el reporte sea mas detallado. Tambien el codigo lo quiero utilizar en 12 hojas diferentes, es decir: Ing. Ene, Ing. Feb, ... Ing. Dic, por decirlo asi. Gracias de antemano, y estare nuevamente agracido. Saludos

Gracias! Bernardo

Libro3repor.zip

Link to comment
Share on other sites

Respuesta: Generar reporte atraves de un macro, con datos y operaciones especificas

Hola Bermix,

Prueba así a ver cómo sale:

Sub Reporte()
Dim uf1 As Long, uf2 As Long
Sheets.Add.Range("b1:d1") = Array("Operaciones", "Importe", "Leyenda")
With Sheets("Ing. Diario")
uf1 = .Range("c" & Rows.Count).End(xlUp).Row
.Range("c1:c" & uf1).AdvancedFilter 2, , Range("a1"), 1
End With
With Range("a1")
uf2 = .CurrentRegion.Rows.Count
.Offset(1, 1).Resize(uf2 - 1) = _
Evaluate("index(countif('Ing. Diario'!c2:c" & uf1 & ",a2:a" & uf2 & "),0)")
.Offset(1, 2).Resize(uf2 - 1) = _
Evaluate("index(sumif('Ing. Diario'!c2:c" & uf1 & ",a2:a" & uf2 & ",'Ing. Diario'!h2:h" & uf1 & "),0)")
.Offset(uf2)(2).Resize(3) = Application.Transpose(Array("Total operaciones", "Subtotal", "Tasa 10%"))
.Offset(uf2, 1)(2) = WorksheetFunction.Sum(.Offset(1, 1).Resize(uf2 - 1))
.Offset(uf2, 2)(3) = WorksheetFunction.Sum(.Offset(1, 2).Resize(uf2 - 1))
.Offset(uf2, 2)(4) = .Offset(uf2, 2)(3) * 0.1
.Offset(1, 3).Resize(uf2 - 1) = _
Evaluate("index(if(c2:c" & uf2 & "<" & .Offset(uf2, 2)(4).Address & ",""Global"",""Individual""),0)")
End With
End Sub[/CODE]

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy