Thread: Do Until Loop
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
pikus pikus is offline
external usenet poster
  
Posts: 1
Default Do Until Loop
Do Until ActiveCell.Value = Null
Windows("AttorneyBatchTrack 2004_04.xls").Activate
ActiveCell.Offset(24, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Attorney Gross Plotting by Placement 2004_04.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
Windows("AttorneyBatchTrack 2004_04.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Attorney Gross Plotting by Placement 2004_04.xls").Activate
ActiveCell.Offset(-1, 2).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
Loo

--
Message posted from http://www.ExcelForum.com

Reply With QuoteReply With Quote