Invertire 2 celle adiacenti su Excel

Question

Buongiorno, parto subito con un esempio pratico:

Ho 2 celle adiacenti contenenti i risultati di alcune formule:

A1

55.05

B1

55,10

In base a questi risultati vengono fatti determinati calcoli in altre celle. A causa di arrotondamenti, a volte, gli importi devono essere invertiti per procedere con i calcoli corretti. Volevo sapere se è possibile creare un pulsante nella cella C1 che consenta di invertire la cella B1 con la cella A1 (formule incluse) in modo che gli importi corretti vadano a finire nelle celle corrette.

Non mi interessa usare filtri o procedure complicate in quanto il file Excel deve essere utilizzato da diversi utenti che hanno conoscenze base per cui mi serve solo creare un pulsante da cliccare.

Grazie per le risposte

Roberto

Answer 1

Ciao V3ga79,

credo che possa bastare qualcosa del genere:

Public Sub Inverti()

Dim rng     As Excel.Range

Dim strTemp As String

    If TypeName(Selection) = "Range" Then

      Set rng = Selection

    Else

      MsgBox "Nessun intervallo selezionato!"

      Exit Sub

    End If

    If rng.Count = 2 Then

      If rng.Areas.Count = 1 Then

        strTemp = rng.Item(1).Formula

        rng.Item(1).Formula = rng.Item(2).Formula

        rng.Item(2).Formula = strTemp

      Else

        strTemp = rng.Areas(1).Formula

        rng.Areas(1).Formula = rng.Areas(2).Formula

        rng.Areas(2).Formula = strTemp

      End If

    Else

      MsgBox "Selezionare due celle!"

      Exit Sub

    End If

End Sub

Da copiare in un modulo del progetto VBA e associare a un pulsante.

Nota che fa lo swap anche di celle non contigue.

Answer 2

Grazie mille per la celerità e per la risposta!

Appena ho un attimo di tempo provo subito a seguire la procedura che mi ha consigliato.

Roberto