SPOSTARE AREA DI SELEZIONE RELATIVA A COLONNA O RIGA_EXCEL

Ok, grazie mille, gentilissimo e chiarissimo. V

Ciao Valerio,

non è necessario utilizzare il file di esempio ma basta riportare quel codice nel modulo VBA del foglio dove si trova il data base del tuo file.

Per arrivare al modulo VBA del foglio seleziona la scheda del foglio dove si trova il db, fai click destro e poi seleziona l'opzione "Visualizza codice".

In automatico verrà visualizzato l'edito del VBA in corrispondenza del modulo VBA del foglio.

Lì potrai riportare il codice (copi e incolli).

Per modificare la colonna dove fare doppio click modifica la lettera della colonna nella costante:

Const sColonnaPienaDB As String = "B"

per modificare la colonna da selezionare modifica la lettera della colonna nella costante:

Const sColonnaDaSelezionare As String = "A"

ciao

buonasera,

si è esattamente questo quello che cercavo, non ho molta dimestichezza con il vb e non ci sarei mai arrivato, ma se ho capito bene posso utilizzare direttamente il file dove c'e' il codice e sostituire nel codice i riferimenti delle colonne A e B se mi dovesse occorrere di automatizzare la stessa operazione su colonne diverse.

grazie mille. v

Ciao Valerio,

se ho compreso la richiesta si potrebbe pensare di sfruttare l'evendo BeforeDoubleClick del foglio di lavoro con il quale, facendo doppio click in una qualsiasi cella della colonna "piena", venga in automatico selezionato l'intero intervallo di righe ma della colonna A.

Qui trovi un file di esempio File esempio

Nel modulo VBA del Foglio1 trovi questo codice:

'---

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Const sColonnaPienaDB As String = "B"

  Const sPrimaRigaDB As Long = 1

  Const sPrimaCellaDB As String = sColonnaPienaDB & sPrimaRigaDB

  Const sColonnaDaSelezionare As String = "A"

  Dim rngDB As Range

  Dim iOffSet As Long

  Set rngDB = Me.Range(sPrimaCellaDB).CurrentRegion

  With rngDB

    If Not Intersect(Target, .Columns(sColonnaPienaDB)) Is Nothing Then

      iOffSet = Me.Columns(sColonnaDaSelezionare).Column - _

                Me.Columns(sColonnaPienaDB).Column

      .Columns(sColonnaPienaDB).Offset(0, iOffSet).Select

      Cancel = True

    End If

  End With

End Sub

'---

Prova a vedere se è quello che chiedi.

ciao

Ciao Valerio,

Come da oggetto dovrei spostare l'area di selezione relativa ad esempio ad una colonna, mi spiego meglio.

Dispongo all'interno di un ampio database, ad esempio di 10000 righe, di una colonna con celle piene e vuote e affianco una colonna con celle tutte piene.

Posso selezionare velocemente la seconda colonna per intero con maiusc+fine+giu' , e poi spostare l'area di selezione dalla seconda colonna alla prima? NB non copiarne i valori ma solo spostare l'area di selezione.

• Fai clic sull'intestazione B della seconda colonna per selezionare l'intera colonna
• Fai clic dx
• Taglia
• Seleziona la cella A1
• Fai clic dx
• Inserisci celle tagliate

Questo procedimento richiede solo un paio di secondi ma volendo automatizzarlo e farlo in un millisecondo, prova:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Columns("B:B").Cut

    Range("A1").Insert Shift:=xlToRight

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel
• Salva il file con l’estensione xlsm
• Alt+F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester
• Esegui

===

Regards,

Norman