Visualizzazione dei risultati da 1 a 3 su 3
  1. #1

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

    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!

  2. #2
    Utente di HTML.it L'avatar di nicola75ss
    Registrato dal
    Nov 2004
    Messaggi
    12,922
    codice:
    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.

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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.