Saltar al contenido

Juan Colqui

Miembro
  • Contador de contenido

    5
  • Unido

  • Última visita

  • País

    Perú

Todo se publica por Juan Colqui

  1. Estimados Expertos buenas tardes: Estuve trabajando en una tabla dinámica que se actualiza mes a mes, según le indico en la segmentación de datos. Pero quisiera que se ejecute una macro al actualizar esta tabla dinámica, ¿con que evento puedo actualizarla? He usado el Evento Worksheet_SelectionChange(ByVal Target As Range) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim NomBRE As Workbook, AUx As Integer If Not Intersect(Target, Range("R9")) Is Nothing Then AUx = ContarNPC(Month(Range("O3"))) Range("S9").FormulaR1C1 = "= " & [AUx] & " / R[3]C[1]" End If End Sub Pero a pesar que la celda R9 se actualiza al actualizar la tabla dinámica (ya que esta igualada un valor de la tabla), la macro no se ejecuta, a menos que coloque el puntero del mouse en la celda R9 y le haga click ¿Hay otra evento que se pueda usar, para que se ejecute al actualizar la tabla dinámica?, muchas gracias por su respuesta Juan Colqui
  2. Muchas gracias por su pronta repuesta Israel. Ese era el detalle 👍
  3. Estimados Expertos: Quería consultar su ayuda sobre combobox aplicado en una hoja excel (sin colocarla en un formulario). Al adicionar los valores para este combobox realizo un filtrado para eliminar valores repetidos. Logro eliminar los valores repetidos, pero como adiciono un comando Clear al inicio para borrar los datos de filtrado y no se me acumule, entonces al final se borra el item seleccionado. Les paso mi fichero por si alguien ha tratado de realiza anteriormente este proceso: Private Sub Combobox1_DropButtonClick() Dim sd As New Collection Dim celda As Range Dim dato Dim r As Range Dim UF As Integer On Error Resume Next Worksheets("CONSOLIDADO").Activate Range("S2").Select CMBPlanta.Clear With Worksheets("BASE") UF = .Range("S" & Rows.Count).End(xlUp).Row Set r = .Range("S2:S" & UF) For Each celda In r sd.Add celda.value, CStr(celda.value) Next celda For Each dato In sd Combobox1.AddItem dato Next dato End With End Sub Cunado realizo este combobox en un formulario no me genera mayor problema, pero quería saber si colcando el combobox directo a la hoja de excel puede funcionar.Muchas gracias por su ayuda.
×
×
  • 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.