EXCEL VBA: Jak kopiować dane z wielu arkuszy do jednego?

Witam ponownie
panowie znowu mam problem zaczołem bawić sie tym VBA i nawet niezle mi idzie ale nie lubię stać długo nad jednym tematem...a wiec tak 2 problemy:

1. mam kilka arkuszy o nazwach imie i nazwisko...teraz w osobnym arkuszu chce pobrac niektóre dane z tych arkuszy...tzw dane są zawsze w jednym miejscu np W B2 , C8-C12 ...Dane z B2 chce wczytywać do kolumny A a inne do B i tak dalej...wiem że trzeba stworzyć pętlę przelatującą po wszystkich arkuszach...ale nie wiem za bardzo jak..

2. W tych arkuszach mam pewną liczbę np 208...zapisuję plik z tymi arkuszami i tą liczbą np STYCZEŃ...otwieram następny plik i zapisuję go LUTY i teraz potrzebuję pobrać tą pewną liczbę z pliku STYCZEŃ do pliku LUTY..da sie tak zawsze ona bedzie w jednej komórce...Najlepiej zeby program pytał z kąd pobrać ta liczbę czy ze Styczeń czy z innego pliku..

Wiem że może zawile to napisałem jak coś to pisać ale bardzo proszę o pomoc w miarę chęci i możliwośći.
Z góry dziekuje

piotrek8940 napisał:

wiem że trzeba stworzyć pętlę przelatującą po wszystkich arkuszach...ale nie wiem za bardzo jak..

ad. 1.

Nie rozumiem do końca twojej koncepcji ale dziękuje za zainteresowanie...wiem zę pętla for each przelwatuje po kazdym elemenciie ale nie rozumiem warunku...
Mógłbys trochę wytłumaczyć o co chodzi
Z góry dziekuje

Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each.
Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję.
Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.

No tak if omija mi aktywny arkusz ..moge tu teżź podać nazwę konkretna..a jak wpisać do kolumny A z góry na dół np nazwy wszystkich arkuszy ktory znajdują sie w kazdym arkuszy na pozycji B2 czyli utworzyc taką liste

Na przykład tak:

Niby takie proste a ciężko wymyślić...wielkie dzięki...a powiedz mi jeszcze jak by zrobić na odwrót czyli mamy taką liste i chcemy utworzyć tyle nowych arkuszy ile jest osob na tej liscie i wpisać do nich dane z listy??
prosze o jakieś wskazówki

Ostatnio robiłem u nas w firmie szkolenie z VBA, akurat na jednej z lekcji to przerabialiśmy. Przykład w załączniku.

No to się mi udało Gdybyś mógł podesłać mi wiecej twoich lekcji to było by fajnie albo na priv podesłac...widzę że VBA masz w jednym palcu:) a nie wymyślił byś cos na mój 2 problem??

Twój drugi problem nie jest dla mnie zrozumiały. Jeżeli otworzyłeś plik STYCZEŃ i zapisujesz plik pod inną nazwą (LUTY), to będą w nim te same dane jak w pliku STYCZEŃ - a więc i ta liczba. Może jakiś przykład załączysz?

Chodzi mi o to że mam liczbę np "208" w pliku Styczeń...i ona staję się jakby globalna tzw Drugi plik Luty odwołuję się do tej liczy w pliku styczeń...chcę jakby zrobić takie odwołanie do innego pliku. Nastepnię wykonuję operację na niej i mam już liczbę "400".. W pliku Marzec odwołuję sie do liczy z lutego czyli 400 i tak dalej..
Naświetliłem Ci trochę mój problem??

Jeżeli musisz powiązać jeden plik z wartościami z innego i znasz ich lokalizacje, to otwórz te dwa pliki jednocześnie, w pliku LUTY zrób odwołanie do pliku STYCZEŃ (po prostu - wpisz w komórce =, przejdź do arkusza STYCZEŃ i zaznacz w nim komórkę). Formuła przyjmie wartość mniej więcej taką: =[STYCZEŃ.xls]Arkusz1!$B$3.
Jak teraz zamkniesz plik STYCZEŃ, formuła zmieni się na pełną ścieżkę do pliku i będzie się aktualizować przy otwarciu (o ile masz to ustawione w opcjach Excela monit lub automatyczne odświeżanie łączy skoroszytu).

No to jest dobry sposób na powiązanie gdy mamy po 1 arkuszu w pliku...a jeżeli mamy po 10 akruszy które tak samo muszą być powiązane to wtedy za kazdym razem trzeba robić to powiązanie ręcznie.. i tu chciałby to zautomatyzować

Czy ta liczba będzie się później zmieniać po jej skopiowaniu czy już nie?

Tak będzie sie zmieniać w każdym miesiącu to chodzi o to podam przykład na początku roku mamy 208 godzin urlopu z każdym miesiącem będzie sie ona pomniejszac i chce zrobić aby odwoływała sie do poprzedniego miesiąca i mamy np 10 osób czyli 10 arkuszy...da się tak w ogóle??

Można wstawić formułę makrem, zmieniając tylko nazwę miesiąca która jest np. w jakiejś komórce.
Przykład na jedną komórkę:

Można to wstawić do pętli która wcześniej podałem, wstawiając formułę w odpowiedni arkusz.

zastawmy narazie ten temat pokombinuje w wolnym czasie:) a pytanie z innej beczki jak wpisać dowolny znak w stringu tzw chce wpisać "##:#0:00" # znaczy dowlny znak...ale tak nie działa nie wiem jak to zrobić proszę o pomoc jest jakiś sposób??

Dowolny znak w jakim stringu? Do czego to ma służyć? Format komórki czy co?

Witaj a wiec tak mam taki kod :
If op = "KONIEC" And zaokrag1 = "1" Or zaokrag1 = "2" Or zaokrag1 = "3" Or zaokrag1 = "0" Then
Cells(x, 6) = "17:30:00"
porównuję minuty jesli godzina konczy sie minutą 1 lub 2 lub 0 chce jej przypisać 0 ale ze by godzina została ta co jest czyli jak mam godzinę 16:32:39 chce przypisać 16:30:00 ale nie wiem jak to zrobić bo musze miec własnie na pierwszych miejscach dowolna liczbę a tylko 3 ostatnie zmieniać na 0 a w stringu gdyż zapsiuję to w cudzysłowie "16:30:00" i musi byc własnie tak # przyjmijmy ze to dowolna liczba:
"##:#0:00"

Dodano po 3 [godziny] 4 [minuty]:

Ok już sobie z tym poradziłem innym sposobem trochę niż chciałem no ale udało się...Dziękuję za podpowiedzi

Jeśli chcesz zaokrąglać czas, możesz spróbować w ten deseń:
Funkcja zaokrąglająca minuty zależy od efektu, który chcesz uzyskać.