You are here:Home-Domande su Excel VBA e MACRO-modif. pezzo macro X evidenziare altre colonne
modif. pezzo macro X evidenziare altre colonne2021-04-10T13:36:24+02:00

Home Forum Domande su Excel VBA e MACRO modif. pezzo macro X evidenziare altre colonne

Taggato: 

Visualizzazione 10 filoni di risposte
  • Autore
    Post
    • raimearaimea
      Partecipante
        Post totali: 78

        ciao
        con questa macro –> nomi_da evidenziare in mod1
        controllo i nomi in col ED
        li cerco in col D e se uguali
        metto sfondo blu caratteri bianchi in Col D.

        avrei bisogno di implementare questo pezzo di macro.

        oltre che colorare di blu la riga di col D
        vorrei colorare blu carattere bianco , tutta la riga con stesso nome fino a Col AI
        ma solo se il contenuto e’ >>> B SOLO >>> da lun_ven
        altrimenti lasciare il colore che c’e gia’.

        poi mi servirebbe anche una macro per riportare sfondo bianco
        le celle con lettere B Lun_Ven , lasciando invariato altri colori su altre sigle
        da col D:AI

        vi allego il file

        ciao

      • AvatarKris_9951
        Partecipante
          Post totali: 212

          Salve Raimea,

          questa è la macro per riportare sfondo bianco
          le celle con lettere B Lun_Ven , lasciando invariato altri colori su altre sigle
          da col D:AI

          Sub riportaBsfondoNormale()
              Dim cella As Range
              Dim uriga As Long
              uriga = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
              
              For Each cella In ActiveSheet.Range("D6:AI" & uriga).Cells
                  With cella
                      If .Value = "B" And ActiveSheet.Cells(4, cella.Column).Text <> "sab" _
                          And ActiveSheet.Cells(4, cella.Column).Text <> "dom" Then
                          .Interior.ColorIndex = xlNone
                          .Font.ColorIndex = 1
                      End If
                  End With
              Next cella
          End Sub

          Purtroppo non ho capito questa parte:
          “ma solo se il contenuto e’ >>> B SOLO >>> da lun_ven”

          Puoi allegare un file con un esempio visivo della condizione?

        • raimearaimea
          Partecipante
            Post totali: 78

            ciao

            il file allegato c’e nel primo post

            1_le celle blu vanno ripulite anche in col D

            2_ quando trovo il nome in col D uguale a col ED

            devo colorare blu sia contenuto col D ( come fa gia la macro)
            ma anche il resto della stessa riga Solo se c’e la sigla B ma solo dal lun_Ven
            lasciando invariati i colori delle altre sigle

            ciao

          • BySalvBySalv
            Amministratore del forum
              Post totali: 857

              Ciao Angelo, si potrebbe fare tutto anche con la formattazione condizionale(FC), ma ce un problema con la FC per ritornare all’originale dovresti togliere i nomi dalla colonna “AD”, lo fai oppure meglio una macro con i pulsanti?

              Ciao By Sal (8-D

               

               

              Ciao By Sal (8-)
              se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

            • raimearaimea
              Partecipante
                Post totali: 78

                ciao

                per altri motivi, devo fare con macro

                 

                ciao

              • BySalvBySalv
                Amministratore del forum
                  Post totali: 857

                  Ciao Angelo ecco la macro che fa il lavoro, ma ho una perplessità.

                  ammettendo che lanci la macro il nome che hai scelto in DE si colora e tutto il resto, ma se cancelli il nome e metti un altro nome le celle precedenti restano colorate?.

                  questa la macro

                  Sub Evid()
                  Dim x, y, z, d, w
                  
                  Sheets("Intero_Mese").Select
                  
                  For x = 6 To 12
                      If Range("ED" & x) = "" Then Exit For
                      d = Range("ED" & x)
                      For y = 6 To 300
                          If Range("D" & y) = "" Then Exit For
                          If Range("D" & y) = d Then
                              With Range("D" & y)
                                  .Interior.Color = RGB(0, 0, 255)
                                  .Font.Color = RGB(255, 255, 255)
                              End With
                              For z = 5 To 35
                                  w = Weekday(Cells(5, z))
                                  If Cells(y, z) = "B" And w <> 7 And w <> 1 Then
                                      With Cells(y, z)
                                          .Interior.Color = RGB(0, 0, 255)
                                          .Font.Color = RGB(255, 255, 255)
                                      End With
                                  
                                  End If
                              Next z
                          End If
                      Next y
                  Next x
                  End Sub

                  se cambi mese la macro si adegua, riconosce i giorni della settimana
                  ti ho messo un pulsante per il lancio della macro

                  ti allego anche il file
                  http://www.filedropper.com/evidenziablu

                  fammi sapere per il problema che ti ho detto

                  Ciao Salvatore (8-D

                  Ciao By Sal (8-)
                  se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                • raimearaimea
                  Partecipante
                    Post totali: 78

                    ciao

                    i tuoi dubbi sono sicuramente fondati ,
                    il file originale e molto complesso e grande
                    questo ovviamente e’ una piccola parte.

                    la macro e’ quasi ok

                    se in col ED i nomi cambiano
                    devono essere tolte tutte le righe blu dei nome pre selezionati precedentemente
                    cosa che attualmente la macro non fa.

                    serve poi la macro_2 per togliere del tutto/ pulire, lo sfondo blu,
                    da col D a AI

                    ciao

                  • BySalvBySalv
                    Amministratore del forum
                      Post totali: 857

                      HOOPS!….. non avevo letto bene ti ho rifatto la macro, ecco il file con la modifica.

                      http://www.filedropper.com/evidenziablu_1

                      per pulire tutto basta che cancelli i nomi in DE e lanci la macro elimina tutto il blu, sempre la stessa macro

                      Ciao Salvatore

                      • Questa risposta è stata modificata 1 mese fa da BySalvBySalv.

                      Ciao By Sal (8-)
                      se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                    • raimearaimea
                      Partecipante
                        Post totali: 78

                        ciao
                        ora tutto ok
                        vengono colorati i nomi corretti anche dopo averli cambiati.

                        opra mi servirebbe la “macro 2” x pulire e riportare sfondo bianco
                        da col D a Ai

                         

                        cancellare i nomi in ED non mi va bene
                        xche dovro fare die confronti veloci con altre cose
                        e il dover riscrivere ogni volta i nomi non va bene

                        ciao

                        • Questa risposta è stata modificata 1 mese fa da raimearaimea.
                        • Questa risposta è stata modificata 1 mese fa da raimearaimea.
                        • Questa risposta è stata modificata 1 mese fa da raimearaimea.
                        • AvatarKris_9951
                          Partecipante
                            Post totali: 212

                            Ciao Raimea.

                            Una macro del genere ‘avevo scritta io ma non mi ricordo cosa non andava…

                            Se mi dici posso riprovarci…

                        • BySalvBySalv
                          Amministratore del forum
                            Post totali: 857

                            Ciao ecco la modifica, ti ho inserito un altro pulsante per la pulizia

                            http://www.filedropper.com/evidenziablu_2

                            Buon Pranzo

                            Ciao Salvatore

                            Ciao By Sal (8-)
                            se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                          • raimearaimea
                            Partecipante
                              Post totali: 78

                              ciao
                              ora tutto ok

                              grazie

                          Visualizzazione 10 filoni di risposte
                          • Devi essere connesso per rispondere a questo topic.