Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Makro kopiujace do innego pliku zbiorczego

markow84 08 Mar 2018 22:08 450 3
  • #1 08 Mar 2018 22:08
    markow84
    Poziom 2  

    Witam, mogl by mi ktos pomoc i z edytowac 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" potem zapisal i zamknal plik i powrocil do "handover"

    Mam ponizsze makro, ale ono kopiuje wartosci do arkuszu "Blue"w tym samym skoroszycie i nie moge sobie poradzic z otwarciem nowego pliku, do ktorego chcialbym kopiowac wartosc.

    Z gory dziekuje za jaka kolwiek pomoc.

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0 3
  • #2 08 Mar 2018 23:02
    Prot
    Poziom 29  

    markow84 napisał:
    mogl by mi ktos pomoc


    Musisz spróbować zrozumieć jak działa makro - utwórz sobie plik xlsm (z którego będziesz uruchamiał makro) i albo nagraj wszystkie czynności, które chcesz żeby automatycznie były wykonane, albo wnikliwie przeanalizuj krok po kroku (wyobraź sobie, że przed klawiaturą siedzi jakiś lammer i Ty musisz mu dokładnie wytłumaczyć co ma robić w tym Excelu :D ): otwórz w Excelu plik A, wybierz Arkusz 1, zaznacz komórkę F4, skopiuj ją, otwórz plik B, wybierz Arkusz 3, przewiń okno w dół aż znajdziesz wolną komórkę w kolumnie 6, wklej w to miejsce skopiowaną wartość, zachowaj zmiany, zamknij plik B, otwórz plik A i wybierz Arkusz 1 ...itd

    Jak to przemyślisz w ten sposób to sam ustalisz dlaczego Twoje makro wykonuje zupełnie nie to co Ty planujesz. Powodzenia

    0
  • #3 09 Mar 2018 23:08
    markow84
    Poziom 2  

    Witam,

    Cos tam ogarnalem ale z jakiegos powodu makro nie przelacza sie pomiedzy plikami a potrzebuje to bo bede musial skopiowac okolo 10 lokacji a nie chce 10x zamykac i otwierac pliku bo to by bylo bez sensu. Mogl by mi ktos wskazac blad albo nakierowac na poprawke ??



    Sub BLUE()
    Application.ScreenUpdating = False

    Dim myfile As String

    myfile = "C:\Goods In\Goods In Data_DO NOT DELETE__\Goods In Data.xlsx"

    Application.Workbooks.Open FileName:=myfile

    Workbooks("Goods In Handover.xlsx").Activate

    Sheets("HANDOVER").Select
    Range("F1").Select
    Selection.Copy

    Workbooks("Goods In Data.xlsx").Activate


    Sheets("BLUE").Select
    nw = Sheets("Blue").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Cells(nw, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    Application.CutCopyMode = False

    ActiveWorkbook.Save
    ActiveWorkbook.Close

    End Sub

    0
  • #4 09 Mar 2018 23:46
    Prot
    Poziom 29  

    markow84 napisał:
    myfile = "C:\Goods In\Goods In Data_DO NOT DELETE__\Goods In Data.xlsx"

    Application.Workbooks.Open FileName:=myfile

    Workbooks("Goods In Handover.xlsx").Activate


    Otwierasz plik A, a potem chcesz aktywować inny B nieotwarty skoroszyt :sm31:

    Nie załączasz żadnych przykładowych plików, więc nawet nie wiadomo w jakim pliku ma być zlokalizowane Twoje makro :cry:

    0