[Xune]

Mircy spod #excel #office #vba pomożecie proszę? Mam taki oto testowy zeszyt: https://1drv.ms/x/s!AoTe4SJQWdHagRIdqmLDy2hRIDk0

Arkusz 1 zawiera dane w kolumnie A i B. Kolumna A jest niezmienna i zawiera dane w komórkach A2:A17; dane w kolumnie B będą się zmieniać. Arkusz 2 zawiera w kolumnie A dokładnie te same dane co na arkuszu 1 kolumna A. Cały problem polega na tym żeby stworzyć makro (i potem wpiąć je pod guzik) który skopiuje dane z Arkusza1 zakres B2:B17 i wklei jako wartości do pierwszej pustej kolumny w Arkuszu 2 zaczynając od wiersza 2 i będzie tak działał dopóki nie zapełni wszystkich kolumn od B do CW. Czyli pierwsze odpalenie tego makra kopiuje dane z Arkusza 1 B2:B17 do Arkusza 2 B2:B17. Drugie odpalenie makra kopiuje dane z Arkusza 1 B2:B17 i wkleja jako wartości do Arkusza 2 C2:C17. Trzecie odpalenie kopiuje z Arkusza 1 B2:B17 i wkleja jako wartości do Arkusza 2 D2:D17. I tak dalej.

Pomożecie? Oferuję plusy i wdzięczność :D

[croppz]

@Xune: tak na szybko:

Sub guzik()
Set a1 = ThisWorkbook.Sheets("arkusz1")
Set a2 =

[Xune]

@croppz: !!! DZIĘKI :D

W 2010 działa, zakładam że w 2013 też śmignie. Co prawda 2013 mam po angielsku, ale myślę że dam sobie radę z dostosowaniem :D Przy okazji jeszcze rozkminię jak to działa żeby na przyszłość nauczyć się samemu :)

[croppz]

@Xune: Jedyne co tu będziesz musiał zmienić to nazwy arkuszy. Ewentualnie możesz sobie jakiś inny komunikat wpisać.

[Xune]

@croppz: Dzięki wielkie :D

[croppz]

@Xune: Nie ma sprawy mirku. ( ͡° ͜ʖ ͡°)

A jak chcesz zacząć pisać w VBA to tutaj jest wszystko co warto na początku wiedzieć.

[E.....a]

Jedyne co tu będziesz musiał zmienić to nazwy arkuszy.

@croppz @Xune Albo od razu używaj numerów arkuszy zamiast nazw.

Set a1 = ThisWorkbook.Sheets(1)
Set a2 = ThisWorkbook.Sheets(2)

[zieloneKolanoApokalipsy]

@Eswemenasja @Xune @croppz:
Z tym, że jeżeli wstawisz przed tymi arkuszami inne arkusze, to ich właściwość index (czyli te numerki) też ulegnie zmianie.
jest jeszcze coś takiego jako CodeName arkusza, która nie ulega zmianie przy operacjach na innych arkuszach. Na rysunku poglądowym w okienku project explorera to jest nazwa nie w nawiasach, natomiast w okienku properties to jest nazwa pod hasłem "(Name)" - nie mylić z "Name"
w

[E.....a]

CodeName

@zieloneKolanoApokalipsy: Dzięki mirku, człowiek uczy się całe życie. Ja bym obstawał przy numerach i po prostu pamiętał, gdzie wstawiam nowe arkusze, czy na początek, czy na koniec kolejki. "U mnie bangla :)"

[zieloneKolanoApokalipsy]

@Eswemenasja obrazku zapomniałem dodać