Excel97 ... come scambiare tra loro il contenuto di due celle?

[Oberon1978]

Scrivo di nuovo, essendo una situazione diversa dall'altra forse è meglio aprire un nuovo thread

un'altra cosa sola: mi piacerebbe poter selezionare due celle di un foglio di excel (al solito, anche lontane tra loro) e scambiare i loro contenuti.... è possibile?

grazie ancora, soprattutto a Nicola che per l'altra questione è stato illuminante!

[nicola75ss]

Sub inverti()
Dim cella1 As Variant
Dim cella2 As Variant
Dim cella As Range
Dim indir(2) As String
Dim i As Byte
If Selection.Count <> 2 Then
    MsgBox "Devi selezionare esattamente due celle"
    Exit Sub
End If
i = 0
For Each cella In Selection.Cells
    indir(i) = cella.Address
i = i + 1
Next
cella1 = Range(indir(0)).Value
cella2 = Range(indir(1)).Value
Range(indir(1)).Value = cella1
Range(indir(0)).Value = cella2
End Sub

Buono studio.

[Oberon1978]

Grazie mille!
funziona tutto a perfezione e ho fatto anche dei bei pulsantini colorati!