Search & Copy loop code

[Peter]

This Sub doesn't go, what i must change.Thanks in advance


Sub search()
n_riga = 2
Do While Cells(n_riga, 16) = "NOT FOUND"


Cells(n_riga, 5).Select
Selection.Copy

Cells(n_riga, 20).Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Cells(n_riga, 5).Select
Selection.Copy

n_riga = n_riga + 1
Loop
End Sub
..

 

[Doug Robbins - Word MVP]

Hi Peter,

I gather that you are doing something with Excel. If that is the case, it
would be better to post to microsoft.public.excel programming.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a consulting basis.

Hope this helps
Doug Robbins - Word MVP