Spostare la selezione

Hai un problema con Excel?

Nuova discussione

Spostare la selezione
di Enzo (utente non iscritto) data: 12/03/2017 20:25:55
Saluti a Tutti,
ho una piccola attività commerciale e sto muovendo i primi passi nel VBA.
Ho creato una tabella in excel che in pochi giorni ho popolato con 1850 record.
Per evidenziare la lettura del record, ho registrato una macro che mi seleziona la riga con il riempimento di colore giallo. Per rendere ancora più chiara la lettura vorrei che la riga che seleziono già evidenziata in giallo,
si portasse sotto la riga A1 che contiene i nomi dei campi.
Non so come fare. Chiedo il Vs illuminante aiuto.
Grazie

Sub Macro3()
'
' Macro3 Macro
'

'
    ActiveCell.Range("Tabella2[#Headers]").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Select
End Sub

di alfrimpa data: 12/03/2017 22:07:40
Ciao Enzo

Non so se capisco bene; tu vorresti che la riga selezionata sia colorata di giallo e che questa sia riportata in riga 2 al di sotto dell'intestazione dei campi. È corretto?

Alfredo
di Enzo (utente non iscritto) data: 12/03/2017 22:46:24
Ciao Alfredo, la riga è già colorata di giallo. Si deve posizionare alla riga 2, sotto i titoli dei campi.
di patel data: 13/03/2017 08:12:17
anche io non ho capito niente, allega un piccolo file di esempio ed esprimiti così:
1) seleziono la cella xx
2) il codice attuale colora di giallo la riga vv
3) vorrei che colorasse la riga nn

di Gianfranco data: 13/03/2017 09:26:50
ciao

una soluzione senza copia incolla

nasconde tutte le righe sotto e sopra la cella selezionata
nel tuo caso quella gialla.

ti lascia vedere solo la riga iniziale e la riga che hai selezionato.

chiaro che ci vuole una macro di ripristino
ma se l'idea ti va bene si può fare facilmente.

Patel che è più esperto di me potrebbe al limite modificarla
per migliorarla che ne so
nascondere solo quelle sopra
lasciando le righe sotto visibili

Public Sub nascondiEsterno()
'nasconde zona esterna alla selezione
   Dim prRig As Long, ulRig As Long, ulCol As Long
   
   prRig = Selection.Row
  
   ulRig = Selection.Rows(Selection.Rows.Count).Row
   If prRig > 1 Then
      Rows("2:" & (prRig) - 1).Select
      Selection.EntireRow.Hidden = True
   End If
Rows(ulRig + 1).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.EntireRow.Hidden = True
   
 End Sub

di Gianfranco data: 13/03/2017 09:44:56
così solo le righe sopra

Public Sub nascondiEsterno()
'nasconde zona esterna alla selezione
   Dim prRig As Long, ulRig As Long, ulCol As Long
   
   prRig = Selection.Row
  
   ulRig = Selection.Rows(Selection.Rows.Count).Row
 
   
   If prRig > 1 Then
      Rows("2:" & (prRig) - 1).Select
      Selection.EntireRow.Hidden = True
   End If
 
 End Sub

di Oscar (utente non iscritto) data: 13/03/2017 16:21:20
Ciao Enzo
sarebbe meglio se tu potessi postare un File di esempio , comunque ti posto io un esempio vedi se è quello9 che stai cercando

Vuoi Approfondire?