Como nombrar objetos VBA del siguiente ejemplo
Esto es muy sencillo, pero estoy algo varado
Me dice VBA un mensaje de erorr que me falta un OBJETO:
Sub Macro1()
Range("A1").Select.Value
Dim target As String
valor = Range("A1").Value
Range("b6").Select
Dim pt As PivotTable
Dim pf As PivotField
Dim df As PivotField
Set pt = ActiveSheet.PivotTables("TTDDTest")
For Each pf In pt.CalculatedFields
For Each df In pt.DataFields
If df.SourceName = pf.Name Then
With df
.Parent.PivotItems(.Name) _
.Visible = False
End With
Exit For
End If
Next df
Next pf
For Each pf In pt.DataFields
pf.Orientation = xlHidden
Next pf
ActiveSheet. PivotTables("TTDDTest"). AddDataField ActiveSheet.PivotTables( _
"TTDDTest"). PivotFields(valor), valor & "x", xlSum
End Sub
1 respuesta
Respuesta de Abraham Valencia
1