Contar elementos de una base de datos
Para Dante Amor.
Buenas tardes:
Nuevamente recurro a su generosidad par ver si es posible que me colabore con el siguiente tema:
Tengo una base de datos en la cual se relacionan documentos por fecha, los documentos a su vez contienen varios items, por lo que en la misma fecha se puede repetir el documento tantas veces como items pueda contener, lo que necesito es poder contar cuantos documentos se elaboran por día; si el documento se repite, lo debe contar como uno solo, he intentado con tabla dinámica, pero cuando el documento se repite, me lo cuenta varias veces.
Agradezco de antemano el apoyo que me pueda brindar con el tema.
1 respuesta
Respuesta de Dante Amor
1
Prueba con la macro:
Sub TotalesPorDia()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("INFORME")
Set h2 = Sheets("Hoja1")
h2.Columns("A:F").Clear
h1.Columns("A:B").Copy h2.[A1]
u = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("$A$1:$B$" & u).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
u = h2.Range("A" & Rows.Count).End(xlUp).Row
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
h2.Range("A1:B" & u), Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=h2.Range("D1"), TableName:="Tabla dinámica1", _
DefaultVersion:=xlPivotTableVersion12
With h2.PivotTables("Tabla dinámica1").PivotFields( _
"Fecha Orden de Compra")
.Orientation = xlRowField
.Position = 1
End With
h2.PivotTables("Tabla dinámica1").AddDataField h2.PivotTables _
("Tabla dinámica1").PivotFields("# Orden de Compra"), _
"Cuenta de # Orden de Compra", xlCount
With h2.PivotTables("Tabla dinámica1").PivotFields("# Orden de Compra")
.Orientation = xlRowField
.Position = 2
End With
h2.PivotTables("Tabla dinámica1").PivotFields("Fecha Orden de Compra") _
.LayoutForm = xlTabular
End Sub':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
