[VBA] - Makro do kopiowania danych z innego pliku.

Witam,

z racji malej wiedzy napisalem ten kod analizujac nagrane wczesniej makro. Blad (zapewne trywialny) z ktorym nie moge sobie poradzic polega na tym, ze nie sa kopiowanie dane z pliku wsad, a makro wykonuje sie na pliku z ktorego je uruchamiam. Zapewne trzeba cos dodac po poleceniu otwarcia pliku, ale mimo, ze glowie i sie i troje nie wiem co ;(

Private Sub CommandButton1_Click()

    Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_folder\wsad.xlsx"

           Range("A:A").Copy

           ThisWorkbook.Activate

           Sheets("Arkusz2").Activate

                Range("B1").Select

           ActiveSheet.Paste

    Workbooks("wsad.xlsx").Close

End Sub

PRLThisWorkbook.Activate = Windows(Zeszyt).Activate

Zrobić pełny link do arkusza.
ActiveWorkbook.Sheets(1).Range("A:A").Copy
Być może, jak skoroszyt otwiera, jest kopiowany z bieżącego zakresu.

JRV

Zgadza się. Przeoczyłem, że autor uaktywnia aktywny arkusz, czyli nie ten, którego się spodziewał.

Super, działa jak trzeba Mam jeszcze nature kwestii "estetycznej". Mianowicie przy kopiowaniu wyskakuje komunikat o dużej ilości informacji w schowku, można to wyłączyć albo zaszyć gdzieś, żeby wybierał opcje "nie" ?

Moge potrzebować jeszcze skopiować kolumne B. Jedyne rozwiązanie na jakie wpadłem jest poniżej. Istnieje jakiś bardziej optymalny sposób, żeby kod jeśli w przyszłości dodam więcej kolumn nie wykonywał się zbyt długo ?

Dzień dobry,
Jeżeli dane do kopiowania zaczynają się od pierwszego wiersza, to fragment dotyczący kopiowania można skrócić tak:

Sorki że się włączę a jeśli nie znamy nazwy pliku i próbujemy go znaleźć, otworzyć oraz skopiować to samo