You are here:Home-Domande su Excel VBA e MACRO-confrontare elenco di nomi
confrontare elenco di nomi2020-06-30T07:19:44+02:00

Home Forum Domande su Excel VBA e MACRO confrontare elenco di nomi

Taggato: 

Visualizzazione 4 filoni di risposte
  • Autore
    Post
    • raimearaimea
      Partecipante
        Post totali: 46

        ciao

        avrei bisogno di una macro molto simile alla mia ultima richiesta

        ma un range da confrontare questa volta varia.

         

        vorrei confrontare i nomi in:

        col D da riga 6 a >>>  ultima riga

        qui il numero dei  nomi presenti non e’ fisso varia

         

        confrontare i nomi con l elenco di col EB6:EB12

         

        SE c’e lo stesso nome in col D vorrei mettere

        sfondo rosso, carattere bianco , e una linea perpendicolare

        come ES di cella D9  fatto manualmente

        vi allego il file

        https://www.dropbox.com/s/tsxbf9otnmir2ga/control_tecnici.rar?dl=0

        grazie

      • BySalvBySalv
        Amministratore del forum
          Post totali: 783

          Ciao ecco la macro che fa il lavoro, prima pulisce eventuali formati rosso con la diagonale, e poi fa il controllo

          Sub Nomi()
          Dim r, x, y, d, rng
          
          With Range("D6:D317")
              .Interior.Color = RGB(255, 255, 255)
              .Borders(xlDiagonalUp).LineStyle = xlNone
              .Borders(xlDiagonalDown).LineStyle = xlNone
          End With
          r = Cells(Rows.Count, "EB").End(xlUp).Row
          rng = Range("EB6:EB" & r)
          For x = 6 To 317 Step 2
              Cells(x, 4).Interior.Color = RGB(255, 255, 153)
          Next x
          For x = 1 To UBound(rng)
              d = rng(x, 1)
              For y = 6 To 317
                  If Cells(y, 4) = "" Then Exit For
                  If Cells(y, 4) = d Then
                      With Cells(y, 4)
                          .Interior.Color = RGB(255, 0, 0)
                          .Borders(xlDiagonalUp).LineStyle = xlYes
                      End With
                      Exit For
                  End If
              Next y
          Next x
          End Sub

          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: 46

            ciao

            quasi ok

            la macro fa come chiesto.

            il colore  dello sfondo ok

            MA    il carattere bianco lo ha messo una sola volta

            ho fatto girare altre volte su altri nomi ma mette/lascia il carattere nero

            ciao

             

          • BySalvBySalv
            Amministratore del forum
              Post totali: 783

              Ciao non avevo letto del carattere Bianco, mi è sfuggito, ecco la modifica, sono solo 2 righe aggiunte

              Sub Nomi()
              Dim r, x, y, d, rng
              
              With Range("D6:D317")
                  .Interior.Color = RGB(255, 255, 255)
                  .Font.Color = RGB(0, 0, 0) '<---------aggiunta
                  .Borders(xlDiagonalUp).LineStyle = xlNone
                  .Borders(xlDiagonalDown).LineStyle = xlNone
              End With
              r = Cells(Rows.Count, "EB").End(xlUp).Row
              rng = Range("EB6:EB" & r)
              For x = 6 To 317 Step 2
                  Cells(x, 4).Interior.Color = RGB(255, 255, 153)
              Next x
              For x = 1 To UBound(rng)
                  d = rng(x, 1)
                  For y = 6 To 317
                      If Cells(y, 4) = "" Then Exit For
                      If Cells(y, 4) = d Then
                          With Cells(y, 4)
                              .Interior.Color = RGB(255, 0, 0)
                              .Font.Color = RGB(255, 255, 255) '<---------aggiunta
                              .Borders(xlDiagonalUp).LineStyle = xlYes
                          End With
                          Exit For
                      End If
                  Next y
              Next x
              End Sub

              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: 46

                ciao

                Tutto ok

                 

                grazie mille

                 

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