keep on macro running 1

[limeg95]

skip
this is the code i am using , when i step through it works fine but when it runs it keep on going ascenind gorder and descending order 48,47, 46, 45
becasue of j = j -1
coudl you help me. thanks
-------------
For j = 7 To 48
DSFPT1 = Trim(UCase(MyScreen.GetString(6, 9, 6)))
DSFPT = Cells(j, 1).Text

If DSFPT <> "" Then
If DSFPT1 <> DSFPT Then
MyScreen.SendKeys ("<ENTER>")
j = j - 1
ELSE
' working fine this part
else
next j

 

[vzachin]

limeg95,

it would be a great service for the members of this board if you would post your code that works.what works for you may also work for others.this way it can help others