Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Witam Po krótce: na początku mam dwie zakładki Arkusz, lista Chcę wprowadzać błędy pracownikom i..nie obędzie się bez Waszej pomocy. Forma "arkusz" spełnia moje wymagania. Chciałbym by te dane zapisywało w takiej formie do nowej zakładki która utworzy się jako nazwisko. Oczywiście wiem że brakuje "guzika" zapisz ale nie tworzyłem go bo dalej i tak nie...
Witam, Prosze o pomoc. Nagrałem makro kopiujące dane z jednego odkrytego arkusza do innego odkrytego arkusza, w tym samym pliku. Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.Save Jak je zmienić, aby działało, gdy arkusz z którego...
Jeżeli chcesz się dalej uczyć to proponuję kolejne ćwiczenie: zrób to samo wyciągając parametry kopiowanych obszarów do pomocniczego arkusza sterującego, tu lepsza będzie pętka do while po wszystkich niepustych wierszach arkusza pomocniczego. Czyli wpisujesz w 1 wierszu nazwę arkusza (np w A2) i nazwę obszaru (np w B2 => I1:I), a potem kopiujesz: [syntax=vbscript]...
Witam. Mam prośbę o pomoc w poprawieniu poniższego kodu. Kod mam za zadanie skopiować do arkusza listę pracowników z innego pliku. Dodatkowo kod ma ponumerować tą listę (oddzielone dwie linijki kodu). Zrobiłem to tak jak potrafiłem ale lista nie numeruje się tak jak chcę. Pierwsza linijka- czyli Range("A3") = 1 ma dodać cyfrę 1 przy pierwszym nazwisku...
Jesli ktos bedzie mial podobne pytanie odsylam do innego zrodla. 2 dni sie meczylem i mi pomoglo w dosyc podobnej kwestii: Niestety ale nazwy poszczegolnych arkuszy i dane z kolumny do makra wstawialem recznie. Jesli jest sposob na kopiowanie + tworzenie nowego arkusza o nazwie skopiowanej komorki bylo by super ;D Wydzielono z
Niestety dalej nie działa. Załączam plik na którym pracuje, zapewne ułatwi on trochę próbe znalezienia rozwiązania. Makro tej funkcji znajduje się w drugim module. Sama formuła testowana jest arkuszu "DATA ENTRY 2" komórka R1. Docelowo formułą musi znaleźć sie w każdym arkuszu DATA ENTRY Skrót klawiszowy Ctrl + Shift + N - powoduję stworzenie nowego...
Siemka. Jako, że excel ma tyyyyle możliwości (których jeszcze nie odkryłem), mam takie pytanie: czy istnieje możliwość aby po wpisaniu pewnych danych do różnych arkuszy, określone dane zostały samoczynnie skopiowane do takiego arkusza nazwijmy go "zbiorczego" i uzupełniały się te dane z podziałem na miesiące (w załączeniu przykładowy plik). Szczegółowiej...
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Wrzucasz plik ważący 30MB, w którym: 1) Jest inna ilość i układ kolumn 2) Początkowy wiersz z danymi ma inny numer 3) Nazwy folderów różnią się od danych w arkuszu (nie mają spacji) i oczekujesz, że będę teraz przerabiał cały kod? Trzeba było na początku załączyć porządny przykład....
Dzięki bardzo ale mógłbyś wyjaśnić czy mam to umieścić na początku kodu? [syntax=vbscript]Rows(Target.Row).Copy Sheets("Inny").Cells(nw, 1)[/syntax] Czy tutaj zamiast "Inny" ma być nazwa arkusza czyli Venture Capital i ma to być powtórzone dla wszystkich trzech arkuszy (z wyjątkiem arkusza "All")?
Nawet nie czyści swojego arkusza tylko codziennie wrzucany jest nowy plik na którym pracują pracownicy, a ten na którym pracowali np. wczoraj jest przeze mnie przenoszony do innego folderu do beckupu.
Oczywiście że jest... Zidentyfikuj sobie jakoś wózki (nie wiem, albo nr, albo coś innego), zrób makro i po krzyku...
Nie jestem pewny, czy Koledze o to chodzi, ale poniższy przykład możesz sobie przerobić: [syntax=vb]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\,...
Jestem coraz bliżej, ale nie chodzi o spełnienie trzech warunków jednocześnie, tylko dla każdego z zakresów oddzielnie czyli dla A2:E4 jeśli w kolumnie C występuje pusta komórka to pomijam wiersz w tym zakresie. Czyli w załączonym pliku interesuje mnie zawartość do wiersza 240. Chyba że można to zrobić w inny sposób tak aby w pliku wynikowym nie było...
Domyślam że kolega pyta o te dane: 2017-10-2019-10-201718-10-2017 (dane z pliku BAZA), , to są daty które należy wstawić w odpowiednie miejsca w arkuszu Excela. Pliki exela są już utworzone, tylko trzeba w nie wstawić dane. Kolegi wypowiedz "cechą wspólna jest Poczatek_nazwy na początku nazwy pliku dokonać analogii.." myśle że tak.
Metoda godna polecenia, ale mając małe doświadczenie niewiele to da. Musisz wykonać pętlę po wszystkich wierszach, w której sprawdzisz występowanie w komórce ciągu znaków i jeżeli występuje to kopiujesz wiersz. Jak to zrobić, to już oddzielny problem, ale każde z tych drobnych zadań jest już rozwiązane i opisane wielokrotnie. Sam czasem muszę poszukać...
Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
Cześć, Potrzebuję pomocy w stworzeniu makra, tak, aby z arkusza 1 i 2 po wpisaniu tekstu zaczynając od komórek F3 (w obu arkuszach) i warunku zaznaczenia znaku "x" w kolumnie I, test przekopiował się do arkusza 3, poczawszy od komówki B13 i kopiując się do kolejnych poniższych wolnych komórek. Czyli chcę, żeby kopiował mi się tylko tekst z arkuszy 1...
Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...
Dziekuję Marku. Po małej zmianie działa poprawnie, tak jak miało działać. Datę z z pola F9 odczytywało jako formułę gdyż takowa tam jest i miałem błąd. Poza tym wszystko działa bez zarzutu. Pozdrawiam. P.S. W razie potrzeby mogę przesunąć arkusz roczny do odpowiedniej daty jeśli aż tak bardzo chcecie. :)
Witam, byłbym wdzięczny za pomoc. Potrzebuję makro, które pomogło by w poniższym opisie. W arkuszu Arkusz1 jest całość artykułów widniejących w systemie ( ok. 40 tys ). Do arkusza Arkusz2 będę wklejał dane artykułów, które będę kontrolował pod kątem jakości. Plik powinien szukać identycznych artykułów w kolumnie D w arkuszu Arkusz2 z tymi z arkusza...
Witam. W"arkusz2" w wierszu 2 (w zakresie komórek A2 do Y2) zawsze będę miała dane(za pomocą funkcji pobieram dane z "arkusz1" za pomocą funkcji) i chciała bym je skopiować zawsze do "arkusz3" zawsze do pustego wiersza, zaczynając od wiersza nr 2(przedział komórek A2:Y2 i wierszy będzie około 800) Exel 2013.
Witam wszystkich . Otóż mam problem następujący potrzebuje makro ,które sortowałoby wyszukane rekordy po nazwie i kopiowało do innego arkusza , najlepiej żeby było z oknem do wpisania tego co jest potrzebne. Nie zawracałbym tym głowy gdybym miał chociaż elementarną wiedzę. Niestety jestem totalnym laikiem w tej kwestii a znajomość excella mam podstawową....
Witam! Może ktoś pomoże. Problem jest nastepujący: W arkuszu1 mam dane: Kolumna A ( np: 20 nazwisk), kolumnach B,C,D dane handlowe dotyczące tych 20 ludzi. Codziennie wpływają nowe dane. Nastepne arkusze 2,3...21 nazywam nazwiskami tych handlowców, w których mam już skopiowane dane z poprzednich dni. Kopiowanie odbywa sie recznie.To jest:Kopiowanie...
Witam, Mam problem z edycją Makra (poskładanego z kilku znalezionych, nieco edytowane). Makro tworzy już dodatkowe arkusze zmieniając ich nazwę. Wybiera i zapisuje dane od 2 wiersza w nowych arkuszach. Chciałbym jednak by zaciągał również pierwszy wiersz z arkusza "OPIS" jako nagłówek. Zależy mi również na tym, by automatycznie edytował również szerokość...
Napisałem takie dwa makra: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę to poprawić.- arnoldziq
Witam. Mam arkusz "obliczenia" w którym są dane liczbowe i puste komórki. Zależało by mi aby makro działało w następujący sposób: 1. po pojawieniu danych w tym arkuszu "obliczenia" makro samo się uruchamiało. 2. Chciałbym aby kopiowały się te dane, które są większe od zera( dokładniej nie kopiowało pustych komórek). Dane są od komórki F4. 3. makro...
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Cześć, Mam 3 stałe arkusze o nazwach: "Arkusz1", "FILTR" i "Lista" oraz wiele innych, których liczba jest zmienna. Chce aby z każdego innego arkusza pobierało dane z komórki H2 i wklejało do stałego arkusza "FILTR", jedno pod drugim, w kolumnie A(najlepiej licząc od 2 rzędu). Problem w kodzie: dane kopiowane z wszystkich 'innych' arkuszy są kopiowane...
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
Witam, mam problem z ustawieniem automatycznego kopiowania zawartości komórki jednego arkusza do innego arkusza tzn. przenosi mi jej zawartość ale bez komentarza który mam tam dodany w komórce A1 w arkuszu2 arkusz2 użyłem funkcji: ='arkusz1'!A1 kopiuje mi bardzo ładnie całą zawartość ale niestety bez komentarz proszę o pomoc
Rozumiem, że chcesz to zrobić tekstowo :D No więc tak: Otwierasz nowy dokument (tutaj jest akurat LibreOffice , ale może MSOffice,OpenOffice lub inny)Klikasz na mały biały prostokącik (Rys,Lekcja1) zaznaczony jako (1).Wszystkie komórki podświetlą ci się na niebiesko.Wybierasz później Format (2) i w nowo otwartym oknie wybierasz Godzina (3) i na końcu...
Witam Proszę o pomoc. Potrzebuję proste makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do innego arkusza. Chciałbym żeby to wyglądało tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania", podaje np wiersz nr 5 i wtedy komórka np A5 B5 D5 G5 z arkusza1 są kopiowane do komórek odpowiednio A1 A2 A3 A4 arkusza2. Nie znalazłem...
Siedzę ponad 2 godziny i nie mogę znaleźć makra, które by kopiowało plik Excela do innego pliku bez otwierania tego pierwszego. z arkusza1 do arkusza2.z zakresu A1:d1000 do zakresu A2:b1001. Taka prosta rzecz by się wydawało ale nie ma :cry: ściezka C:\Users\Robson\Pulpit\dane\dane.xlsx do C:\Users\Robson\Pulpit\dane\dane1.xlsm
Rip9911 , wyjaśnij dokładniej o co Ci chodzi i dołącz przykładowy plik. Co ma się stać z tymi skopiowanymi komórkami? Czy chodzi o to, żeby je skopiować i wkleić do innego arkusza zachowując ten sam układ? W załączniku rozwiązanie podobnego problemu za pomocą makra (kopiowanie z Arkusza1 do Arkusza2). Jeśli wszystkie dane są w jednej kolumnie i chodzi...
Witam, Jestem początkujący jeżeli chodzi o programowanie makra i utknąłem w martwym punkcie. Posiadam skoroszyty z danymi z poszczególnych miesięcy, które na koniec każdego okresu muszę wgrać do innego(zbiorczego) skoroszytu z którego wyciągam interesujące mnie dane z kilku lat. Udało mi się ogarnąć temat do momentu wklejenia danych do finalnego zestawienia...
Dzień Dobry, potrzebuję Państwa pomocy. Jestem początkującym użytkownikiem języka VBA. Ciągle czytam tutoriale, poradniki fora, a nawet filmiki na YT. W końcu przyszło mi się zmierzyć z Makrem trudniejszym. Przynajmniej tak mi się wydaje. Do rzeczy. Mamy tabelę o zawsze stałej szerokości i nieokreślonej ilości wierszy. Potrzebuję z nieokreślonej ilości...
Witam, Nie mogę sobie poradzić z problematycznie nazwanym arkuszem. Otóż wyciągam dane z pliku A i kopiuje je do pliku B. Problem polega na tym, że jeden z arkuszy ma nazwę z literą "è" a muszę wykorzystać przypisanie: set ab = b.sheets(xxx) - i tu w miejscu xxx powinna być nazwa tego arkusza. w VBA nie mogę wpisać tego znaku, bo wyskakuje "?"....
Witam forumowiczów! :) Mam następujący problem, chciałbym zautomatyzować proces kopiowania nazwisk i dodawania odwołań(nie programowałem nigdy w VBA i wiem że mozna to zrobic hiperlinkiem i własnie tu mam problem), kopiowanie juz zrobiłem, chodzi o to że w jednym arkuszu będe miał baze nazwisk i po wprowadzeniu ich i kliknięciu copy chciałbym przeniesc...
Witam serdecznie, potrzebuje pomocy w stworzeniu makra służącemu skopiowaniu określonego zakresu komórek (zawsze inny) w jednym arkuszu i specjalnego wklejenia (jako zdjęcie)do drugiego arkusza. Zdjęcia będą trzy ( z trzech różnych arkuszy) zawsze zakres zaznaczonych i kopiowanych komórek zawierał będzie się od komórki A1 do komórki o wartości słowo...
Ok Działa, ale nie przenosi do innego arkusz. Ponadto kopiuje tylko wiersz A2 i to jest dziwne bo w kodzie jest umieszczony zakres od A2 do U3. Nie wiem czym to jest spowodowane. To może tak, zarejestrowałem nowe makro: Sub kopiowanie() ' ' kopiowanie Makro ' ' ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:U2").Select Selection.Copy...
Witam, próbuję napisać makro które, będzie kopiowało na raz z kilku arkuszy dane do jednego. Obecnie wkleja mi się nazmiane raz z jednego a później pyta o zezwolenie na wklejenie nowych danych z innego arkusza. A potrzebuję aby dane były jedne pod drugim i aby się sortowały po nazwisku. Próbowałam z pętlą ale przeładowywało się i plik się wyłączał....
Witam, mam pewien problem z kopiowaniem komórek do innego arkusza. Plik załączam do postu. Mam 5 arkuszy z nazwiskami i zarobkami pracowników. Każdy arkusz odpowiada kolejnemu miesiącowi. Potrzebuje przenieść do arkusza wynikowego każdego pracownika, z tym że każda osoba (identyfikowana po numerze ewidencyjnym) powinna mieć w arkuszu wynikowym skopiowane...
Mam taki sobie kod: Select Case Target Case "A": Sheets("Arkusz2").Range(Target.Address).... 1) = "8" Case "B": Sheets("Arkusz2").Range(Target.Address).... 1) = "16" End Select Funkcja kopiuje, zmienia i przenosi dane do innego arkusza. Mnie chodzi o to aby dane trafiały do innego arkusza co drugą linię tzn.: Arkusz1 A1 > Arkusz2 A4 Arkusz1...
Witajcie, Mam taki przykład. Handlowcy, region, punkty. Potrzebuję aby z arkusza "dane" kopiowały się wiersze w zależności od regionu. Tj wszyscy handlowcy z południa do arkusza "południe", ci we wschodu do "wschód" itd. Mam takie makro. Sub CopyWhenConditionMet() a = Worksheets("dane").Cells(Rows.Count, 6).End(xlUp).Row For i = 2 To a If Worksheets("dane").Cells(i,...
Dzień dobry, Mam problem, który przy Waszej pomocy być może znajdzie szczęśliwy finał. Otóż przez 3 noce staram się rozwiązać problem, który na tym forum dość często się przewijał. Przeczytałem wszystkie wskazówki w pokrewnych wątkach, ale nie ogarniam już kodu i w zasadzie cofam się zamiast iść do przodu. 1. Mam w Excelu (2003) dwa pliki zawierające...
To mój pierwszy post, więc proszę o wyrozumiałość. Mój problem polega na tym, że muszę skopiować tabelę od określonej wartości tzn. po wpisaniu jakiejś wartości fukcja wyszukuje ją w tablicy, a po znalezieniu kopiuje od znalezionej wartości pozostałą część kolumny i przenosi do innego arkusza. Problem jest generalnie inny, a mianowicie: tabela zawiera...
Witam Załączyłem dwa pliki. Po pierwsze chcę aby dane z pliku Zeszyt1 z kolumny od B do E począwszy od wiersza 10 do 1000 zostały skopiowane do pliku Zeszyt2 (Arkusz1) do kolumn od B do E, począwszy od wiersza 2. Następnie po skopiowaniu danych, dzięki użytej formule na rozpoznanie krajów, w tym samym arkuszu pojawią się wyniki (kolumna K i L wiersze...
Cześć, Szukałem wiele na forum i w necie ale nie mogę znaleźć odpowiedniego rozwiązania. Chodzi mi o stworzenie makra które ułatwiało by mi pracę. W arkuszu1 mam dane wyjściowe w pięciu kolumnach i chce kopiować dane przefiltrowane wg. np. kolumny czwartej do nowych arkuszy. Daję przykład i jak to ma wyglądać. Może ktoś miał podobny problem i udało...
Witam, potrzebuję makro, które sprawdzałoby komórkę, w której jest wpisana data i kopiowała inną w tym samym wierszu, w której znajduje się jakaś wartość. Chodzi o to, żeby użytkownik zaznaczył/wpisał datę, albo zakres od jakiegoś dnia do innego - wtedy makro sprawdzałoby czy w kolumnie B znajdują się takie daty, jeśli tak, to wartość z kolumny G w...
Dziękuję za pomoc. Problem rozwiązałem w ten sposób, że Twój plik z makrem zastosowałem jako taki szablon, do którego będę kopiować zbiorczo arkusze z innego skoroszytu i dopiero wtedy zostaną prawidłowo rozdzielone do odrębnych plików z nazwą arkusza. Jeszcze raz serdecznie dziękuję.
Witam, Czy jest możliwość wklejenia obszaru komórek tak, aby wklejony obszar nie zastępował już istniejącego lecz tworzył nowe wiersze? Mam listę indeksów porządkowych (np. od 1 do 100, choć w moim przypadku sa to inne oznaczenia). Po każdej komórce z liczbą jest wolna komórka. W tę wolną komórkę muszę wkleić obszar komórek z innego arkusza. Obszary...
Cześć, mam taki problem. Chciałabym zarejestrować makro, które będzie kopiowało komórkę i przenosiło do innego arkusza. Jednak wartości tej komórki będą się zmieniać, a jak rejestruje zwyczajnie kopiując i wklejając, to potem makro wkleja mi tę wartość, którą skopiowałam przy rejestracji, zamiast nowej, która pojawiła się w tej komórce kopiowanej. Proszę...
Witam! Tworzę dokument w OpenOffice Calc w którym po naciśnięciu przycisku tworzy mi się nowy arkusz, który jest kopią innego arkusza... Zrobiłem to poprzez nagranie makra... sub kopiuj_arkusz2 rem ----------------------------------------... rem define variables dim document as object dim dispatcher as object rem ----------------------------------------...
Kolego ten twój cały kod można skrócić do ps. jak co to na dziś już kończe :) Dzięki wielki. Makro działa super. Te makro, które napisałeś trochę przerobiłem, bo chodzi o to, że okazało się, że dane muszą być przeniesione do innego arkusza. Po poprawkach wygląda to j.n. Czy tu coś też da się uprościć? Sub wstawianie_bezduplikatów() With Sheets("IL")...
Ok, super dzieki. działa Ale chciałbym dodatkowo aby wszystko co ma Tak oraz wszystko inne niz kk kopiowało do innego arkusza na takiej samej zasadzie jak wczesniej. zrobiłem cos takiego Dim kom2 As Range, i2 As Integer, ostWrs2 As Long ostWrs2 = Sheets("sztanca_sanwa")... + 1 For...
Witam, dopiero zaczynam swoją przygodę z VBA. Potrzebuję podpiąć pod przycisk funkcjonalność, która będzie kopiowała dane z jednego skoroszytu i wklejała go do innego. Obecnie udało mi się stworzyć kawałek kodu, który to robi ale mam problem z formatowaniem. Private Sub cbImportModelu_Click() Workbooks.Open Filename:=tbLokalizacjaPliku (użytkownik wprowadza...
chodzi mi chyba o coś innego. chciałbym aby formuły które mam w pliku wynikowym "czerpały dane" nie z arkuszy w tym samym pliku (arkusze kopiowanie z innych plików) ale bezpośrednio z innych plików. Wiem, że w formule mogę wpisać skąd ma czerpać dane ale problem w tym że co miesiąc pliki z danymi inaczej się nazywają i inaczej nazywają się arkusze w...
Witam! Przeszukałem forum, zastosowałem kilka zapisanych tutaj makr, ale niestety żadne nie odpowiada mi w 100% dlatego proszę o pomoc. Problem: Mam skoroszyt, w którym chce podsumować dane z innego skoroszytu, który ma kilkadziesiąt arkuszy. Chciałbym, aby makro przechodziło pomiędzy arkuszami i kopiowało odpowiednie komórki. Z jednej komórki pobrało...
Witam, Próbuję napisać swoje pierwsze MAKRO w VBA i ugrzązłem w połowie pracy. Dlatego też proszę o pomoc w celu naprowadzenia na rozwiązanie problemu. Celem programu jest przetwarzanie danych z jednego skoroszytu i zapisywanie ich w drugim. Na dane składają się uszeregowane w interwałach miesięcznych dane spółek notowanych na GPW z uwzględnieniem kryterium...
hey dałem sobie rade troche w inny sposób [syntax=vb]Sub kopiowanie() ' ' kopiowanie Makro ' Windows("pierwszy.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode = False Selection.Copy Windows("KW 47 Zestawienie zbiorcze.xlsm").Activate Range("A1").Select ActiveSheet.Paste Windows("drugi.xlsx").Activate Range("A3:Q10").Select Application.CutCopyMode...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Hey Proszę o pomoc lub poradę co jest nie tak. Mam na dysku arkusz do którego poprzez makro lądują dane ( tylko do pierwszego wiersza (A1:X1) . Każdy nowy zestaw danych leci do osobnego arkusza w tym skoroszycie teraz mam ( 480 arkuszy ). Inny arkusz kopiuje te wiersze wkleja jeden pod drugim. Czyli po skopiowaniu powinienem mieć 480 wierszy pluj wiersz...
Podsumujmy: 1a. Czy powyższy kod ma kopiować do arkusza "Zbiorczo" ostatni wiersz z innych kopiowanych arkuszy, 1b. Czy też powyższy kod ma kopiować do arkusza "Zbiorczo" wszystko (jakaś tabela, zakres komórek, itd.) z innych kopiowanych arkuszy, ale robi to pomijając ostatni wiersz Pytanie: Z jakich arkuszy i skąd one są kopiowane - z jakiegoś innego...
Hej, zwracam honor i już dodaje spakowany plik. Odnośnie "bazy danych" - dlaczego to nienajlepszy pomysł? Plik docelowo w mojej głowie robi raport z np. 2 miesięcy, a każdy kolejny dzień jest tabelką niżej - codziennie wartości wpisywane w te kolumny się różnią, a potrzebne są do rozplanowania zmiany. Wcześniej miałem ten plik z macro, które kopiowało...
Hej, Mam 2 arkusze, w 1-generuje się raport pozycji na podstawie innego makra, w 2-uzyskany raport 1 ma zostać przeniesiony do ostatniego wiersza, niezapisanego i stworzyć 1 wspólną listę, poszperałam tu na forum i znalazłam makro, dopisałam jeszcze, by przed kopiowaniem wyfiltrował wartości puste i kopiował bez nich. Makro to działa, ale w związku...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
Witam mam problem. Napisalem makro ktore z jednego arkusza Dane1 kopiuje mi dane do odpowiednich kolumn w arkuszu Sheet i automatycznie numeruje. Chcialbym stworzyc kilka arkuszy z identycznymi polami jak w arkuszu Dane2, lecz z innymi wartościami, i teraz chodzi mi o to , ze jak przekopiuje mi dane z arkusza Dane2 do Sheet, to będe mogł rownież skopiować...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
Sory że tyle pytań ale łatwiej od razu wiedzieć o co chodzi niż napisać kod a potem go przerabiać "paręnaście" razy bo autorowi nie o to chodziło. Jeszcze "jedno" pytanie: Czy pod przyciskiem aktualizuj plik ma tworzyć/sprawdzać od początku wszystkie umowy w arkuszu ogólnym i ewentualnie korygować je w poszczególnych arkuszach? Czy tylko ma złapać ostatni...
Ok. Rzeczywiscie jest to dobre rozwiązanie,. Postanowiłem jednak pogłowić się nad makrem, bo arkuszy jest sporo. Sub xxx() ' ' xxx Makro ' ' Range("I63").Select ActiveCell.FormulaR1C1 = "='[2012 rozliczenia.xls]Wrzesień'!R30C42&quo... Range("I70").Select ActiveCell.FormulaR1C1 = "='[2012...
Witam, Mam problem z makrem które zaimportuje mi dane z wielu dokumentów .xls z zakresu powiedzmy ("A1:Z99"). Wszystkie te pliki Excela znajdują się w folderze D:\Dane. Zakres kopiowany z każdego arkusza ma być wklejany do aktywnego dokumentu .xls jeden pod drugim. Na sam koniec usunięte zostają puste wiersze i ustawiona zostaje czcionka Arial 12. Drugi...
Dziękuję za makro działa bardzo dobrze wymaga jednak małej poprawki. Skoroszyt w którym je zamiesciłem oprócz danych odnośnie towaru w poszczególnych sklepach posiada również inne arkusze dotyczące finansów itd. Po kliknięciu w którykolwiek arkusz makro zaczyna szukać odpowiednich danych. Jeśli klikniemy w sklep, nie ma problemu pobierają się dane....
Witam jeszcze raz, Przy kopiowaniu trzeba pamiętać o rodzajach adresów: względnych (bez $) i absolutnych (z $). Jeśli tworzy Pan odwołanie lokalnie (w tym samym arkuszu) jest ono domyślnie względne (bez $), a jeśli odwołanie zewnętrzne (do innego arkusza) jest ono domyślnie absolutne (z $). Charakter odwołania można zmodyfikować ręcznie (zwykła edycja)...
LISTY - to je nazwa arkuszu w pliku Źródłowym? w pliku użytkownika jest ten arkusz? C$2 - to adresacie "absoljutna" w czesti wersz... Przepraszam za złe gramatyki - piszem po perwsze bez tlumocznika Dodano po 6 kopiuje kilka minut jeden plik - to poprzez link do innego pliku Myślę, że trzeba przerobić furmuly... Dodano po 6 przed pierwszym wierszem...
1. Następnym razem rozpocznij nowy wątek. 2. jak już makro zadziała, to dane się kopiują Jakim cudem? Kolejność działań: 1. Open (po otwarciu skoroszyt jest aktywny) 2. Wybranie arkusza - Sheets().Select 3. Kopiowanie - Range().Copy 4. Wybranie skoroszytu docelowego - Workbooks().Activate 5. Wybór arkusza docelowego - Sheets().Select 6. Wybór lewej,...
czołem, sprawę rozwiązałem zupełnie inaczej. Skorzystałem z makra które kopiuje wszystkie wartości do innego arkusza ( same czyste dane ) a później z nich za pomocą tego co napisałem wcześniej. Plik zmnieszył swoją wagę i działa całość o wiele szybciej :)
Dzień dobry, Trochę mnie to zadanie przerasta, trzeba by poprosić o pomoc kogoś, kto jest biegły w makrach w Wordzie, ja trochę znam się na Excelu, ale jedyne co tu mi przychodzi do głowy to grupowanie arkuszy w Excelu. Zamiast odznaczać komórki "ptaszkiem" można wziąć drugi arkusz i zgrupować go z tym pierwszym. Robi się to klikając zakładki tych arkuszy...
Zobacz, jak źle jest, kiedy po raz pierwszy nie dokładnie opisać wszystko sytuacji. do innego skoroszytu, ale do arkusza o tej samej nazwie. Arkuszy jest około 100 - 150 I tak dla każdego arkusza. mam tych plików od 43_01 do 43_13. 43.01 czy 43_01 ? Jeśli wiadomo było od początku, wszystko byłoby znacznie więcej [syntax=vb] Sub myCopy() Dim wb As Workbook,...
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Witam. Przepraszam, że dopiero teraz odpisuje. W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". Przepraszam napisałem osiem, a jest 6 komórek, bo dwie pozostałe wsiągają dane z którejś tych 6. Przepraszam za swój błąd. Makro które kolega utworzył, jest ok, są tylko dwa błędy(może za duże słowo) wg mnie. Tak utworzone...
Witam, mam za zadanie jak najszybsze skopiowanie z kilkunastu arkuszy jednego pliku excela do jednego arkusza innego (nowo utworzonego) pliku excela. Używam metody Zrodla = Split("A1,A2,...,V2:W2", ",") Cele = Split("C9,C10,...,L103", ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)...
Jeśli to sam sporządziłeś ten kod makra i masz wolę go usprawnić - to proponuję nauczyć się przede wszystkim tzw debugowania skryptów - zakładka deweloper :arrow: makra :arrow: wkrocz :arrow: i dalej przez F8 krok po kroku analizujesz co robi (lub nie robi :D ) Twój skrypt (makro). po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się...
Miałem podobny problem i polecam sprawdzony sposób: Szybka instrukcja jak przenieść dane z FitFaktura do innego programu: 1 uruchamiamy program FitFaktura 2 w menu górnym klikamy na Ustawienia/Kontrahentów/ otworzy się okno 3 w lewym menu zaznaczamy co chcemy przenieść do arkusza np. kod, miasto, poczta itp. 4 zapisz 5 otwórz zakładkę z kontrahentami...
Nie wszystko jest ok. Tylko z tym kopiowaniem w arkuszu kalkulacyjnym jest problem. Program się zacina na kilka chwil i nic nie można w nim zrobić. W tym czasie można się przełączyć np na okienko przeglądarki lub inny program.
Witam Mam pewien problem, a mianowicie na FTP sieciowych mam arkusze excelowe wzbogacone o makra które kopiują i wklejają dane z tabeli do tabeli w innym arkuszu tgz. głównym. Bo zapisie makro zapisuje i zamyka obydwa arkuszę, jednak zdarza się sytuacja że inny użytkownik może przeglądać arkusz główny i mieć go odpalonego w tym czasie przy próbie zapisu...
Zaznaczanie i kopiowanie dynamicznego zakresu kolumn A w treści piszesz o wierszach ... Jednak proszę o pomoc w modyfikacji tego kodu aby spełniał warunki opisane powyżej Załączyłeś ... dopiero później ... Udało mi się znaleźć i zmodyfikować kod, który zaznacza zakres tabeli Kod, który załączyłeś tyczy się zupełnie czegoś innego ... (at)Prot zamiast...
Znalazłam taki kod. [syntax=vbnet]Sub ImportDatafromcloseworkbook() 'Update 20150707 Dim xWb As Workbook Dim xAddWb As Workbook Dim xRng1 As Range Dim xRng2 As Range Set xWb = Application.ActiveWorkbook xTitleId = "KutoolsforExcel" With Application.FileDialog(msoFileDialogOpen... .Filters.Clear .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa" .AllowMultiSelect...
Witam, potrzebuje uzyskać kod vba, kopiujący dane z arkusza roboczego, do innego pliku excel (Baza). Przykładowo" Kopiowanie zakresu od A4:K4" z arkusza roboczego , do pliku excel (BAZA) , ścieżka C:\Users\_______\Dropbox\Logistyka]"BAZA... Kopiowanie według wolnych wierszy w pliku BAZA. Dziekuje.
Witam Potrzebuje napisac makro, ktore skopiuje kolumne z arkusza A do arkusza B po napotkaniu okreslonego slowa np stop, koniec itp... w kolumnie A przerywa zaznaczanie i wkleja w inna kolumne wartosci do slowa stop, koniec... Nie ma znaczenia czy bedzie to ten sam arkusz czy inny. Potrafie zrobic makro, ktore bedzie zliczalo ilosc wierszy do skopiowania,...
Tak jak napisałam, chodzi mi o przyspieszenie kopiowania arkuszy i wklejania do innego skoroszytu. Chcę całkowicie z klawiatury wywołać polecenie "Przenieś lub kopiuj" arkusz. Przechodzenie pomiędzy arkuszami to elementarz ;-)
Ktoś mógłby pomóc? Ok, to tylko wyjaśnij: - skąd będziesz kopiował ? czy na pewno z tego arkusza Raport gdzie są przyciski ? - gdzie chcesz wklejać te dane ? gdzie jest słownik wiążący używane kody i zupełnie inne nazwy arkuszy ? skąd makro :D ma wiedzieć gdzie Ty masz ochotę wkleić aktualne dane ? - jakie jeszcze niespodzianki przygotowałeś dla osób...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Trochę i ja się uczę VBA wraz z autorem (i nie nadążam odpowiadać - co prawda nie śledzę non stop) ale... Jeżeli chcesz przypisać adres komórki do zmiennej to musisz to zrobić inaczej: cel = ActiveCell.Address Value to wartość Później możesz skorzystać z Range(cel).Select ActiveSheet.Paste Druga rzecz: Z tą formułą jest odwrotnie (przynajmniej...
Witam, A próbowałeś nagrać makro, a potem podpatrzeć kod który się wygenrował (ALT+F11) ? :) Przeniesienie arkuszy do innego pliku masz jak klikniesz na zakładkach (akrusz1 i arkusz2) prawym przyciskiem i wybierzesz przenieś.
Jeszcze raz dzięki, co do nagłówka już sobie poradziłam (poniżej kod - dla zainteresowanych). Private Sub Dzielenie_Click() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnStart As Range Dim rnData As Range Dim i As Long Application.ScreenUpdating = False On Error GoTo myErr Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Prowizja&quo...
Witam Prosiłbym o pomoc w znalezieniu odpowiedniej formuły ewentualnie stworzenie makra w celu wykonania następującej czynności: W zeszycie znajduje się 12 arkuszy (dla każdego miesiąca) - arkusze tylko do odczytu. W komórkach znajdują się formuły obliczające dane pobierane z jednego arkusza w którym znajdują się STAŁE dane, oraz dane wpisywane w kolejnych...
Nie wiem co rozumiesz przez "proces powtarzający się"... Masz na myśli że będzie w pętli?? Kod który Ci podałem nadaje się do tego co chcesz zrobić, wystarczy mała przeróbka np. For w = 1 to 100 'pętla w arkuszu źródłowym 'znajduje pierwszą pustą komórkę w arkuszu docelowym wiersz = Workbooks("cel.xls").W...
Wszystko się zgadza Marek. To co zamieściłem na stronie nie było dobrze zrobione i zwielokrotniało wynik. W zrobionym na gotowo arkuszu napramwiłem błędy. Dla każdej linni poszukiwanych danych dodałem dwie dotatkowe kolumny tak jak to zrobił adams aby silnik obliczeń był inny i nie robił zwielokrotnień wyników. Wprowadzanie paszy z ręki ma sens z kilku...
To nie idąc na łatwiznę, w ramach nauki, algorytm powinien wyglądać następująco: • ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E • w pętli przechodzisz poszczególne wiersze w kolumnie E porównując czy wartość w komórce jest zgodna z szukanym wzorcem np. "WSTRZYMANY" • jeżeli nie jest...
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 gdzieś zaginęło zdjęcie :) Dodano po 4 Dodano po 17 Mam nadzieję, że nie nadużywam cierpliwości. Kod wygląda tak: Sub NazwaMakro() Sheets("Arkusz1").Activate ActiveSheet.Range("C1:C12").Select...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Witam, mam problem tworze etykiety w Excelu i mam taki problem w jednym arkuszu mam dane do etykiet w drugim projekt etykiety, do komórki a5 przypisana mam wartość z arkusza 1 np a1, jak sprawnie się za to zabrać, by poprzez przeciąganie moich etykiet (kopiowanie) dane były pobierane kolejno a nie tak jak jest teraz co piąta komórka? nie wiem czy dobrze...
Witam , Tworzę makro które kopiuje unikalne dane z Kolumny A od komórki A3 (w komórce A2 są nagłówki) i wkleja w nowo stworzonym arkuszu. Jednak Problem się zaczyna gdy chce skopiować do każdego z tych arkuszy nazwy z wiersza pierwszego (A1:A11) wkleja w nowo powstałym arkuszu tylko komórkę A1 a cała tabela się rozjeżdża . Oto kod: [syntax=vb]Sub Copy_To_WorkbooksB()...
Utworzyłem makro które kopiuje zakres danych z jednego skoroszytu "Dane" do drugiego "GOW" w pierwszy wolny wiersz kolumny B arkusza "GO1" i "GO2" Niestety formuła nie jest idealna, widzi wstawioną tabelę w arkuszach "GO1" i "GO2" jako zajęty wiersz i wkleja wszystkie dane pod tabelą. Właściwe działanie jakie powinna wykonać formuła to wklejenie zakresu...
Witam, Posiadam w pracy pewien program zakładowy do którego muszę wklepywać numery zamówień. Jest to trochę męczące zajęcie, ponieważ na dzień mam 150 pozycji do wpisania a właściwie przepisania z arkusza w excelu. Każdy numer muszę przepisac lub wkleić osobno. Każdy numer zamówienia mam w osobnym wierszu, dlatego po kolei kopiuje sobie komórkę i wklejam...
Witam. Mam następujący problem. W excelu mam wykonaną tabelkę w której każda komórka powstało ze scalenia 5 kolumn. Kopiując dane z powiedzmy 3 tych komórek i wklejając je do innego arkusza, kopiowane są te scalone komórki z danymi a nie same dane które w nich są. Chciałbym aby po skopiowaniu do innego arkusza te dane były po prostu klejone do 3 zwykłych...
Dzień dobry, Do czego tu jest potrzebne makro? Jak miałby wyglądać zakres po skopiowaniu? Czy chodzi o to, aby pominąć komórki zawierające 0, ewentualnie liczby ujemne, chociaż w przykładzie ich nie ma? Czy taka tabelka jak w przykładzie byłaby jedna, czy byłoby ich kilka? Czy zawsze w tym samym miejscu, czy w różnych miejscach? Czy oprócz takiej tabelki...
Witam, Mam problem, mianowicie nie wiem co zrobić by dane, które mogę wybrać w comboboxie zostały wyświetlone w innym arkuszu. Stworzyłem bazę klientów, którą sam dodaje ręcznie. Po czym jeśli chcę wybrać danego klienta wpisuje jego numer dowodu i zostaje przekierowany do comboboxa w którym mogę wybrać model i markę samochodu. Po zatwierdzeniu ma mi...
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
Aby coś takiego zadziałało "samo" - potrzeba makra. Ale jest inne rozwiązanie (ja je zastosowałem u mnie w pracy). Nie wiem czy u ciebie da się zastosować. Taki arkusz - szablon (u mnie nazwany "czystym") ma jeszcze jeden arkusz z nazwą "kalendarz". Są w nim (oprócz sobót i niedziel) automatyczne wyliczenia świąt itd. i poprzez zaznaczenie danego miesiąca...
Moje rozwiązanie - nieco inne, aby wygenerować zawartość drugiego arkusza ("Zamowienie") trzeba uruchomić Makro. [syntax=vb]Sub Makro1() ' ' Const R1 = "A1" ' pierwsza komórka nagłówka tabeli Const W = 6 ' szerokość tabeli Const Q = 5 ' kolumna z ilością produktów Const FixLP = True ' ustawić False jeśli ma kopiować LP z produktu Dim OF As Integer OF...
Witam Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
Witaj do komórek o zakresie(b4:b4016;M4:4016) Kopiowanie "Robert","Asia","Mirek" na inny arkusz lub jeden? bez otwierania zeszytów Wskazane jest, aby otworzyć, ale... Pokaż układ arkuszy.
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
Hey Proszę o pomoc/poradę. Mam takie makro i z racji tego że musi skopiować sporą ilość komórek to bardzo długo „mieli”. Pytanie czy można jakoś usprawnić kod żeby czas trwania był krótszy ? Albo poradzicie jakieś inne makro bo problem jest taki że dane z komórki B33,B34,B35 do B191 muszę skopiować do odpowiednich komórek scalonych i np.:...
potrzebuję każdy wodomierz rozpisać oddzielnie i nie łączyć ciepłej wody w kuchni z ciepłej wody w łazience. Musi być każdy osobno. Kobitki, to takie marudy są odrobinę ... :| ... "Ułatwianie sobie życia" - dodać jedną kolumnę w arkuszu ''Arkusz1'' na "indeks" wylistowujący "adreso-wskazania" wodomierzy, np. w kolumnie ''E'' - i tak przecież są tam...
Witam. W arkuszu o nazwie "listaform" posiadam tabele Numer Formy, Nazwa Części, Numer Części, Klient I teraz pytanie, jak zrobić żeby w innym arkuszu automatycznie mi sortowało "formy" po klientach ? Tak że jak dopiszę w arkuszu "listaform" nową pozycję automatycznie mi ją doda i posortuje w tym drugim arkuszu Żeby tak to mniej wiecej wyglądało jak...
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...
Najlepiej do takich zadań nadaje się tabela przestawna, musiałbyś mieć tylko trochę inaczej zorganizowane dane w pierwszej tabeli, tzn. używać jednej nazwy miasta - bez dopisków: w efekcie, bez potrzeby korzystania z tabeli pośredniej, otrzymasz: Nie wiem tylko czy dokładnie o to chodziło, bo widzę kolumnę z podatkiem (nie bardzo rozumiem, czemu inny...
Dzień dobry. Jak powinien wyglądać kod, który kopiował by wiersz z danymi dla określonego warunku. Mam tabele. Kolumny od A do Z. Chciałabym żeby kopiowało mi wszystkie wiersze jeśli w kolumnie E znajduje się słowo wymagane do arkusza 1 od wiersza 3. Pozdrawiam.
W temacie co innego niż w treści ... :) ... ale spróbuj: Moduł 1 [syntax=vba]Sub obraz_wykresu() Sheets("Arkusz1").ChartObjects("Wykres 1").Chart.CopyPicture Appearance:=xlScreen, Format:=xlPicture Sheets("Arkusz2").Select ActiveSheet.Pictures.Paste.Select Selection.Name = "DoWykasowania" Application.EnableEvents = False Range("A1").Select Application.EnableEvents...
Witam Mam arkusz kalkulacyjny excel chroniony hasłem w którym stworzona została tabela do edycji umożliwia użytkownikowi wypełnianie tylko wybranych kolumn, posiada makro które kopiuje całą zawartość do innego arkusza excel, jednak w momencie gdy włączamy edytowanie na komputerze który posiada MS Office 2010 arkusz niestety siada i się zawiesza :/ na...
komórki podświetlają się na czerwono nie tylko te po zmianach :cunning: Przecież wyraźnie pisałem: Jeśli interesuje Cię sporządzanie tylko ukrytej kopii wszystkich edycji w arkuszu Rob - to usuń formatowanie warunkowe , usuń kod Workbook_BeforeClose i wymień kod w arkuszu Rob Przy ukrytej archiwizacji wszystkich edycji - traci sens porównywanie tabeli...
Posiadam taki kod ... tworzy mi się nowy skoroszyt ... To i tak nieźle, że kod działa ... ale chyba tylko dlatego, że nie osiągnął, jak do tej pory, wartości maksymalnych: kodu nie da się czytać w tej formie To fakt ... forma wizualna przypomina raczej histogram postawiony na prawym boku - powinno być raczej coś takiego: (a i tak pewnie będą zastrzeżenia,...
Witam Jestem tu pierwszy raz. Przepraszam za błędy jakie na pewno czynię. Przyjmę wszystkie uwagi. Chodzi mi o taką rzecz. Pobieram dane z innego arkusza1 do arkusza2 poprzez każdorazowe kopiowanie pewnego zakresu danych A2:N35000 z arkusza1 ,który sam sobie wyznaczyłem. Chciałbym nie kopiować danych ,które wcześniej skopiowałem lecz tylko te ,które...
No to mam klopot. To jest dobry wzór. Arkusz opis to ten który ma wyświetlać pojedynczy rekord. Wszystkie pola tożsame z Wydatki ma kopiować
Witam szanownych programistów. Potrzebuję pomocy. Grzebałem na forum tu i gdzie indziej. Ostatecznie to co znalazłem nie przyniosło pożądanego rezultatu. Chodzi mi o stworzenie skryptu, który przeszuka zakres A29:A37 w arkuszu "produkty". Kiedy znajdzie tekst "porzeczka czerwona", to skopiuje tą komórkę do arkusza "oferta" do komórki G20, ale tylko...
Szanowni koledzy mam makro które kopiuje mi całe wiersze wtedy gdy jest spełniony warunek ( makro nie jest napisane przeze mnie a jedynie dostosowane ) działa super ale warunek dotyczy tylko jednej komórki. dopisałem sobie kilka takich samych instrukcji w których tylko zmieniałem komórkę z warunkiem . Dopóki warunków miałem ze 20 to nie szukałem innego...
Cześć, staram się zrobić makro które po skopiowaniu wartości z jednego arkusza do drugiego poza skopiowaniem treści zmieni również kolor czcionki. Makro, które mam: [syntax=vbscript]Sub aaa() Dim Ark As Worksheet Set Ark = ThisWorkbook.Worksheets("1") With Ark If .[A1] = "" Then Sheets("1").Range("B1").Copy Destination:=Sheets("2").Range("C1") Sheets("1").Range("B2").Copy...
Internet najwyraźniej zna ten problem. Ale nie widać by go ktoś rozwiązał. Ja mam dwie sugestie jeszcze: 1. Odinstaluj Office używając tego narzędzia od Microsoft: Zainstaluj Office ponownie. 2. Zainstaluj świeży system i na nim Office. Jak masz możliwość użyj oczywiście innego dysku.
:arrow: tang0 1. Z pewnością zauważyłeś, że warunkiem jest nierówność. 2. Do kopiowania używa się instrukcji Copy 3. Jeśli cały wiersz to Rows(i) Mały przykład kopiowania wierszy pomiędzy arkuszami For i = 1 To 3 'dla 3 wierszy Sheets("Arkusz1").Rows... Sheets("Arkusz2").Rows... Next Z resztą...
A powiedz mi nie łatwiej było by użyć narzędzia wbudowanego w excela: usuń duplikaty (jeżeli dane są niepotrzebne) Właściwe rozwiązanie do wszystkiego innego to: tabela przestawna. Myślę, że to rozwiązało by Twoje zagadnienie. I nie musisz programować, tylko poprzeciągać elementy.
yoł, mam rozwiązanie problemu, genialne !!!! z innego forum, wykonane na moją prośbę, może w trzy dni, polecam: a tu posty o wyszukiwarce: koliber
Moim skromnym zdaniem oba "obejścia" kolegów adamas_nt i marcinj12 działają i rozwiązują problem tylko częściowo. Wiążą się bowiem z jedną konkretną kolumną i działają tylko na jednym arkuszu. Wstawiając w 6-stej kolumnie odwołanie do innego arkusza nie sformatują komórek. Excel wywala się także przy użyciu formuły innej niż rzeczone "=A1". I nie to...
Witam mam taki problem, potrzebuję wygenerować plik .xls z danych w arkuszy który będzie eksportowany do innego programu. Problem w tym ze dane muszą być przenoszone cyklicznie dla każdego z 5 tygodni tzn: musi powstać jedna lista danych która obejmuje parametr DNI dla każdego oddziału i materiału itp. T: 40 41 42 itd.. mat1 10 12 15 itd.. mat2 5 7...
Witam jak w temacie,chcę skopiować komórkę zawierającą formułę i wkleić ją do innego arkusza,zonk chodzi mi tylko o skopiowanie danych z komórki a nie formuły,poradziłem sobie tak ,że ręcznie przepisuje zawartość komórek a potem dopiero przenosze do drugiego arkusza jest prostszy sposób?
Wiecie może jak sprawdzić czy arkusz excel lub jego poszczególne komórki zostały skopiowane z innego arkusza? chodzi mi o walkę z plagiatami? z góry dzięki za info
dziekuje bardzo byliście bardzo pomocni :) ps. nie chodzilo mi o kopiowanie tylko zalaczylem ten prawidlowy formularz zebyscie wiedzieli o co dokladnie mi chodzi ;)
Witam ponownie. Tym razem pominę temat kopiowania wzorów sytemu (ale do tego tematu jeszcze wrócę) a chcę poruszyć temat innego kopiowania. W ostatnim pliku jaki wrzuciłem w dolnych zakładkach są trzy arkusze którymi chciałbym się zająć. Jest tam zakładka o nazwie "Pracownicy". Arkusz ten posiada cztery różne listy pracowników a dokładnie listy dwóch...
dzieki wielkie za pomoc, ale napotkalem kolejny problem. W kolumnach z numerem zlecen jest przenoszony tylko pierwszy wiersz poprawnie. Ciezko jest mi to opisywac bez przykladu, dlatego powiem o co chodzi na konkretnym przykladzie. Dla zlecenia 10z/4/11 nazwa klienta jest wporzadku, natomiast numer zamowienia klienta w kolejnych wierszach sie nie zmienia,...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
W skoroszycie główny.xls dodaję nowy arkusz o nazwie "dane" Jak mam z innego skoroszytu (np.: a.xls) skopiować cały pierwszy arkusz i wkleić jego zawartość do arkusza "dane". Skoroszyt a.xls ma stałą ścieżkę (znajduje się na dysku d:\a.xls), są to dane potrzebne do obliczeń i nie będą przesuwane czy modyfikowane. Znajdują się tam puste komórki więc...
Samo [syntax=vb]If Not Intersect(Target, Range("d1:e2")) Is Nothing Then Sheets("Arkusz1").Range("f5:g6").Value = Sheets("Arkusz1").Range("d1:e2").Value End If[/syntax]działa ja powinno. Możesz dodać Sheets("Arkusz1"). przed Range żeby makro działało też uruchamiane z innego arkusza. Jeżeli coś nie działa, to pewnie problem innej części kodu - po tym...
Witam wszystkich, mam następujący problem. Mam skoroszyt w którym mam pozapisywane dane dotyczące komponentów w module i potrzebuję kopiować to (formuła, makro) do innego skoroszytu na podstawie wpisanego tam do komórki numeru modułu. Najlepiej żeby dało się ręcznie ustalać która komórka gdzie ma się znaleźć. Przykład podałem w pliku z tą różnicą że...
Z wcześniejszego twojego postu: Rozumiem że ma się kopiować w te same wiersze w arkuszu2 (jeżeli od początku [pierwszego wiersza] arkusza 2 to kod będzie trochę inny.) [syntax=vb]Sub cos() Dim x As Integer For x = 12 To 111 If Worksheets("Arkusz1").Cells(x, 16) <> 0 Then Worksheets("Arkusz2").Cells(x, 2) = Worksheets("Arkusz1").Cells(x, 2) Worksheets("Arkusz2").Cells(x,...
Witam! Potrzebuję pomocy przy kopiowaniu danych wyfiltrowanych. A dokładnie jest tak: jest tabela z danymi, z autofiltrem. Po zastosowaniu filtra (wybraniu kilku kryteriów w kilku kolumnach) mam widoczne np. 10 wierszy. Jak w automatyczny sposób skopiować te wyfiltrowane 10 wierszy do innego arkusza? Chodzi mi oczywiście o to, żeby nie robić tego tak,...
Dziękuję za podpowiedź - zadziałało. Przyznam, że próbowałam z "if" i nie działało ... może to kwestia sugestii :) Jakiś pomysł jak dopasować dane z innego arkusza? Może ktoś już to robił i ma gotowe rozwiązanie? Dodano po 50 Czy ktoś wie, jak zmodyfikować ten kod, aby zwrócić do nowego arkusza dane na podstawie dwóch argumentów? Jeśli w arkuszu "AAA"...