Vorrei avere una lista univoca, per ottenere le singole colonne in una selezione multipla
Quale modifica del codice mi consigliate
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tArr() As Variant
ReDim tArr(0)
For Each celle In Target
i = i + 1
tArr(UBound(tArr)) = celle.Column
ReDim Preserve tArr(UBound(tArr) + 1)
Next
ReDim Preserve tArr(UBound(tArr) - 1) '???
For Each COLONNA In tArr()
MsgBox COLONNA
Next
End Sub
Se possibile chiedo di aggiornare la lista ad ogni aggiunta di nuove selezioni di colonna