ciao,
prima di tutto benvenuto nel nostro forum.
I dati solo su una sola colonna?
Tu vuoi spostare il nome contenuto nella cella sulla quale sei posizionato in fondo alla lista dei nomi della colonna, indipendentemente dall'ordinamento?
se la risposta è "SI" allora prova con questo codice
- Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then
MsgBox "Selezionare una cella delal colonna 'A'", vbExclamation
Exit Sub
End If
Target.Cut
Riga = Target.Row
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Range("A" & Riga).Select
Cancel = True
End Sub
Il codice va copiato nel foglio sul quale vuoi operare:
tasto destro sul nome del foglio,
visualizza codice
copia quanto ti ho inviato
Poi: posizionati sul un nome che vuoi spostare e fai "Doppio Click" e ... il gioco è fatto.