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

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

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.

--
Regards,
Tom Ogilvy


"rhplus " wrote in message
...
Hi!

I have a problem with a Sub that copy selected rows from a excel file
into another one. I don't know what I'm doing wrong because the first
time I execute this Sub works, but the second time it doesn't work, and
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 is
tested because it works the first time but something must happen the
second time.

Thanks in advance.


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

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


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