Duda: Función ImportarDatosDinámicos en VBA

Viendo 1 entrada (de un total de 1)

Autor

Entradas
22 diciembre, 2017 a las 3:44 pm #7273

Anónimo
Inactivo

Buenos días. Me pongo en contacto con usted por una duda que no he sido capaz de encontrar en ningún foro, tutorial, video, etc.
Para situar mi problema, estoy aprendiendo VBA a la vez que lo aplico a mi trabajo, pero no doy con la sintaxis adecuada para que se ejecute correctamente.
El enunciado de mi problema sería el siguiente: tengo una tabla dinámica con un filtro por región (región1, región2 y región3). Columnas divididas en meses del año (enero a diciembre) y filas con tres tipos de ofertas (oferta1, oferta2 y oferta3). Los datos son cuenta de número ofertas.
Quiero extraer los datos de noviembre totales para cada región y hasta ahora lo hacía usando la función ImportarDatos y copiando el valor, pero es un trabajo muy lento y pesado para el ordenador y más si lo extrapolamos a que son muchas tablas dinámicas, regiones, etc.
He leído que mediante matrices que guarden los valores y luego lo copien en un rango se ahorra mucho tiempo.

Estoy intentando copiar cada valor por región a un hueco de la matriz, pero no conozco la sintaxis. ¿Podría ayudarme?
Primera opción (lenta)
Sub Cuenta()
ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”) 
.PivotItems(“Región1″).Visible = True
.PivotItems(“Región2″).Visible = False
.PivotItems(“Región3″).Visible = False
End With
Range(“A20″).Select
ActiveCell.FormulaR1C1 = _
 ”=GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”
Range(“A21″).Select
Range(“A20″).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
 
ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”) 
.PivotItems(“Región1″).Visible = False
.PivotItems(“Región2″).Visible = True
.PivotItems(“Región3″).Visible = False
End With
Range(“A21″).Select
ActiveCell.FormulaR1C1 = _
 ”=GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”
Range(“A22″).Select
Range(“A21″).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
 
ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”) 
.PivotItems(“Región1″).Visible = False
.PivotItems(“Región2″).Visible = False
.PivotItems(“Región3″).Visible = True
End With
Range(“A22″).Select
ActiveCell.FormulaR1C1 = _
 ”=GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”
Range(“A21″).Select
Range(“A22″).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
 
 
Segunda opción (¿más rápida?)
Dim i As Byte, j As Byte
Dim fila As Byte, columna As Byte
Dim rango As Range
Dim vector() As Long
 
i = 3
j = 1
 
ReDim vector(i, j)
 Set rango = Range(“Z20”, “Z22″)
 For fila = 1 To i
 For columna = 1 To j
 
If i = 1 Then
 ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
 With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”)
.PivotItems(“Región1″).Visible = True
.PivotItems(“Región2″).Visible = False
.PivotItems(“Región3″).Visible = False
 End With
 vector(fila, columna) = GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”

ElseIf i = 2 Then
 ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
 With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”)
.PivotItems(“Región1″).Visible = False
.PivotItems(“Región2″).Visible = True
.PivotItems(“Región3″).Visible = False
 End With
 vector(fila, columna) = GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”

Else: i = 3 Then
 ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”).CurrentPage = _
 ”(All)”
 With ActiveSheet.PivotTables(“Tabla dinámica1”).PivotFields(“Región”)
.PivotItems(“Región1″).Visible = False
.PivotItems(“Región2″).Visible = False
.PivotItems(“Región3″).Visible = True
 End With
 vector(fila, columna) = GETPIVOTDATA(“”Ofertas””, R4C2,””Mes””,11)”
End If
 
Next columna
 Next fila
 
 rango.Value = vector

End Sub

————————-


La zona en rojo es la que no sé cómo relacionar para agregar el dato. Es posible que falten variables porque como comento, soy nuevo programando.

Espero que puedan ayudarme.

Muchas gracias.
Autor

Entradas

Viendo 1 entrada (de un total de 1)

Debes estar registrado para responder a este debate.