Do Until Loop

H

Hargrove

I have the following macro

Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
Application.Run "'Plotting Macros.XLS'!PasteValue
Windows("NET AttorneyBatchTrack 2003_11.xls").Activat
ActiveCell.Offset(24, 0).Range("A1").Selec
Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
ActiveCell.Offset(0, 1).Range("A1").Selec
Application.Run "'Plotting Macros.XLS'!PasteValue
Do Until ActiveCell.Value = "
Windows("NET AttorneyBatchTrack 2003_11.xls").Activat
ActiveCell.Offset(0, 1).Range("A1").Selec
Application.CutCopyMode = Fals
Selection.Cop
Windows("Attorney Net Plotting by Placement 2003_11.xls").Activat
ActiveCell.Offset(-1, 2).Range("A1").Selec
Application.Run "'Plotting Macros.XLS'!PasteValue
Loo
End Su

The problem is that when it reaches the empty cell, it will copy and paste that information into the new workbook before stopping. I want it to recognize that the active cell is empty and stop there, before it pastes the information. Any suggestions?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Using With to speed up macro 2
Complicated Sort-Compare-Delete Question 4
Method 'Range" of object'_Global' failed 2
Using macro to change printrange / fit-to-page 3
csv to xls date US/UK format 4
Clear data from clipboard using VBA 2
Do Until Loop 2
variable = current cell in VB 5

Top