copying to a new workbook

[rjhe22]

hi
have this code which copies from 1 sheet to another
how can i get it to copy from 1 excel file to another or is it possible
here is my code

Sub Exporting_Data1()
Dim i As Long, LR As Long
Application.ScreenUpdating = False
On Error Resume Next

Set ms = Sheets("Sheet2")
    With Worksheets("Sheet1")
        LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
          For i = 1 To LR
             If IsDate(.Cells(i, 1)) Then
                 .Cells(i, 1).Copy
                ms.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
                If Len(.Cells(i, "AD")) And .Cells(i, "AD") = "FUND OWNERSHIP %" Then
                .Cells(i, "AD").Offset(1).Resize(4).Copy
                ms.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
              End If
          Next i
    End With
                
Application.CutCopyMode = 0
Columns(1).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = True



End Sub

[rjhe22]

also is it possible if i have 4 sheets in 1 file to copy them over to 4 different sheets in the other file if so how can this be done

[Fotis1991]

In a simple google searching, found these(and more more others)..

http://www.excelforum.com/excel-form...-workbook.html

http://www.ozgrid.com/forum/showthread.php?t=61202

[rjhe22]

ya but i dont get what i have to do with my code to get it working

i want to keep the rest of the code the same as it works from sheet to sheet
whats the best way to do it

[rjhe22]

is this anway closer
or whats the best way to go bout it

 Dim wsMaster As Worksheet, wbDATA As Workbook
Dim NextRow As Long, LastRow As Long

Set wsMaster = ThisWorkbook.Sheets("allocation")
NextRow = wsMaster.Range("A" & Rows.Count).End(xlUp).Row + 1

Set wbDATA = Workbooks.Open("C:\Users\rr154237\Desktop\\UBS_FND_OngoingCharge_Calc.xlsx")

    With wbDATA.Sheets("allocation")
    
               LR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
          For i = 1 To LR
             If IsDate(.Cells(i, 1)) Then
                 .Cells(i, 1).Copy
                wsMaster.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
            End If
                If Len(.Cells(i, "AD")) And .Cells(i, "AD") = "FUND OWNERSHIP %" Then
                .Cells(i, "AD").Offset(1).Resize(4).Copy
                wbDATA.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
              End If
          Next i
    End With
                
Application.CutCopyMode = 0
Columns(1).NumberFormat = "dd/mm/yyyy"
Application.ScreenUpdating = True

    

'wbDATA.Close False
End Sub

i want to cpoy certain data from the spreadsheet the marco is in to\UBS_FND_OngoingCharge_Calc.xlsx