I want to copy a range from one workbook to a different one without useing
paste

You can use:
Wbk1.Activate
Sheets("datasource").Activate
Range("A1:B50").Select
ThisWorkbook.ActiveSheet.Range("C" & rnum) = Selection
--
Best wishes,

Jim


"aidan" wrote:

> I want to copy a range from one workbook to a different one without useing
> paste

Tks Jim

It didn't work
The source is a *.cvs read only, probably this is the reason..
I want to get a range from this source and copy it in my specific workbook,
worksheet and range.
Thanks again for your time


"Jim Jackson" wrote:

> You can use:
> Wbk1.Activate
> Sheets("datasource").Activate
> Range("A1:B50").Select
> ThisWorkbook.ActiveSheet.Range("C" & rnum) = Selection
> --
> Best wishes,
>
> Jim
>
>
> "aidan" wrote:
>
> > I want to copy a range from one workbook to a different one without useing
> > paste

There is another method which might work.

Sub test()
Workbooks("DataSource.csv").Activate
Sheets("Total").Activate
Range("S1:S9").Copy
Destination:=Workbooks("DataDestination.xls").Sheets("Total").Range("S1:S9")
End Sub

--
Best wishes,

Jim


"aidan" wrote:

> Tks Jim
>
> It didn't work
> The source is a *.cvs read only, probably this is the reason..
> I want to get a range from this source and copy it in my specific workbook,
> worksheet and range.
> Thanks again for your time
>
>
> "Jim Jackson" wrote:
>
> > You can use:
> > Wbk1.Activate
> > Sheets("datasource").Activate
> > Range("A1:B50").Select
> > ThisWorkbook.ActiveSheet.Range("C" & rnum) = Selection
> > --
> > Best wishes,
> >
> > Jim
> >
> >
> > "aidan" wrote:
> >
> > > I want to copy a range from one workbook to a different one without useing
> > > paste

With your help finally I got it rite:

Sub macro1()
' Moving Data Macro'
Workbooks.Open Filename:= "C:\MYLOCATION\Source.csv"
ActiveWindow.Visible = False
Windows("Source.csv").Visible = True
Range("A1:G1500").Copy
(Workbooks("Destination.xls").Sheets("Sheet2").Range("A1:G1500"))
Workbooks("Source.csv").Close SaveChanges:=False
Windows("Destination.xls").Activate
Sheet2.Select
Columns("A:G").EntireColumn.AutoFit
End Sub

My 2003 Excel didnt like me to use := to specify the destination. () after
copy was good enough.

Thanks again Jim

"Jim Jackson" wrote:

> You can use:
> Wbk1.Activate
> Sheets("datasource").Activate
> Range("A1:B50").Select
> ThisWorkbook.ActiveSheet.Range("C" & rnum) = Selection
> --
> Best wishes,
>
> Jim
>
>
> "aidan" wrote:
>
> > I want to copy a range from one workbook to a different one without useing
> > paste

Glad I could help.
--
Best wishes,

Jim


"aidan" wrote:

> With your help finally I got it rite:
>
> Sub macro1()
> ' Moving Data Macro'
> Workbooks.Open Filename:= "C:\MYLOCATION\Source.csv"
> ActiveWindow.Visible = False
> Windows("Source.csv").Visible = True
> Range("A1:G1500").Copy
> (Workbooks("Destination.xls").Sheets("Sheet2").Range("A1:G1500"))
> Workbooks("Source.csv").Close SaveChanges:=False
> Windows("Destination.xls").Activate
> Sheet2.Select
> Columns("A:G").EntireColumn.AutoFit
> End Sub
>
> My 2003 Excel didnt like me to use := to specify the destination. () after
> copy was good enough.
>
> Thanks again Jim
>
> "Jim Jackson" wrote:
>
> > You can use:
> > Wbk1.Activate
> > Sheets("datasource").Activate
> > Range("A1:B50").Select
> > ThisWorkbook.ActiveSheet.Range("C" & rnum) = Selection
> > --
> > Best wishes,
> >
> > Jim
> >
> >
> > "aidan" wrote:
> >
> > > I want to copy a range from one workbook to a different one without useing
> > > paste