Macro per invertire dati di una tabella

Question

ciao a tutti,

avrei bisogno di una macro che inverta i dati di una tabella come nell'esempio del file excell da scaricare nel link sotto

https://we.tl/t-Wvqu0qJfR2

grazie

Answer 1

Ciao Andrea,

assolutamente non è colpa tua, prova a scaricare il link sotto, c'è un file che ha ciò che voglio ma che non riesco ad adattare al mio nuovo file perchè sono " ignorante " nel VBA

se apri il file e clicchi il bottone " inversione coordinate cartesiane" i dati vengono invertiti (celle gialle) ogni volta che premi il bottone

questa macro va bene ma non sono in grado di adattarla al mio nuovo file

https://we.tl/t-CQFkvLjFz0

Con il beneficio del secondo file, penso di aver capito finalmente!

Pertanto, analogamente al secondo file, ho inserito le formule appropriate nella tabella in F7:H10 e ho assegnato la seguente macro al pulsante di inversione:

'========>>

Option Explicit

'-------->>

Public Sub Invertire_Tabella()

Dim SH As Worksheet 

Dim rTabella As Range, rDestinazione As Range 

Dim rCurrent As Range 

Const sTabella As String = "**F7:H10**"         **'<<=== Modifica** 

Const sDestinazione As String = "**A7**" 

Set SH = ActiveSheet 

With SH 

    Set rTabella = .Range(sTabella) 

    Set rDestinazione = .Range(sDestinazione) 

    Set rCurrent = ActiveCell 

End With 

rTabella.Copy 

rDestinazione.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= \_ 

    False, Transpose:=False 

Application.CutCopyMode = False 

rCurrent.Activate 

End Sub

'<<========

Con questa configurazione, ad ogni click del pulsante Invertire Tabelle, ottengo successivamente i seguenti due risultati:

  [![](https://learn-attachment.microsoft.com/api/attachments/389b75cc-2a10-467d-b746-0c04f55386dd?platform=QnA

e

  [![](https://learn-attachment.microsoft.com/api/attachments/c7743696-81e3-41a3-820b-d30cc01b8b5b?platform=QnA

Potresti scaricare il mio file di prova Andrea20211215.xlsm

===

Regards,

Norman

Answer 2

Ciao Andrea,

Come sempre, un sincero ringraziamento, risolvi sempre i miei problemi...

grazie 1000 e se non ci sentiamo a breve, buon natale e buon anno

Sono lieto che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Come sempre, un sincero ringraziamento, risolvi sempre i miei problemi...

grazie 1000 e se non ci sentiamo a breve, buon natale e buon anno

ciao

Answer 4

assolutamente non è colpa tua, prova a scaricare il link sotto, c'è un file che ha ciò che voglio ma che non riesco ad adattare al mio nuovo file perchè sono " ignorante " nel VBA

se apri il file e clicchi il bottone " inversione coordinate cartesiane" i dati vengono invertiti (celle gialle) ogni volta che premi il bottone

questa macro va bene ma non sono in grado di adattarla al mio nuovo file

https://we.tl/t-CQFkvLjFz0

grazie Norman

Answer 5

Ciao Andrea,

Grazie Norman

Temo di aver dato l'impressione sbagliata!

Sono molto disposto a modificare il mio codice non appena ho capito cosa vuoi. A questo proposito, non dubito che la mancanza di comprensione sia colpa mia. 😢

===

Regards,

Norman