Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

estensione macro per più righe

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

estensione macro per più righe

Postdi romeos » 21/03/15 18:08

Ho una tabella che selezionando una cella della colonna B mi evidenzia un range presente nella stessa riga,
avrei bisogno che quello che si verifica ora fosse esteso a tutte le righe anche se eventualmente estendessi la tabella posto il file in oggetto e vi ringrazio per l'aiuto. http://www.filedropper.com/tabgpg
"Lo spirito è un pendolo,tra la resa e il coraggio"
EXCEL 2010
romeos
Utente Junior
 
Post: 49
Iscritto il: 11/12/12 13:14

Sponsor
 

Re: estensione macro per più righe

Postdi Flash30005 » 21/03/15 18:46

Sostituisci l'intera macro con questo codice

Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target = "" Then Exit Sub
RT = Target.Row
Dim CheckArea As String
CheckArea = "B" & RT & ":G" & RT & ",I" & RT & ",M" & RT & ":R" & RT & ",V" & RT & ":Y" & RT & ",AA" & RT & ":AD" & RT & ",AF" & RT
 With Target
    If .Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Me.Range("B" & RT)) Is Nothing Then
        If Range(CheckArea).Interior.ColorIndex = 44 Then
            Range(CheckArea).Interior.ColorIndex = xlNone
        Else
            Range(CheckArea).Interior.ColorIndex = 44
       End If
        bTarget = True
        Application.EnableEvents = False
        .Offset(0, -1).Select
        Application.EnableEvents = True
     End If
  End With
End Sub
 


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: estensione macro per più righe

Postdi romeos » 21/03/15 19:10

grazie 1000 flash va benissimo.Ciao a presto.
"Lo spirito è un pendolo,tra la resa e il coraggio"
EXCEL 2010
romeos
Utente Junior
 
Post: 49
Iscritto il: 11/12/12 13:14


Torna a Applicazioni Office Windows


Topic correlati a "estensione macro per più righe":


Chi c’è in linea

Visitano il forum: Anthony47 e 6 ospiti