Copy Data From Other Sheet Vba

[anup47]

Dear all

I need to know how to copy certain data from an excel spreadsheet, lets say from a1:b10 and paste it on other excel spreadsheet.

If i need to paste the same data on other sheet of same spreadsheet i.e. from sheet 1 to sheet 2 then i can do it through a macro but i can't do it for other excel spreadsheet.

Can someone provide me how to do it.


with regards

Anup

 

[vasim]

Do you want to paste on an existing file or new worksheet


Existing file:

Sub copy()

Sheets("Sheet1").Range("A1:B10").copy

Workbooks.Open Filename:= _

"Type the path of your sheet"

Sheets("Sheet1").Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub


New file:


Sub copytonewsheet()

Sheets("Sheet1").Range("A1:B10").copy

Workbooks.Add

Sheets("Sheet1").Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

 

[Meedan]

This code works smoothly.

 

[Hui]

Anup

Have a read of http://www.vbforums.com/showthread.php?t=510652

Lots of different ideas in there

 

[anup47]

Thank you very much, its really working smoothly.


with regards

Anup

 

[David_Hiss]

Hey guys,

a similiar but probably easier problem:

I need to copy a row of five cells from every sheet in the wb (same cells every sheet) to a new sheet. The rows should appear in cells B2:F2 and downwards.

I think i got the copy part right but i habe no idea how to do the paste part.


Sub CopyCells()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

With ws.Range("H1:S1")

.Copy

End With

Next ws

End Sub


Thanks for your help!

 

[David_Hiss]

I just saw that the range is wrong... that will be E34:I34.

 

[David_Hiss]

I solved it.