Makro do kopiowaina pewnego zakresu komórek do innego arkusza

Witam.
Próbuję napisać makro, które kopiuje pewien zakres danych z jednego arkusza do innego arkusza w zestawieniu.
Problem polega na tym, że dane w zestawieniu z każdego arkusza powinny się pojawiać, bez względu na to ile jest arkuszy w zeszycie.
Proszę o pomoc.

Użyj pętli For, wyłączając arkusz docelowy w instrukcji warunkowej. Przykład

Nie chcę być upierdliwy, ale kolega nawet nie spróbował użyć magicznego przycisku o nazwie Szukaj figurującego przeważnie na każdej stronie Elki, że o przeczytaniu tego nie wspomnę.

Przeglądałem, ale jakiś czas temu, po rejestracji (kilka miesięcy temu, z tego co pamiętam)
Korzystam z forum po raz pierwszy. I mocno przeceniłem swoje umiejętności pisania makr w Excelu, a także okazuje się że również definiowania problemów :/

Dodano po 18 [minuty]:

zamotałem się trochę :/
mam makro, które po wciśnięciu Przycisku CommandButton dodaje arkusz i kopiuje jego zawartość, aby można było swobodnie wykonać na dodanych arkuszach identyczne obliczenia. I usiłuję stworzyć makro, które kopiuje wyniki z każdego arkusza (bez względu na ich liczbę) na arkusz "Zestawienie"

Dodano po 1 [godziny] 6 [minuty]:

Czy na podstawie tego, co napisałem powyżej (i poniżej) da się stworzyć makro?
1. Wybranie arkusza docelowego i aktywacja
2. Zaznaczenie zakresu w arkuszu o nazwie "Arkusz1"
3. Przeniesienia i transponowanie tej zawartości na arkusz "Zestawienie"
4. Powtórzenie czynności dla kolejnych arkuszy "Arkusz2", "Arkusz3" itd.
(przeniesienie kolejnych zakresów (wyników) o wiersz nizej)

Czy może mi ktoś z tym pomóc?

Quote:

Czy na podstawie tego, co napisałem powyżej (i poniżej) da się stworzyć makro?

Powyżej nie bardzo poniżej konkretnie:
1.

2.

3.

4.

Faktycznie działa i napisane "zgodnie ze sztuką" projektowania aplikacji w Excelu

Dodano po 17 [minuty]:

Czy jest ktoś w stanie oszacować ile czasu potrzeba, aby przy użyciu książki dla profesjonalistów (kiedy się nie jest profesjonalistą), przykładów i forum może zająć napisanie takiego makra do zestawiania?

Dodano po 48 [minuty]:

Poproszę w takim razie jeszcze o dokończenie tego kodu o część:

4. pętla powtarzająca czynność dla "Arkuszan" (gdzie n=1,2,3...) i przeniesienie wyników z tych arkuszy na wierszen (gdzie n=1,2,3...) tej samej kolumny w arkuszu "Zestawienie"

Do przemieszczania się pomiędzy arkuszami w pętli zamiast nazw arkuszy użyj indeksów (znaczy numerów arkuszy). Numer 1 należy do pierwszego arkusza. Nie myl z numerem arkusza w nazwie. Po zmianie kolejności arkuszy indeksy też się zmieniają. W pętli z pkt 4 umieszczasz dwie ostatnie linijki kodu z pkt 3. Przed pętlą pkt 1, 2 i pierwszą linię z pkt 3. Całość ubierasz w:

To wszystko najlepiej w nowym module i jeżeli zrobisz tak jak napisałem...
powinno zadziałać.

Mam coś takiego:
Sub NazwaMakro()


Sheets(1).Activate
ActiveSheet.Range("C1:C12").Select

Selection.Copy
For i = 1 To 10
Sheets("ZEST").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next

End Sub

Ale nie działa :/

Dodano po 9 [minuty]:

Pyta się czy zamienić zawartość komórek docelowych :/

No i nie przeczytałeś dokładnie tego co napisałem. Indeksu użyj w pętli.
W wolnym tłumaczeniu:

