Saltar al contenido

Bryan Acosta

Miembros
  • Contador de contenido

    2
  • Unido

  • Última visita

  1. Estimados, Les presento mi problema que espero me puedan dar una guía de como resolverlo. Por temas de presentación en un reporte de excel tengo que poner una tabla dinámica bajo la otra tabla dinámica, el problema que tengo como es evidente es que el momento que quiero expandir la tabla dinámica superior no me deja por que no se puede superponer sobra la tabla dinámica inferior. Para solventar este problema quería aplicar una macro en VBA de excel que permita hacer lo siguiente: Encontrar el evento de la tabla dinámica que cuando de clic en el "+" para expandir la tabla dinámica lo primero que realice la macro se contar los hijos que contiene. Al tener el número de registros que contiene la agrupación que estoy expandiendo insertar filas en medio de las dos tablas de tal forma que la tabla superior se pueda desplegar y la tabla inferior se desplaza hacia abajo. Se haría los mismo cuando quiere contraer una agrupación Este es mi problema que tengo y he visto esta posible solución, pero no encuentro como plasmar la idea en una macro. Muchas gracias si alguien me puede ayudar con alguna alternativa o guía de como hacer. Saludos,
  2. Estimados, Tengo el siguiente códgio para crear citas desde una macro. Private Sub CommandButton1_Click() Dim Respuesta As VbMsgBoxResult Dim ol As New Outlook.Application Dim ns As Outlook.Namespace Dim itmApoint As Outlook.AppointmentItem Set ns = ol.GetNamespace("MAPI") Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) With itmApoint .Start = "2014-05-22 13:00:00" .End = "2014-05-22 13:00:00" .Subject = "Prueba" .Body = "Prueba" .Importance = olImportanceNormal .Save End With MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje" End Sub Este código me funciona muy bien en algunas máquinas, pero en otras me da el siguiente error: Se ha producido el error 13 en tiempo de ejecucion No Coinciden los tipos Y es en la línea: Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) Muchas Graicas por sus comentarios. Saludos,
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.