UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Sumar al final de la hoja el 28/10/13, 08:42 pm

jgcindustrial


Tengo un archivo donde llevo el control de ordenes de compra abiertas, pero al final de la table dinámica quiero que me haga una suma de lo que es en dólares y en pesos, pero no siempre termina en la misma posición, quiero que la macro reconozca dónde termina y allí coloque la formula con un comentario.


Adjunto archivo


De antemano gracias


Saludos



Julio González
Archivos
Ordenes de compra abiertas para macro.xlsm
No tienes los permisos para descargar los archivos.
(79 KB)

2 Re: Sumar al final de la hoja el 29/10/13, 12:15 am

tyno


Hola Julio, buena noches.
Paso tu archivo con una Tabla Dinámica mas una macro que creo cumple con tu pedido.
Dicha Tabla Dinámica se encuentra en la Hoja TD.
La Tabla Dinámica se actualiza al seleccionar la Hoja TD, además dicha Tabla Dinámica le asigné un rango dinámico de manera que cada registro que agregues en la Hoja Compras también se agrega automáticamente a la Tabla Dinámica.
Cualquier cosa por aquí estaremos. Saludos.
Archivos
Ordenes de compra abiertas para macro.zip
No tienes los permisos para descargar los archivos.
(72 KB)

3 Gracias el 29/10/13, 12:21 pm

jgcindustrial


Buenos días.
Gracias por el archivo, pero desafortunadamente no me sirvió y no es por la macro, si no que me aparece esto "Error de copilación:" "No se puede encontrar el proyecto o la biblioteca" Según yo es algo de mi office, pero igual te quería pedir de favor que en la macro que hice para el filtro avanzado en esa macro le incluyas la formula para que sume en el último renglón.



De antemano gracias



Saludos



Julio González

4 Re: Sumar al final de la hoja el 29/10/13, 02:27 pm

tyno


Hola Julio.
Ingresa al editor de macros (alt+f11) y en Herramientas, en Referencias fijate si hay alguna que diga FALTA... y este tildada, en este caso hay que destildar dicha referencia. La referencia que vi que estaba marcada era la que decia "Ref Edit Control".

Por otro lado lo que inserta los totales al final de la Tabla Dinámica es una macro que va en el mismo editor donde esta la Tabla:

Private Sub Worksheet_Activate()
On Error Resume Next


rw = Range("a65536").End(xlUp).Row + 1


'borrar totales
Cells(rw, 8 )= ""
Cells(rw, 9 ) = ""
Cells(rw + 1, 8 )= ""
Cells(rw + 1, 9 ) = ""


'actualizar tabla dinamica
 ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh
 
rw = Range("ia65536").End(xlUp).Row + 1
 
'insertar totales
Cells(rw, 8 )= "Total en MX: "
Cells(rw, 9 ) = Range("a3:a65536").Find("Total MX", lookat:=xlWhole).Offset(0, 8 )'mx


Cells(rw + 1, 8 )= "Total en US: "
Cells(rw + 1, 9 ) = Range("a3:a65536").Find("Total US", lookat:=xlWhole).Offset(0, 8 )'us


'ajustar tamaño de columnas
Cells.EntireColumn.AutoFit
End Sub



Por las dudas te paso el archivo en Excel 2003. Saludos
Archivos
Ordenes de compra abiertas para macro.zip
No tienes los permisos para descargar los archivos.
(56 KB)

jgcindustrial


Buenos días.
Muchas gracias, pero desafortunadamente no me sirvió para lo que ando buscando, todo está muy bien.

En la hoja OC Abierto hace un Tabla de Sub-Totales, en esa hoja pueden poner con la macro que tengo que sume al final de la hoja?



De antemano gracias
Archivos
Ordenes de compra abiertas para macro.xlsm
No tienes los permisos para descargar los archivos.
(80 KB)

6 Re: Sumar al final de la hoja el 30/10/13, 11:28 pm

tyno


Hola Julio.
He mirado el archivo pero no me doy cuenta de que lo pides. Tienes esa tabla que va en este caso desde B9 a G13 y por debajo parece que van los subtotales, pero ¿que sería lo que estas necesitando en este caso? Otra cosa que veo es que la formula =SUMAR.SI(Compras!C:C;'OC Abiertos'!C13;Compras!N:N)*(1,11) que tienes en la columna Total Sale de la tabla, hace referencia a la columna N de la Hoja Compra como el rango de datos a sumar pero los datos de la Hoja Compra no llegan a la columna N. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.