Copy paste depending on cells property

Hi everyone,

I would need some help with the following macro (module 15 in file attached).

The codes already written alows me to move from one cell to another to the right (2 cells to the right), within the chart.

The goal would be when the selected cell comes accross a "0" (for instance on cell M28), it copies paste it on cell+2 (to the right) in AM29.
And when it comes across a red interior cell (AK29 for instance) it copies it on cell+2 (to the right), in I26


Thanks again for your help
(cannot attached file for some reason, will try later on)

Sub split()


    For Each rw In Range("D14:AZ76").Rows
        If Cells(rw.Row, "B").Value >= Date Then
            For Each cll In Intersect(rw, Range("E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AK:AK,AM:AM,AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY")).Cells
                If Application.Count(cll.Offset(, -1)) = 1 Then
                    cll.Select
                    
                 
                     End If
                cll.Select


      
               Next cll
          End If
          Next rw
          
End Sub

to attach file click on Reply, then GoAdvanced, then look below and click on ManageAttachments etc

A few questions:
Your code is running through
- cells in the nominated columns (E, G, I etc)
- within range "D14:AZ76"
- IF there is a "NUMBER" in adjacent cell to left of given cell THEN
- SELECT given cell

Your "RED" cell ("AK29") is not selected because there is TEXT not NUMBER in "AI29 "(text = "A83")
Your "ZERO" value cell ("M28") is not selected because there is TEXT in "L28" (text = "A95")
The line that causes this is:

If Application.Count(cll.Offset(, -1)) = 1 Then

Should this line be amended to:

If Application.CountA(cll.Offset(, -1)) = 1 Then

so that if there is anything in column to left, then the cell is selectd?


You say that "The goal would be when the selected cell comes across a "0" (for instance on cell M28), it copies paste it on cell+2 (to the right) in AM29. And when it comes across a red interior cell (AK29 for instance) it copies it on cell+2 (to the right), in I26"
I really cannot see what you are wanting here
Why does the "0" in "M28" get copied to "AM29"?
Why does the value in "RED" cell "AK29" get copied to "I26"?

So we paste a zero until we hit a "RED" cell, and then we paste value of "RED" Cell, until we hit a zero, and then we paste a zero until we hit a "RED" cell etc?

Try this.
I was not sure what you wanted to use as the stock value at the beginning of first row matching the date test.
Amend this line to make that value correct.

mystock = ""

Sub split()
Application.ScreenUpdating = False
mystock = ""

'execute les soustractions a partir du stock initial
    For Each rw In Range("D14:AZ76").Rows
        If Cells(rw.Row, "B").Value >= Date Then
            For Each cll In Intersect(rw, Range("E:E,G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AK:AK,AM:AM,AO:AO,AQ:AQ,AS:AS,AU:AU,AW:AW,AY:AY")).Cells
                    If IsEmpty(cll) Then
                        cll.Value = mystock
                    Else
                        If cll.Interior.Color = 255 Then
                            mystock = cll.Value
                        Else
                            If cll.Value = 0 Then mystock = 0
                       End If
                    End If
                cll.Select
               Next cll
          End If
          Next rw
Application.ScreenUpdating = True
End Sub

Question
This assumes that cells are either blank, zero or RED with value. Could they hold a value >0 and not be RED?