Se puede por medio de una variable montar un campo calculado para una macro

He generado un macro para que genere un campo calculado en una tabla dinámica y este se compone de sumar varias columnas, pero el tema es que los nombres de las columnas varían; lo intente montar con una variable pero no sirve de que otra manera se puede hacer.

1 Respuesta

Respuesta
1

Te anexo la macro para validar que las celdas tengan datos, si tienen datos te crea el campo calculado.

Sub CampoCalculado()
'Por.Dante Amor
    lider1 = Hoja5.[B4]
    lider2 = Hoja5.[C4]
    lider3 = Hoja5.[D4]
    lider4 = Hoja5.[E4]
    lider5 = Hoja5.[F4]
    If lider1 <> "" Then cad = lider1
    If lider2 <> "" Then cad = cad & "+" & lider2
    If lider3 <> "" Then cad = cad & "+" & lider3
    If lider4 <> "" Then cad = cad & "+" & lider4
    If lider5 <> "" Then cad = cad & "+" & lider5
    '
    If cad <> "" Then
        cad = "=" & cad
        cad = "=" & lider1 & "+" & lider2 & "+" & lider3 & "+" & lider4 & "+" & lider5
        On Error Resume Next
        ActiveSheet.PivotTables(1).CalculatedFields("Total General").Delete
        On Error GoTo 0
        ActiveSheet.PivotTables(1).CalculatedFields.Add _
            "Total General", cad, True
        ActiveSheet.PivotTables(1).PivotFields("Total General").Orientation = _
            xlDataField
    End If
End Sub

Saludos.Dante Amor

Disculpa, se me fue una línea, esta es la macro:

Sub CampoCalculado()
'Por.Dante Amor
    lider1 = Hoja5.[B4]
    lider2 = Hoja5.[C4]
    lider3 = Hoja5.[D4]
    lider4 = Hoja5.[E4]
    lider5 = Hoja5.[F4]
    If lider1 <> "" Then cad = lider1
    If lider2 <> "" Then cad = cad & "+" & lider2
    If lider3 <> "" Then cad = cad & "+" & lider3
    If lider4 <> "" Then cad = cad & "+" & lider4
    If lider5 <> "" Then cad = cad & "+" & lider5
    '
    If cad <> "" Then
        cad = "=" & cad
        On Error Resume Next
        ActiveSheet.PivotTables(1).CalculatedFields("Total General").Delete
        On Error GoTo 0
        ActiveSheet.PivotTables(1).CalculatedFields.Add _
            "Total General", cad, True
        ActiveSheet.PivotTables(1).PivotFields("Total General").Orientation = _
            xlDataField
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Generar tabla dinámica en diferentes archivos

Me encuentro en una situación donde necesito crear una tabla dinámica en otro archivo de excel, ya fui capaz de generar la tabla dinamica; el detalle es que uso diferentes archivos que cambian de nombre, pero mantienen el mismo formato mi pregunta va...
1 respuesta

Tablas dinámicas con dos criterios

He leído muchas de tus respuestas (una parecida a la cuestión que te formulo) y poco a poco me voy iniciando en el macromundo. Me encuentro con que precisaría construir una macro que generase una tabla dinámica de acuerdo con los siguientes...
1 respuesta

Error en macro con tabla dinamica

Ok te explico el problema hice una macro donde se genera una tabla dinamica en el lugar de pagina de la tabla dinamica utilizo una variable que la da el usuario por medio de un inputbox le solicita el dato pero como la variable es numerica puede que...
1 respuesta

Generar Tablas Dinámicas con Macros

Como estas yo de nuevo con otra pregunta... Dentro de la Tremenda macro que estoy haciendo del cual tu participas ayudándome, tengo que generar una tabla dinámica, resulta que durante el día genero varias tablas dinámicas y la macro esta editada de...
1 respuesta

Estimado Dante! Quisiera ejecutar una macro al momento de que ciertas celdas cambian

Tengo una pregunta sobre como ejecutar automáticamente una macro al cambiar ciertas celdas. Las celdas que ejecutan la macro son B38, C38 y D38, quisiera que al cambiar cualquiera de estas 3 celdas la macro se ejecutara automáticamente Lo que hace la...
1 respuesta

Ayuda al "sincronizar" Tablas Dinámicas "condicionadas"

Como puedo determinar si en una tabla dinámica de un Excel existe un "Filtro de Informe" mediante macros, como ejemplo, como puedo determinar si existe el filtro "MES" en uan x Tabla dinámica, pero ello con macros. A la espera de su generosa ayuda
1 respuesta

Macro Para filtro de datos en etiquetas de fila de tabla dinámica

Quisiera Filtrar los datos de cualquiera de los campos que están en las etiquetas de fila de una tabla dinámica de acuerdon con valores ingresados en celdas es decir: Al escribir la palabra que debe filtrar en las celdas de color moradas se filte la...
1 respuesta

Función o macro que realice una búsqueda y me concatene los resultados

Necesito una función o macro que me realice una búsqueda de datos y me concatene el resultado, ejemplo: Tengo dos columnas A= numero de casa ; B: avance de la misma La función o macro debería buscarme en la columna "B" todas las casas que se...
1 respuesta

Tabla dimamica ejecutada desde una macro

La pregunta eslasiguiete, como hacer que se ejecute una tabla dinamicadesdeunamacroque cree, ladesarrollocorrectamente pero me aparece un error y no mesale la tabla ya intente de todoperono he podido. Este es elerror que me genera ' ' Macro1 Macro '...
1 respuesta

Seleccionar datos a filtrar en una TD con una macro

Espero se encuentre muy bien. Bueno mi problema es la siguiente: tengo un libro de excel con muchas tablas dinámicas, las cuales cada mes las tengo que actualizar y cambiar el filtro "mes", mi pregunta sería: puedo hacer que dentro de una macro, ¿La...
1 respuesta