something easy for you

[witamserdecznie]

Hi, something simple I believe. How to get into the below code a statement of this sort: if xp = 0 then go to next i?

Cheers

For i = 8 To 11
  xp = Cells(i, 2): yp = Cells(i, 3)
  DxfLine xp - dt, yp, xp + dt, yp, 1, ""
Next

 

[macness]

Construct it more like:

For i = 1 To 3

    If Range("a1").Value = 1 Then
    End If
    
    If Range("a1") <> 1 Then
    MsgBox ("Yay")
    Else: MsgBox ("Boo!")
    End If

Next i

in your example

For i = 8 To 11
 if xp = 0 then
 end if
 if xp <>0 then
  xp = Cells(i, 2): yp = Cells(i, 3)
  DxfLine xp - dt, yp, xp + dt, yp, 1, ""
end if
Next i

that 'should' work!

 

[witamserdecznie]

Thanks,

That indeed works but has to be rearranged as shown below, otherwise macro does nothing.

For i = 8 To 11
         xp = Cells(i, 2): yp = Cells(i, 3)
         If xp = 0 Then
         End If
         If xp <> 0 Then
         DxfLine xp - dt, yp, xp + dt, yp, 1, ""
        End If
Next i

 

[macness]

Oops yeah that'll do it! i missed your declaration of xp = there...

Hoorah!