Jump to content

Tabla dinamica con Datos de origen dinamicos


Recommended Posts

Buenos dias A todos

Necesito me ayuden tango este codigo de una macro que arma una tabla dinamica de una hoja ya fija. la hoja y la columna de donde se toman los datos de origen para alimentar la tabla dinamica siempre seran fija no que no sera fijo sera la fila. necesito me ayuden como concateno el valor de la fila con una variable adjunto codigo

Sheets("TABLA DINAMICA_RECON").Select
Sheets("TABLA DINAMICA_RECON").Move After:=Sheets(2)
FilaCOL = 10

'como idicar nombre de archivo

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"RECONSIDERACIONES!R[& FilaCOL & ]C2:R[FilaCOL]005C16").CreatePivotTable TableDestination:= _
"'[" & nomfic & "]TABLA DINAMICA_RECON'!R1C1", TableName:="Tabla dinámica5", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Tabla dinámica5").AddFields RowFields:=Array( _
"CAPITULOS")
With ActiveSheet.PivotTables("Tabla dinámica5").PivotFields("TOTAL $")
.Orientation = xlDataField
.Caption = "Suma de SubTotal"
.Function = xlSum
End With
ActiveSheet.Range("A4").Select
ActiveSheet.PivotTables("Tabla dinámica5").PivotFields("CAPITULOS").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)

ActiveWorkbook.ShowPivotTableFieldList = False[/PHP]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy