You are here:Home-Domande su Excel VBA e MACRO-separare date con riga verde
separare date con riga verde2020-07-05T14:32:24+02:00

Home Forum Domande su Excel VBA e MACRO separare date con riga verde

Visualizzazione 3 filoni di risposte
  • Autore
    Post
    • raimearaimea
      Partecipante
        Post totali: 44

        ciao

        vorrei mettere una riga verde

        al variare della data di colonna D

        partendo a controllare da riga D8

        fino a ultima riga popolata in col D

         

        al varriere della data mettere una riga verde da col A : I

        attualmente c’e una riga rosso e’ stata messa manualmente

        vi allego il file

        https://www.dropbox.com/s/kkpamv19bh4j6ii/riga-verde.rar?dl=0

        ciao

         

      • AvatarFedtorrent
        Partecipante
          Post totali: 11

          Ciao Raimea,
          io avrei risolto così:

          Sub RigaVerde()
          Dim X As Integer, Data1 As Date, Data2 As Date
          
          X = 8
          Do Until Cells(X + 1, 4) = ""
          
          Data1 = Format(Cells(X, 4), "dd/mm/yyyy")
          Data2 = Format(Cells(X + 1, 4), "dd/mm/yyyy")
          If Data2 <> Data1 Then
          Range("A" & X & ":I" & X).Select
          With Selection.Borders(xlEdgeBottom)
          .LineStyle = xlContinuous
          .Color = -11489280
          .TintAndShade = 0
          .Weight = xlMedium
          End With
          End If
          X = X + 1
          Loop
          
          Cells(X, 4).Select
          
          End Sub
          

          Fai partire la sub inserendo un pulsante sul foglio.

          Buona serata

          …fedtorrent

        • raimearaimea
          Partecipante
            Post totali: 44

            ciao

            tutto ok

             

            grazie

          • BySalvBySalv
            Amministratore del forum
              Post totali: 771

              Ciao Raimea Grazie per il tuo sostegno al Forum
              Vedo che hai risolto grazie a Fedtorrent che saluto

              By Sal (8-D

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

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