Macro para Anular la dinamización

Con esta macro anularas la dinamización de las columnas sin tener que entrar en Power Query

Conseguiras hacer el mismo efecto que en Power Query con las anular dinamización de columnas sin tener que acceder a el.

Código de la macro

Sub AnularDinamizacion()

Dim PrimeraColumna As Range
Dim SegundaColumna As Range
Dim TerceraColumna As Range
Dim i As Double
Dim Y As Double
Dim ItPrimeraColumna As Double
Dim ItSegundaColumna As Double
Dim Posicion As Range
Dim Indice As Double

On Error GoTo Errores

Set PrimeraColumna = Application.InputBox(«Elige los datos que quieres en la primera columna», «Excel y finanzas», Type:=8)
Set SegundaColumna = Application.InputBox(«Elige los datos que quieres en la segunda columna», «Excel y finanzas», Type:=8)
Set TerceraColumna = Application.InputBox(«Elige los datos que quieres en la tercera columna», «Excel y finanzas», Type:=8)
Set Posicion = Application.InputBox(«Elige la celda a partir de donde quieres los datos», «Excel y finanzas», Type:=8)

Application.ScreenUpdating = False

ItPrimeraColumna = PrimeraColumna.Count
ItSegundaColumna = SegundaColumna.Count
Indice = ItSegundaColumna – ItSegundaColumna + 1

For i = 1 To ItPrimeraColumna

Posicion.Value = PrimeraColumna(i).Value

    For Y = 1 To ItSegundaColumna

        Posicion.Offset(0, 1).Value = SegundaColumna(Y).Value
        Posicion.Offset(0, 2).Value = TerceraColumna(Indice).Value
        Set Posicion = Posicion.Offset(1, 0)

            If Y <> ItSegundaColumna Then
                Posicion.Value = PrimeraColumna(i).Value
            Else
            End If

        Indice = Indice + 1

    Next Y

Next i

Application.ScreenUpdating = True

Exit Sub

Errores:

Application.ScreenUpdating = True

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada