Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 59

Discussione: cerca, confronta, colora sfondo celle



  1. #1
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Milano
    EtÓ
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    cerca, confronta, colora sfondo celle

    ciao a tutti.
    il compito che deve svolgere la macro del file allegato Ŕ cercare tutti i valori contenuti nelle colonne P:T dello sheet "Riepilogo", cercarli nello sheet "sheet" e valutare se il valore contenuto in colonna CK (offset(0,88). Se corrisponde a "Consegnato" deve colorare lo sfondo della cella con il valore di ricerca in "Riepilogo".
    la macro funziona.
    PoichŔ Ŕ piuttosto scandalosa per struttura e lentezza, Ŕ possibile fare qualcosa di meglio? soprattutto sulla struttura.
    Ŕ una routine che ho adattato, e si vede.
    Come sempre grazie in anticipo a tutti, anche solo per l'attenzione.
    File Allegati File Allegati

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Milano - Italy
    EtÓ
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    ciao a tutti.
    il compito che deve svolgere la macro del file allegato Ŕ cercare tutti i valori contenuti nelle colonne P:T dello sheet "Riepilogo", cercarli nello sheet "sheet" e valutare se il valore contenuto in colonna CK (offset(0,88). Se corrisponde a "Consegnato" deve colorare lo sfondo della cella con il valore di ricerca in "Riepilogo".
    la macro funziona.
    PoichŔ Ŕ piuttosto scandalosa per struttura e lentezza, Ŕ possibile fare qualcosa di meglio? soprattutto sulla struttura.
    Ŕ una routine che ho adattato, e si vede.
    Come sempre grazie in anticipo a tutti, anche solo per l'attenzione.
    Ciao Nessi devo uscire guarda un po' la modifica che ho fatto devi solo riassegnare le varie celle da colorare perchŔ purtroppo devo scappare.
    File Allegati File Allegati

    A volte basta usare parole inutili come ôgrazieö e ôper favoreö per rendere la vita pi¨ bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Milano
    EtÓ
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ciao Nessi devo uscire guarda un po' la modifica che ho fatto devi solo riassegnare le varie celle da colorare perchŔ purtroppo devo scappare.
    grazie mille Baloon ho solo inveritio i riferimenti di Urga e Uriga1
    Codice HTML: 
    For a = 16 To 20
        For i = 2 To uriga
            For ii = 2 To uriga1
                If wks.Cells(i, a) = "" Then GoTo 10
                    If wks.Cells(i, a) = wks1.Range("A" & ii) And wks1.Range("A" & ii).Offset(0, 88) = "Consegnato" Then
                       wks.Cells(i, a).Interior.ColorIndex = 43
                        Exit For
                    End If
    10:
            Next
        Next
    Next
    grazie.

  4. #4
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    ...non ho testato se fa prima!
    saluti
    gg

    Codice: 
    Sub SfondoCelleRiepilogo_gg()
    Application.ScreenUpdating = False
    
    
    Dim wks As Worksheet
    Dim wks1 As Worksheet
    Dim Rng As Range, Rng1 As Range
    Dim uriga As Long
    Dim uriga1 As Long
    
    
    Set wks = ThisWorkbook.Worksheets("Riepilogo")
    Set wks1 = ThisWorkbook.Worksheets("Sheet")
    uriga = wks.Range("A" & Rows.Count).End(xlUp).Row
    uriga1 = wks1.Range("A" & Rows.Count).End(xlUp).Row
    
    
    
    
    With wks1.Range("$A$1:$CK$" & uriga1)
            .AutoFilter Field:=89, Criteria1:="consegnato"
            For Each Rng1 In wks1.Range("$A$1:$A$" & uriga1).SpecialCells(xlCellTypeVisible)
                    With wks.Range("$P$1:$T$" & uriga)
                            .AutoFilter Field:=1, Criteria1:="<>"
                            For Each Rng In wks.Range("$P$1:$T$" & uriga).SpecialCells(xlCellTypeVisible)
                                    If Rng.Value = Rng1.Value Then Rng.Interior.ColorIndex = 43
                            Next
                    End With
            Next
    End With
    
    
    wks.Range("$P$1:$T$" & uriga).AutoFilter
    wks1.Range("$A$1:$CK$" & uriga1).AutoFilter
    Set wks = Nothing
    Set wks1 = Nothing
    Application.ScreenUpdating = True
    MsgBox "Fatto!", vbExclamation, "Manutenzione"
    End Sub

  5. I seguenti 2 utenti hanno dato un "Like" a ggratis per questo post:


  6. #5

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

    Re: cerca, confronta, colora sfondo celle

    Ciao,

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    ...non ho testato se fa prima!
    Bravo, Ŕ decisamente pi¨ veloce .

    Mi sono permesso solo di modificare il secondo With in modo da sfruttarlo anche per .SpecialCells.

    Codice: 
    Sub SfondoCelleRiepilogo_gg()  'by ggratis
      Dim wks As Worksheet
      Dim wks1 As Worksheet
      Dim Rng As Range, Rng1 As Range
      Dim uriga As Long
      Dim uriga1 As Long
      
      Set wks = ThisWorkbook.Worksheets("Riepilogo")
      Set wks1 = ThisWorkbook.Worksheets("Sheet")
      uriga = wks.Range("A" & Rows.Count).End(xlUp).Row
      uriga1 = wks1.Range("A" & Rows.Count).End(xlUp).Row
      
      Application.ScreenUpdating = False
      
      With wks1
        .Range("$A$1:$CK$" & uriga1).AutoFilter Field:=89, Criteria1:="consegnato"
        For Each Rng1 In .Range("$A$1:$A$" & uriga1).SpecialCells(xlCellTypeVisible)
          With wks.Range("$P$1:$T$" & uriga)
            .AutoFilter Field:=1, Criteria1:="<>"
            For Each Rng In .SpecialCells(xlCellTypeVisible)
              If Rng.Value = Rng1.Value Then Rng.Interior.ColorIndex = 43
            Next
          End With
        Next
        .Range("$A$1:$CK$" & uriga1).AutoFilter
      End With
      
      wks.Range("$P$1:$T$" & uriga).AutoFilter
      
      Set wks = Nothing
      Set wks1 = Nothing
      Application.ScreenUpdating = True
      MsgBox "Fatto!", vbExclamation, "Manutenzione"
    End Sub
    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)

  7. I seguenti utenti hanno dato un "Like"


  8. #6
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao,
    Bravo, Ŕ decisamente pi¨ veloce .

    Mi sono permesso solo di modificare il secondo With in modo da sfruttarlo anche per .SpecialCells.

    Un complimento di scossa, vale 100 mi piace!!!
    scusate l'esagerazione.

    saluti
    gg

  9. I seguenti 2 utenti hanno dato un "Like" a ggratis per questo post:


  10. #7
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Milano
    EtÓ
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: cerca, confronta, colora sfondo celle

    Grazie di nuovo a tutti! Wow, sono onorato io di trovare Mastro Scossa che scrive in un post dove scrivo anch'io, mi immagino che significhi sentirsi dire bravo da lui . Grazie mille GGRATIS, anche a te Scossa.
    Ŕ rapidissimo!

  11. #8
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    Grazie per il riscontro nessi e per aver apprezzato.

    saluti
    gg

  12. #9
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Ben trovato a tutti
    Rientro ora dal weekend e volevo proporre il mio contributo.
    Credo che la mia macro (dopo le numerose tirate d'orecchi di scossa a cui chiedo di dare un benevolo sguardo) sia un tantinello pi¨ veloce.
    Allego il file dove ho inserito due ulteriori pulsanti: a fianco vedrete i tempi impiegati.

    Un ciao a tutti,
    Mario
    File Allegati File Allegati

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


  14. #10

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

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Credo che la mia macro (dopo le numerose tirate d'orecchi di scossa a cui chiedo di dare un benevolo sguardo) sia un tantinello pi¨ veloce.
    Ciao Mario e ben tornato.

    Io non vorrei "rovinarti" il rientro, quindi sar˛ buono (io sono buono, io sono buono ...) e ti lascio verificare bene il tutto
    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)

  15. #11
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Chiedo scusa a tutti (in particolare a scossa e ggratis).
    Ad un primo esame avevo visto "1," e non mi sono soffermato sul tempo effettivo impiegato.
    Ora ho visto meglio (devo cambiare gli occhiali) e verificato: sono 7 secondi circa contro i poco pi¨ di 2 di ggratis

    Per me (faccio da solo)
    Ciao,
    Mario

  16. #12
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    ...mi piace questo spirito competitivo.
    Per˛, se verificherai che sono riuscito a dimezzare i tempi con questa ulteriore macro, le scuse saranno accolte se riuscirai a convincere tutti i guru del forum a mettere un mi piace a questo post

    Codice: 
    Sub SfondoCelleRiepilogo1_gg()  'by ggratis
      Dim wks As Worksheet
      Dim wks1 As Worksheet
      Dim Rng As Range, Rng1 As Range
      Dim uriga As Long
      Dim uriga1 As Long
      Dim tempo As Single
      Dim firstAddress As String
      
      Set wks = ThisWorkbook.Worksheets("Riepilogo")
      Set wks1 = ThisWorkbook.Worksheets("Sheet")
      uriga = wks.Range("A" & Rows.Count).End(xlUp).Row
      uriga1 = wks1.Range("A" & Rows.Count).End(xlUp).Row
      
      Application.ScreenUpdating = False
      tempo = Timer
      With wks1
        .Range("$A$1:$CK$" & uriga1).AutoFilter Field:=89, Criteria1:="consegnato"
        For Each Rng1 In .Range("$A$1:$A$" & uriga1).SpecialCells(xlCellTypeVisible)
          With wks.Range("$P$1:$T$" & uriga)
            .AutoFilter Field:=1, Criteria1:="<>"
            With .SpecialCells(xlCellTypeVisible)
                Set Rng = .Find(Rng1.Value, LookIn:=xlValues)
                If Not Rng Is Nothing Then
                    firstAddress = Rng.Address
                    Do
                        Rng.Interior.ColorIndex = 43
                        Set Rng = .FindNext(Rng)
                    Loop While Not Rng Is Nothing And Rng.Address <> firstAddress
                End If
            End With
        End With
        Next
        .Range("$A$1:$CK$" & uriga1).AutoFilter
      End With
      
      wks.Range("$P$1:$T$" & uriga).AutoFilter
      
      Set wks = Nothing
      Set wks1 = Nothing
      Application.ScreenUpdating = True
      MsgBox "Fatto! in " & Timer - tempo & "secondi", vbExclamation, "Manutenzione"
    End Sub
    Ŕ un piacere leggerti
    non hai di che scusarti Marius...

    Saluti
    GG

  17. #13
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Ciao a tutti

    @scossa
    non Ŕ stato certo un bel rientro
    Ho passato tutto il pomeriggio a cercare di capire se c'Ŕ e dove sta l'errore

    Ho implementato il file con l'ultima versione della macro di ggratis (complimenti per il risultato ; per il resto non ho la facoltÓ di impormi ai GURU).

    Vi pregherei di eseguire le macro una per volta (la mia per prima e poi le altre due di ggratis) e vorrei che guardaste i tempi. Segnateli in foglio. Poi ripetete la sequenza delle macro.
    Guardate i tempi: la mia macro ha quasi quintuplicato il tempo impiegato, le altre sono pressochŔ uguali.
    Chi pu˛ spiegarmi da cosa dipende? Grazie.

    Dimenticavo.
    1░ tentativo tempo
    Marius44 0,09899902
    ggratis_1 2,2999268
    ggratis_2 1.7039795

    2░ tentativo tempo
    Marius44 8,9699707
    ggratis_1 2,3609619
    ggratis_2 1,7209473

    Da notare che ogni volta che ripetete la sequanza il valore Ŕ diverso, come Ŕ anche diverso da quello che appare nel messaggio della seconda macro di ggratis.

    Resto in fiduciosa attesa delle vostre ... elucubrazioni. Ciao a tutti,
    Mario
    File Allegati File Allegati

  18. #14
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    questi i tempi macchina sulla mio pezzo da museo...

    test primo secondo terzo
    Marius44 16,031005859375 14,577880859375 14,48388671875
    GG1 5,56298828125 5,60888671875 5,577880859375
    GG2 2,843017578125 2,827880859375 2,85888671875







    saluti
    gg

    PS: Ciao @Marius44 nel precedente post, o hai saltato qualche cifra nello scrivere o il secondo tentativo Ŕ 2 ordini di grandezza pi¨ lento rispetto al primo ;)

    ho fatto anche diversi tentativi, i tempi della tua macro ad ogni lancio tendono a ridursi

    16,03100586 14,57788086 14,48388672 13,70410156 13,29589844 13,18798828 13,109375 13,31201172 13,15576172 13,046875

  19. #15
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Ciao ggratis
    grazie per il riscontro. Ma, indipendentemente dai tempi diversi (quelli da me e quelli da te segnalati - sicuramente la differenza Ŕ dovuta alla diversa velocitÓ delle macchine utilizzate) ma ti sei spiegato il perchŔ?

    Ho provato anche stamattina. Mi dÓ gli stessi (pi¨ o meno) risultati di ieri con la mia prima molto pi¨ veloce di tutte; la seconda almeno quintuplicata. Mah!!!

    Ciao,
    Mario

  20. #16
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao ggratis
    grazie per il riscontro. Ma, indipendentemente dai tempi diversi (quelli da me e quelli da te segnalati - sicuramente la differenza Ŕ dovuta alla diversa velocitÓ delle macchine utilizzate) ma ti sei spiegato il perchŔ?

    Ho provato anche stamattina. Mi dÓ gli stessi (pi¨ o meno) risultati di ieri con la mia prima molto pi¨ veloce di tutte; la seconda almeno quintuplicata. Mah!!!

    Ciao,
    Mario
    Ciao Mario,
    esoterismi dell'informatica...
    Ho provato a lanciare pi¨ volte soltanto la tua macro e si Ŕ attestata sempre sul secondo e mezzo, poi lanciata la mia e ritestata la tua si Ŕ portata sui 13 secondi e non si Ŕ schiodata da lý!
    ...sarÓ un problema di allocazioni di memoria, ma boh!

    ps: la mia macro pu˛ essere velocizzata di mezzo secondo cosý
    Codice: 
    Sub SfondoCelleRiepilogo1_gg()  'by ggratis
      Dim wks As Worksheet
      Dim wks1 As Worksheet
      Dim Rng As Range, Rng1 As Range
      Dim uriga As Long
      Dim uriga1 As Long
      Dim tempo As Single
      Dim firstAddress As String
      
      Set wks = ThisWorkbook.Worksheets("Riepilogo")
      Set wks1 = ThisWorkbook.Worksheets("Sheet")
      uriga = wks.Range("A" & Rows.Count).End(xlUp).Row
      uriga1 = wks1.Range("A" & Rows.Count).End(xlUp).Row
      
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      tempo = Timer
      With wks1
        .Range("$A$1:$CK$" & uriga1).AutoFilter Field:=89, Criteria1:="consegnato"
        For Each Rng1 In .Range("$A$1:$A$" & uriga1).SpecialCells(xlCellTypeVisible)
          With wks.Range("$P$1:$T$" & uriga)
            .AutoFilter Field:=1, Criteria1:="<>"
            With .SpecialCells(xlCellTypeVisible)
                Set Rng = .Find(Rng1.Value, LookIn:=xlValues)
                If Not Rng Is Nothing Then
                    firstAddress = Rng.Address
                    Do
                        Rng.Interior.ColorIndex = 43
                        Set Rng = .FindNext(Rng)
                    Loop While Not Rng Is Nothing And Rng.Address <> firstAddress
                End If
            End With
        End With
        Next
        .Range("$A$1:$CK$" & uriga1).AutoFilter
      End With
      
      wks.Range("$P$1:$T$" & uriga).AutoFilter
      
      Set wks = Nothing
      Set wks1 = Nothing
      Set Rng = Nothing
      Set Rng1 = Nothing
    
    
      
      
    
    
      Sheets(1).Cells(16, 25) = Timer - tempo
      Application.ScreenUpdating = True
      MsgBox "Fatto! in " & Timer - tempo & "secondi", vbExclamation, "Manutenzione"
    Application.Calculation = xlCalculationAutomatic
    End Sub
    saluti
    GG

  21. #17
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Ciao Giuseppe

    Intanto ti invio un plauso per la costanza dimostrata nel cercare/trovare miglioramenti temporali.

    Poi vorrei capire (ma scossa, che dice di essere buono, buono..., dov'Ŕ? mi tira solo scappellotti?) perchŔ continua a farmi quello scherzetto. Come hai avuto modo di provare, la mia macro AL PRIMO COLPO Ŕ sui tempi tuoi, ma la seconda volta fa ... cilecca (fossi stato io, sarebbe stato causato dall'etÓ ).

    Allego il file dove (colonne 25 e 26) si possono vedere i tempi fatti segnare (col mio PC) dalle macro. Se vuoi provare sul tuo devi, prima di avviare le macro, cancellare i risultati e poi iniziare la sequenza di lanci.

    Non capisco proprio

    Ciao,
    Mario
    File Allegati File Allegati

  22. #18

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

    Re: cerca, confronta, colora sfondo celle

    @MARIO: tu hai perfettamente ragione,

    Ho riscontrato anch'io questo bizzarro comportamento di Excel: la tua macro, se eseguita da sola Ŕ veloce quanto quello di gg con il find.

    Il problema Ŕ tutto nell'Autofilter, indipendentemente dall'eseguirla da codice (vedi istruzione di gg .Range("$A$1:$CK$" & uriga1).AutoFilter Field:=89, Criteria1:="consegnato") o manualmente.

    Evidentemente "post" esecuzione dell'autofilter con un parametro, anche eliminando l'autofilter Excel non ripristina l'ambiente "ante".

    Quindi Mario ti devo le mie scuse, il tuo codice funziona perfettamente, se nel file non viene usato l'autofilter.

    P.S.: mi riprometto, tempo permettendo di esaminare ulteriori implicazioni dell'autofilter anche su altri file.
    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)

  23. #19
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    ciao Marco
    grazie per la riposta ma non accetto ... le scuse !!!!
    Ma non perchŔ non le accetto bensý perchŔ non me ne devi assolutamente

    Siamo qui per imparare ed Ŕ per me una grande soddisfazione il solo fatto che mi hai dato ragione

    Come hai detto tu, anch'io continuo a cercar di capire.
    Ciao e grazie ancora,
    Mario

  24. #20
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Milano
    EtÓ
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: cerca, confronta, colora sfondo celle

    io non intervengo per fin troppo ovvi motivi ma vi sto seguendo con estrema attenzione ed interesse

  25. #21
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    LocalitÓ
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: cerca, confronta, colora sfondo celle

    Io pure vi seguo perchŔ c'Ŕ sempre molto da imparare con voi, grazie per tutti i vostri contributi
    Avvisi generali e importanti, pena CHIUSURA thread e/o BAN. Il crossposting Ŕ vietato. Le richieste di "pappa pronta" sono vietate. Utilizzate i tag CODE per il codice. Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.



  26. #22
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    Salve a tutti
    Forse (ma aspetto che altri pi¨ bravi di me mi diano conferma) ho scoperto il perchŔ del "bizzarro" (aggettivo usato da scossa) e "stranissimo" (aggettivo mio) comportamento della mia macro.

    Dunque. Nella macro vi sono alcuni cicli che assegnano del valori a degli Array. Ritenevo di non sbagliare, avendo dichiarato come String, di assegnare con la proprietÓ .Text

    Bene. Provate a togliere nei cicli di assegnazione quel punto e quella parolina e vedrete come diventa veloce la macro. Un lampo!!!

    Vi evito di modificare il file precedente e lo riallego "corretto". Non ha alcuna importanza quale pulsante cliccate prima, i tempi della macro #1 sono di gran lunga migliori, sempre!

    Grazie a tutti per l'attenzione e mi aspetto ... commenti.

    Ciao,
    Mario
    File Allegati File Allegati

  27. I seguenti utenti hanno dato un "Like"


  28. #23
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    307
    Versione Office
    2010
    Likes ricevuti
    56
    Likes dati
    17

    Re: cerca, confronta, colora sfondo celle

    Leggendo solo ora tutti gli interventi non riuscivo a capire perchŔ si utilizzassero cicli e filtri e non si Ŕ pensato subito agli array o meglio ancora alle dictionary_

  29. #24
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154

    Re: cerca, confronta, colora sfondo celle

    @Cuc¨^_^
    Ciao Marcello, ogni tanto ti si rivede

    Guarda che io ho usato Array nelle prove suddette e ggratis le Collection. Per capire meglio il problema dovresti leggere i post #13, 14 e 18

    Ciao,
    Mario

  30. #25
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    307
    Versione Office
    2010
    Likes ricevuti
    56
    Likes dati
    17

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    @Cuc¨^_^
    Ciao Marcello, ogni tanto ti si rivede

    Guarda che io ho usato Array nelle prove suddette e ggratis le Collection. Per capire meglio il problema dovresti leggere i post #13, 14 e 18

    Ciao,
    Mario
    Ciao Mario

    si ho visto, infatti la mia domanda era "perchŔ si utilizzassero cicli e filtri e non si Ŕ pensato subito agli array o meglio ancora alle dictionary"
    In particolare il metodo le Dictionary (non collection) e il loro metodo "Dictionary.Exists"_
    Cmq complimenti a tutti per i risultati ottenuti_

  31. #26
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Cuc¨^_^ Visualizza Messaggio
    Leggendo solo ora tutti gli interventi non riuscivo a capire perchŔ si utilizzassero cicli e filtri e non si Ŕ pensato subito agli array o meglio ancora alle dictionary_
    ...non ho ancora avuto modo di leggere l'intervento di Mario (che saluto) ma sarei curioso di vedere tradotta in codice la tua idea cuc¨^_^.
    ╚ interessante vedere come codici che fanno tutti la stessa cosa hanno tempi di esecuzione differenti...
    Saluti
    GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  32. #27
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    307
    Versione Office
    2010
    Likes ricevuti
    56
    Likes dati
    17

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da ggratis Visualizza Messaggio
    ma sarei curioso di vedere tradotta in codice la tua idea cuc¨^_^.
    Saluti
    GG

    Inviato dal mio GT-I9105P utilizzando Tapatalk
    Ciao GG
    siccome questo Ŕ il tuo secondo intervento nei miei confronti sempre nello stesso senso, e non dovendoTi dimostrare niente... Penso proprio che questa volta la tua curiositÓ te la terrai tutta per te.
    Cuc¨

  33. #28
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    ...mi dispiace che tu continui a fraintendere. Siccome ho pensato che la tua indicazione fosse interessante e siccome pur non conoscendoti intuisco che tu sappia il fatto tuo, ero curioso di vederla. A me non devi dimostrare niente, se vorrai esplicitarla per me sarÓ un piacere dargli un'occhiata, diversamente approfondir˛ per conto mio la tua indicazione.
    Saluti
    GG

    Ps: comunque, grazie per averla fornita.

    Inviato dal mio GT-I9105P utilizzando Tapatalk

  34. #29

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

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Dunque. Nella macro vi sono alcuni cicli che assegnano del valori a degli Array. Ritenevo di non sbagliare, avendo dichiarato come String, di assegnare con la proprietÓ .Text

    Bene. Provate a togliere nei cicli di assegnazione quel punto e quella parolina e vedrete come diventa veloce la macro. Un lampo!!!
    Mi sembra pi¨ che normale, visto che la proprietÓ Text Ŕ "pesante" in quanto restituisce un valore tenendo conto anche della formattazione della cella.
    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)

  35. #30
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Lecce - Pisa
    EtÓ
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: cerca, confronta, colora sfondo celle

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Salve a tutti
    Nella macro vi sono alcuni cicli che assegnano del valori a degli Array. Ritenevo di non sbagliare, avendo dichiarato come String, di assegnare con la proprietÓ .Text

    ...
    Bene. Provate a togliere nei cicli di assegnazione quel punto e quella parolina e vedrete come diventa veloce la macro. Un lampo!!!
    ...
    Grazie a tutti per l'attenzione e mi aspetto ... commenti.

    Ciao,
    Mario
    Complimenti Mario, Ŕ almeno il doppio pi¨ veloce della mia con i filtri...
    ...e ora la curiositÓ di vedere come si comporta Dictionary.Exists, proposta da Cuc¨^_^ Ŕ ancora maggiore!

    Magari ci potrebbe dire qualcosa anche Nessi se testerÓ le due macro sui suoi fogli di lavoro.

    saluti
    GG

Discussioni Simili

  1. Colorare Sfondo Range di Celle con VBA
    Di Tullio17 nel forum Domande su Excel VBA e MACRO
    Risposte: 23
    Ultimo Messaggio: 12/12/16, 17:47
  2. Macro Seleziona Celle Colora Bordi
    Di Bright nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 26/11/16, 19:37
  3. [Risolto] Cerca verticale con confronta
    Di vittorio dit nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 11/11/16, 21:17
  4. celle con sfondo
    Di noateam nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 15/09/16, 16:49
  5. Somma celle sulla base del colore sfondo
    Di tyran nel forum Domande su Excel in generale
    Risposte: 25
    Ultimo Messaggio: 18/10/15, 19:19

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
  •