Makro kopiujace do innego pliku

0

Witam, mogl by mi ktos pomoc i zedytowac makro ktore powinno kopiowac wartosc okreslonej komorki "f1" z arkusza "Handover" do drugiego skoroszytu C:\Goods In\Goods In Data___ DO NOT DELETE____ w kolejna wolna komorke "A" arkuszu "Blue".

Mam ponizsze makro ale ono kopiuje wartosci do arkuszu w tym samym skoroszycie i nie moge sobie poradzic z otwarciem nowego pliku

Application.ScreenUpdating = False
    nw = Sheets("Blue").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("HANDOVER").Select
    Range("F1").Select
    Selection.COPY
    Sheets("BLUE").Select
    Cells(nw, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
0

Może spróbuj coś takiego:

Sub CopyValue()

Dim MyVal As Variant
Dim RowNo As Long
Dim TargetFile As Workbook

MyVal = Worksheets("Handover").Range("F1").Value
Set TargetFile = Workbooks.Open(Filename:="<ścieżka twojego pliku>", ReadOnly:=False, IgnoreReadOnlyRecommended:=True)
TargetFile.Worksheets("Blue").Activate
RowNo = TargetFile.Worksheets("Blue").UsedRange.Rows.Count + 1
ActiveSheet.Cells(RowNo, 1) = MyVal
TargetFile.Save
TargetFile.Close

Set TargetFile = Nothing

End Sub

1 użytkowników online, w tym zalogowanych: 0, gości: 1