scambiare valore tra due celle

Salve, riesco a creare un macro che dato il seguente foglio di lavo :

A
1 50
2 152

Mi inverta i valori presenti in A1 con A2
A
1 152
2 50

GRAZIE


 

Informazioni domanda


Ultimo aggiornamento novembre 8, 2018 Visualizzazioni 1.876 Si applica a:
Risposta
Salve, riesco a creare un macro che dato il seguente foglio di lavo :
<cut>
GRAZIE



Public Sub m()
    Dim sh As Worksheet
    Dim temp1 As Variant
    Dim temp2 As Variant
    Set sh = ThisWorkbook.Worksheets("Foglio1")
    With sh
        temp1 = .Range("A1").Value
        temp2 = .Range("A2").Value
        .Range("A1").Value = temp2
        .Range("A2").Value = temp1
    End With
    Set sh = Nothing
End Sub

 

Il file utilizzato per l'esempio lo puoi scaricare da qui:

http://www.maurogsc.eu/esempiforum13/scambiavaloricelle.zip

 

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.