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


|
Risposta
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

Una persona ha trovato utile la risposta

·

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato d'aiuto.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 28 gennaio 2021 2.293 visualizzazioni Si applica a: