insert selected rows problem

R

rhplus

Hi!

I have a problem with a Sub that copy selected rows from a excel fil
into another one. I don't know what I'm doing wrong because the firs
time I execute this Sub works, but the second time it doesn't work, an
only insert a new blank cell.


Public Sub CopyItems()

Windows("FirstFile.xls").Application.Range("B9" + ":" + "C15").Select
Windows(("FirstFile.xls").Application.CutCopyMode = False
Selection.EntireRow.Copy

Windows("TargetFile.xls").Activate
Windows("TargetFile.xls").Application.Rows("9:9").Select
Windows("TargetFile.xls").Application.CutCopyMode = False
Selection.Insert Shift:=xlDown

End sub


Anyone had any time this problem? The fact is that the funtionality i
tested because it works the first time but something must happen th
second time.

Thanks in advance
 
T

Tom Ogilvy

Public Sub CopyItems()

Workbooks("FirstFile.xls").worksheets("Sheet1") _
.Range("B9:C15").Entirerow.copy
Workbooks("TargetFile.xls").Worksheets("Sheet1") _
.Rows(9).EntireRow.Insert Shift:=xldown

End sub

Change the name of the worksheets to reflect the ones you want to work with.
 
C

chris

Try this
Windows("FirstFile.xls").Application.Range("B9" + ":" + "C15").Selec
Selection.EntireRow.Cop
Windows("TargetFile.xls").Activat
ActiveSheet.Range("a9").Selec
ActiveSheet.Past

----- rhplus > wrote: ----

Hi

I have a problem with a Sub that copy selected rows from a excel fil
into another one. I don't know what I'm doing wrong because the firs
time I execute this Sub works, but the second time it doesn't work, an
only insert a new blank cell


Public Sub CopyItems(

Windows("FirstFile.xls").Application.Range("B9" + ":" + "C15").Selec
Windows(("FirstFile.xls").Application.CutCopyMode = Fals
Selection.EntireRow.Cop

Windows("TargetFile.xls").Activat
Windows("TargetFile.xls").Application.Rows("9:9").Selec
Windows("TargetFile.xls").Application.CutCopyMode = Fals
Selection.Insert Shift:=xlDow

End su


Anyone had any time this problem? The fact is that the funtionality i
tested because it works the first time but something must happen th
second time

Thanks in advance
 
Top