vba - excel

I want match a pair of value with algebric summ( +-=0... for example 1,00 and -1,00 is matching) and if the summ is=0 insert zero in column Z...

Naturally after the code finish the summ of cells with the index Zero in Z must be =0...
But the code rerturn other total of summ, please help

Why do you want this to do with a code when you can do it with a formula?

What I understand from the above is that if Cell A2 = 1 and Cell I2 = -1 then Cell Z2 should be zero... If my understanding is correct then insert this formula in Cell Z2

=IF(AND(ABS(A2)=ABS(I2),A2+I2=0),0,"")

and then you can drag the formula down...

Hope I have understood your query correctly?

Quote:

---

Originally Posted by koolsid

Why do you want this to do with a code when you can do it with a formula?

What I understand from the above is that if Cell A2 = 1 and Cell I2 = -1 then Cell Z2 should be zero... If my understanding is correct then insert this formula in Cell Z2

=IF(AND(ABS(A2)=ABS(I2),A2+I2=0),0,"")

and then you can drag the formula down...

Hope I have understood your query correctly?

---

hI koolsid, tks for reply but no you not understand is my english not good! sure.

My ryally prob:

I want to loop all cells in column I with this:

loop first cell i column I with other il list and if the algebric summ between one in list is =0 then insert in Z the value ZERO for this pair, go the next cell and loop between other cells in list the algebric summ is =0 then insert ZERO in column Z for this pair, ecc...

To test if the summ of mached cells are = the code work fine...

Just have maked a code in wbook, but not work.
Tks pizza for you, sure

Quote:

---

Tks pizza for you, sure

---

I like pepperonni :D

Quote:

---

loop first cell i column I with other il list

---

What is this other list?

Can you give specific examples like I have done above?

Quote:

---

Originally Posted by koolsid

I like pepperonni :D



What is this other list?

Can you give specific examples like I have done above?

---

sorry, other values in columnm I

So you mean the If I take the value in Cell I2 and compare it with other values in Column I and if it satisfy's the condition mentioned above then put a zero in respective cell in Column Z for example

I2= -1 and I3=1 so Z3 should be zero? And similarly Z15 should be Zero?

Is my understanding correct?

Quote:

---

Originally Posted by koolsid

So you mean the If I take the value in Cell I2 and compare it with other values in Column I and if it satisfy's the condition mentioned above then put a zero in respective cell in Column Z for example

I2= -1 and I3=1 so Z3 should be zero? And similarly Z15 should be Zero?

Is my understanding correct?

---

yes!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

1 PIZZA AND SPAGHETTI.

Not sure if this is how you want it... Try it and tell me...

vb Code:

Sub Test()
    Dim lrow As Long, rng As Range, cell As Range
    
    lrow = 223
    
    Set rng = Range("I2:I" & lrow).SpecialCells(xlCellTypeVisible)
    
    For Each cell In rng
        If Abs(Range("I2").Value) = Abs(cell.Value) _
        And (Range("I2").Value + cell.Value) = 0 Then
            'Set value of Cell in Col Z = 0
            Range("Z" & cell.Row).Value = 0
        End If
    Next cell
End Sub