Jump to content

Bryan Acosta

Members
  • Content Count

    2
  • Joined

  • Last visited

Posts posted by Bryan Acosta


  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:

    1. 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.
    2. 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.
    3. 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,

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png