Risultati da 1 a 9 di 9

Discussione: Modifica codice evidenziare riga in un range.



  1. #1
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2283
    Versione Office
    Excel 2010
    Likes ricevuti
    907
    Likes dati
    450

    Modifica codice evidenziare riga in un range.

    Buongiorno a tutti,
    come da titolo ho la necessità di modificare (se possibile) il seguente codice che evidenzia una riga gialla partendo da A10 fino ad AF19 (e questa funziona)

    Se modifico il codice seguente mettendo il range da A10:AF19 cliccando su A10 non mi evidenzia la riga A10:AF10 ma da A19:AF19.
    Se lascio il codice così A1:AF19 mi evidenzia le righe giuste ma anche quella da A1 ad A9 che non vorrei evidenziare.
    Spero sia chiaro
    Se serve allego un file


    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Fine
    Application.ScreenUpdating = False
    Dim MiaArea As Range, Rig As Integer
    Set MiaArea = Range("A1:AF19") 'Area sensibile
    With MiaArea
    If Intersect(Target, MiaArea) Is Nothing Then Exit Sub
    MiaArea.Select
    With Cells.Interior
    .ColorIndex = xlNone
    End With
    Application.EnableEvents = False
    Rig = Target.Row
    .Rows(Rig).Select
    With Selection.Interior
    .ColorIndex = 6 'Numero del colore 
    End With
    End With
    Target.Select
    Fine:
    Application.EnableEvents = True
    End Sub

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Modifica codice evidenziare riga in un range.

    Ciao Berna
    prova col codice sottoriportato.
    Attento, però, perchè ho notato che fa un doppio ciclo (a mio avviso inutile). Metti degli stop e te ne accorgerai.

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)    On Error GoTo Fine
        Application.ScreenUpdating = False
    Dim MiaArea As Range, Rig As Integer
        Set MiaArea = Range("A10:AF19") 'Area sensibile
        If Intersect(Target, MiaArea) Is Nothing Then Exit Sub
        With MiaArea
            .Select
            With Cells.Interior
                .ColorIndex = xlNone
            End With
        End With
            Application.EnableEvents = False
            Rig = Target.Row
            Rows(Rig).Select
            With Selection.Interior
                .ColorIndex = 6 'Numero del colore
            End With
        Target.Select
    Fine:
        Application.EnableEvents = True
    End Sub
    Ciao,
    Mario

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2283
    Versione Office
    Excel 2010
    Likes ricevuti
    907
    Likes dati
    450

    Re: Modifica codice evidenziare riga in un range.

    Ciao Mario (come va tutto ok ? i nipotini li porti al mare?)
    Dunque, per il codice si è sistemato per quanto riguarda il verticale cioè evidenzia Solo le righe da A10:A19 ma si è guastata quella in orizzontale cioè prima si fermava alla colonna AF adesso colora tutta la riga.

    Per il doppio ciclo non so cosa fare sai che non sono pratico di VBA

    Grazie intanto ciao

  5. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1106
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Modifica codice evidenziare riga in un range.

    vedi che serve sempre allegare un file !!

  6. #5
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2283
    Versione Office
    Excel 2010
    Likes ricevuti
    907
    Likes dati
    450

    Re: Modifica codice evidenziare riga in un range.

    vedi che serve sempre allegare un file !!
    Lo so Patel non sono arrivato oggi ma, qualche giorno fa Gerardo mi ha fatto notare (per ora pare solo a me) che, se è superfuo, di evitare di allegare il file, occupa spazio.
    Cmq lo allego con inserito il codice iniziale
    Se metti quello di Mario fa quanto descritto nel post precedente.
    File Allegati File Allegati

  7. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Modifica codice evidenziare riga in un range.

    Ciao Berna
    non ascoltare Patel (ciao Andrea), anche senza file allegato era facile.
    Ecco la macro, corretta, che colora fin dove nuoi e che non ha più il doppio ciclo.
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim MiaArea As Range, Rig As Integer
        On Error GoTo Fine
        Application.ScreenUpdating = False
        Set MiaArea = Range("A10:AF19") 'Area sensibile
        If Intersect(Target, MiaArea) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        With MiaArea
            .Select
            With Cells.Interior
                .ColorIndex = xlNone
            End With
        End With
            Rig = Target.Row
            Rows(Rig).Select
            Range(Cells(Rig, 1), Cells(Rig, 32)).Interior.ColorIndex = 6 'Numero del colore
           Target.Select
           Application.ScreenUpdating = True
    Fine:
        Application.EnableEvents = True
    End Sub
    Prova. Ciao,
    Mario

  8. I seguenti 2 utenti hanno dato un "Like" a Marius44 per questo post:


  9. #7
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2283
    Versione Office
    Excel 2010
    Likes ricevuti
    907
    Likes dati
    450

    Re: Modifica codice evidenziare riga in un range.

    Ciao Mario, questa si ke funziona grazie ancora
    ciao alla prossima

  10. #8

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1016
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: Modifica codice evidenziare riga in un range.

    Ciao Mario,

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio

    Codice: 
    ....
        With MiaArea
            .Select
            With Cells.Interior
                .ColorIndex = xlNone
            End With
        End With
    ....
    Non ha molto senso quel With MiaArea e nemmeno il .Select (che comunque non serve), visto che poi usi Cells e non .Cells
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  11. #9
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3208
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: Modifica codice evidenziare riga in un range.

    Occhio di lince (scossa) ha colpito ancora

    Comunque quel codice mi sono limitato a "limarlo" un po' perchè faceva le bizze. Ma hai ragione: avrei dovuto controllare meglio e di più.

    Grazie e ciao,
    Mario

Discussioni Simili

  1. modifica codice macro per eliminazione dati da più fogli
    Di ceskonet13 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 16/02/17, 15:56
  2. Modifica codice
    Di givi79 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 17/01/17, 22:04
  3. Evidenziare intera riga.
    Di stefano75ct nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 03/06/16, 18:13
  4. Modifica Codice VBA
    Di Cirino nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 03/02/16, 17:44
  5. modifica macro evidenziare numieri ripetuti
    Di max62 nel forum Domande su Excel VBA e MACRO
    Risposte: 44
    Ultimo Messaggio: 02/01/16, 18:11

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •