brows trough line and columns

[vbdisdoc]

Hello

Here is what my program is supposed to do

STEP1: go trough [A1:B3] in the "sheet1" (see below):

Example of Sheet 1:
- A B
1 2 3
2 3 0
3 0 5

If he finds a value equal to 0 he will copy it and paste it in the same cell but in (sheet2):

Result in Sheet 2:
- A B
1 - -
2 - 0
3 0 -

My problem is that I don t know how to tell my program to go trough all the lines and columns

So far I only do the colums hehe

Set Info = Sheets("Sheet1").Range("A1:B3")
Set Result = Sheets("Sheet2").Range("A1:B3")


For i = 1 To Info.Count

If Info.Cells(i, 1) = "0" Then
Info.Cells(i, 1).Copy
Result.Cells(i, 1).PasteSpecial xlPasteValues
End If
Next i

If you have any advice

Thank you very much

[Richard Buttrey]

Hi,

Why bother with a macro when in sheet 2 A1 you could just enter

=IF(Sheet1!A1=0,0,"-")

then copy this across and down as far as necessary.

[vbdisdoc]

Hello Richard,
Thank you for your reply. Well it is because I don't want to display formulas in the cells.

And I try to make my question as simple as possible to get a clear answer (asking a good questions is sometimes the hardest)

But I guess the real reason is that I am very curious of how to do it.

So I'll be verry happy if I could find the answer.

[MarvinP]

Hi vbdisdoc and welcome to the forum. Try this code below.

Please Login or Register  to view this content.

[Richard Buttrey]

Hi,

I'd still be inclined to do it in the same way. So with a macro and to avoid a loop which can be time consuming

Please Login or Register  to view this content.

[vbdisdoc]

Hi Marvin and Richard,

Thank you very much for your help
Hope I can also help newbees (like myself) in the futur.

All the best