View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
dribler dribler is offline
external usenet poster
 
Posts: 6
Default a few adjustment for a do-loop escape

i need to place a criteria to enable the macro from stop its execution
if J324=0, then end
----
Sub filldown()
Do
If Range("J324").Formula 0 Then
Range("J324").Copy
Range("C88").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E225:E263").Copy
Range("l8500").End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
Loop
End Sub
-----
regards,
driller