Buenas tardes, tengo un problema para una tabla dinámica que estoy trabajando. Esta contiene fechas en las columnas y los datos sumados en las filas. Pero cuando quiero pasar esto a una tabla dinámica no las puedo agrupar, Excel determina que las cabeceras son nombres y no me las agrupa para sumar por meses o años. ¿De que manera podría trabajar este archivo?
Necesito agrupar los datos de la cabecera que salen por mes y años... ☹️
Por
RandalHP, · publicado
Buenas gente, esot y programando una macro la cual al llegar a la sentencia :
Cells(2, columna).Activate
me tira: se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto
me seria de gran ayuda si identifican la causa del mismos. el codigo completo es el siguiente:
Dim f As String
Dim contadorhija As String
copiado = 0
columna = 3
contadorpadre = 3
Windows("Herramienta Patricio.xlsm").Activate
Cells(3, 1).Select
'ciclo recorredor de padres
Do Until IsEmpty(ActiveCell.Value)
ref = ActiveCell
Set Fso = CreateObject("Scripting.FileSystemObject")
'suspende macro se falta una estructura
If Not (Fso.FileExists("G:\VLS-Industrial\Logistica\PReid\Consumo MP sem siguiente\Estructuras\" & ref & ".xls")) Then
MsgBox "La estructura de la referencia " & ref & " no fue bajada de sap, descarguela, y vuelva a correr la macro"
Exit Sub
End If
'abre estructura
Workbooks.Open Filename:= _
"G:\VLS-Industrial\Logistica\PReid\Consumo MP sem siguiente\Estructuras\" & ref & ".xls"
Windows(ref & ".xls").Activate
Range("E11").Activate
contadorhija = 11
columna = 3
'recorro estructura y va armandola en el hoja de excel, selecciona ref hija y comprueba
Do Until IsEmpty(ActiveCell.Value)
Windows(ref & ".xls").Activate
Cells(contadorhija, 5).Activate
refhhija = ActiveCell
'Comprueba si existe ref hija en tabla
Windows("Herramienta Patricio.xlsm").Activate
Cells(2, columna).Activate
Do Until IsEmpty(ActiveCell.Value) Or copiado = 1
'Comprueba si existe ref hija en tabla
If refhija = ActiveCell Then
Windows(ref & ".xls").Activate
ActiveCell.Offset(0, 4).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
Cells("contadorpadre", columna + 1).Select
ActiveSheet.Paste
activecells.Offset(0, 1).Activate
activecells = Cells("contadorpadre", 2) * Cells("contadorpadre", columna + 1)
activerange.Offset(0, 1).Activate
contadorhija = contadorhija + 1
contadorpadre = contadorpadre + 1
copiado = 1
End If
Windows("Herramienta Patricio.xlsm").Activate
facha = columna + 3
Cells(2, columna).Activate
Loop
Windows(ref & ".xls").Activate
Cells(contadorhija, 14).Activate
If ActiveCell = "COMP" Or copiado = 0 Then
Cells(contadorhija, 5).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
ActiveSheet.Paste
Windows(ref & ".xls").Activate
Cells(contadorhija, 9).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
Cells("contadorpadre", columna + 1).Activate
ActiveSheet.Paste
Cells("contadorpadre", columna + 2) = Cells("contadorpadre", columna + 1) * Cells("facha", 2)
End If
Loop
Windows("Herramienta Patricio.xlsm").Activate
fila.Value = fila.Value + 1
Cells(1, fila).Select
Loop
End Sub