Tu możesz użyć "nazwy arkusza" zamiast 1.
natomiast tu:

zamiast "ZEST" wstaw i. Jest jeszcze jedno ale...
musisz mieć minimum 10 arkuszy coby makro się nie wysypało.

Edit:

Quote:

Pyta się czy zamienić zawartość komórek docelowych :/

bo chcesz wkleić dane do arkusza z którego kopiowałeś. Domyślam się, że pierwszy w pliku jest arkusz Zest.

Pomyka, wygląda tak:
Sub makro()
Sheets(1).Activate
ActiveSheet.Range("C1:C12").Select
Selection.Copy
Sheets("ZEST").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

For i = 1 To 10
Sheets("ZEST").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End Sub

Dodano po 1 [minuty]:

Dziękuję za zainteresowanie moim postem. Już poprawiam.

Przeczytaj dokładnie to co Ci napisałem wcześniej. Policz linijki to zobaczysz, że to, co nazwałeś pomyłką, pomyłką nie jest. Za to ten kod jest pomyłką totalną.

Edit:
Jeszcze jedno. Jeżeli Zest jest pierwszym arkuszem to pętla musi zaczynać się od 2. Czyli i=2

A ja bym to zrobił tak

Wygląda to tak jak na zdjęciu (mam nadzieję, że je będzie widać). Wyniki bierze tylko z zakładek o nazwie "Arkusz" i kopiuje i transponuje do arkusza ZEST jedno pod drugim.

Dodano po 24 [minuty]:

gdzieś zaginęło zdjęcie

Dodano po 4 [minuty]:



Dodano po 17 [minuty]:

Mam nadzieję, że nie nadużywam cierpliwości. Kod wygląda tak:
Sub NazwaMakro()


Sheets("Arkusz1").Activate
ActiveSheet.Range("C1:C12").Select

Selection.Copy
For i = 2 To 6
Sheets(i).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next

End Sub

I nie działa

No to się teraz narozrabiało.
To miało być kopiowanie z kilku arkuszy do jednego! No cóż. Muszę się nauczyć czytać ze zrozumieniem problemy wyłuszczane na forum. Ale znowu potwierdza się zasada, że jeden obraz znaczy więcej niż tysiąc słów.
I tu skorzystałbym z podpowiedzi marcinj12 z niewielką modyfikacją warunku na nazwę arkusza (> "Arkusz" and < "Arkusz100000") Myślę, że tyle arkuszy Ci się nie uzbiera.

Edit:
Słowo, nic nie wąchałem, ale motam.
Przecież modyfikacji musi być więcej. Podstawowa to zamiana źródła z przeznaczeniem i dodanie zmiennej, która będzie przesuwała przeznaczenie o wiersz niżej. Nie jest to trudne, więc myślę, że dasz sobie radę.

Edit Edita:
Teraz już możesz zastosować kod naszego kolegi bez modyfikacji.

Jak dla mnie to zbyt duże prawdopodobieństwo popełnienia błędu podczas syntezy "całokształtu "materiału, wiedzy i umiejętności w Edytorze Visial Basic.

Dla ciekawostki podam, że replikujące się DNA popełnia 1 błąd na 10^4, ja ich popełniam niestety więcej

Doceniam pomoc i dziękuję wszystkim Może sklecę coś, co działa

Nie poddawaj się jak już zacząłeś. Wrzuć przykładowy arkusz ze swoimi (nawet nie działającymi) wypocinami. Będzie można poprawić.

Widzę, że zdjęcia i filmiki to można dodawać, a arkusz, jak?

Oj, oj bo się...
(a nie powiem co się)
Poniżej pola, w którym piszesz odpowiedź masz miejsce, w którym przez "Przeglądaj" dodasz plik. Następnie klikasz na "Dodaj załącznik" i gotowe. Nie zapomnij o zaptakaniu pola obok przycisku. (chodzi o prowizję)

Wygląda to mniej więcej tak

Makro kolegi masz w module i działa.

Faktycznie

Wielkie dzięki