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 |
All times are GMT +1. The time now is 04:12 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com