PDA

Visualizza la versione completa : Spostare selezione di celle Excel sempre alla stessa colonna


marco
08-16-2009, 04:46 PM
Ciao a tutti.
Volevo sapere qual'era il sistema più semplice per spostare una selezione di celle all'interno di un foglio Excel (indipendentemente da qualunque parte del foglio mi trovi) per portarla sempre sotto la stessa colonna.
Faccio un esempio per capirci meglio.
Ho una selezione che può essere una sola cella (C3) oppure un insieme di celle in verticale con la superiore attiva (A3:A4).
Io voglio fare in modo che entrambi i casi, mi vengano selezionate le rispettive celle ma sotto la colonna B, quindi la B3 nel primo caso e la B3:B4 (con la B3 attiva) nel secondo caso.
Qual'è la procedura più semplice da seguire o altrimenti quali righe di codice VBA da utilizzare?
Grazie

Zeno
10-13-2009, 11:30 PM
Non so se è la più semplice, ma è comunque una soluzione funzionante.
Public Sub selezioneB()
Dim rng As Range
Dim rngB As Range
Dim nRows As Long
Dim nRow As Long
Set rng = Selection
With rng
nRows = .Rows.Count
nRow = .Row
End With
If nRows > 1 Then
Set rngB = Range("B" & nRow & ":B" & nRow + nRows - 1)
Else
Set rngB = Range("B" & nRow)
End If
rngB.Select
End Sub