[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Ostatni wiersz i ostatnią kolumnę trzeba określić osobno dla każdego arkusza źródłowego. Ale można wykorzystać te same zmienne, bo raz użyte dane nie będą już więcej potrzebne. Coś takiego: [syntax=vbscript]Dim Workbook1 As Workbook Dim lRow As Long Dim lCol As Long With Workbook1 With .Sheets("A") lRow = .Cells(Rows.Count, 1).End.(xlUp).Row lCol =...
Zrozumiałem (w końcu) :) Kłopotem jest tu ilość tych arkuszy Ex1. Żadna formuła z bezpośrednim wskazaniem komórek źródłowych nie wejdzie bo będzie za długa. Prawdę mówiąc lepiej by było to "łączyć" w accessie. Może zrobić 12 plików pomocniczych z 70 arkuszami i jednym głównym sumującym te arkusze. Każdy z arkuszy byłby połączony z konkretnym plikiem...
To powinno pomóc: [url=http://www.goldenline.pl/grupy/Komp...
przydział w grupie A jest zawsze tekst, natomiast w grupie B są zawsze liczbowe? Porównaj D3 - G3, D6 - G6, etc. Bardzo pożądane jednego typu(tekst 109a)
Kopiowany wiersz nie będzie pasował w nagłówki. Musiałoby być (w kodzie arkusza "101-183") coś takiego Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2:P50")... Is Nothing And LCase(Target.Value) = "x" Then wrsZrd = Target.Row nazwaArk = Cells(1, Target.Column)...
Nic w "Buchen" nie było, ale powinno zadziałać coś takiego (załącznik). Dopisany kod jest między gwiazdkami. Należy dokończyć przypisania (wpisałem dwa wg tych wyżej).
Przydałoby się zoptymalizować/ujednolicić dane. Ale skoro jest jak jest, to zrobiłem jak w załączniku. Przeanalizuj, dostosuj, uzupełnij. Jeśli pliki są w różnych lokalizacjach, zdefiniuj prawidłową (przypisanie zmiennej 'wPath') W zasadzie powinno działać z pozostałymi, trzeba będzie tylko zmienić argument w procedurze każdego arkusza...
Excel - automatyczne przepisywanie danych z jednego arkusza do drugiego. Witam, potrzebuję pomocy w programie Excel. Posiadam dane w Arkuszu 1 i potrzebuję, aby po kliknięciu danego klienta, z automatu skopiowały się do drugiego arkusza wybrane dane, jak nr zlecenia, umowy, adres, transport. AI: Jaka wersja programu Excel jest używana? Excel Office...
Potrzebuję pomocy z plikiem. mam tabelę w arkusz1 te dane chciałbym kopiować. następnie dwa arkusze DANE i DANE2 te strony mają być puste. potrzebuję pomocy w automatyzacji kopiowania zawartości Arkusz1 do kolejnego arkusza począwszy od arkusz4. potrzebuję kopię arkusz1 z wyczyszczoną zawartością komórek .. Kod towaru, nazwa opis, wydana i numer partii...
Witam. Mam taki problem potrzebuje skopiować dane z jednego arkusza do drugiego pod konkretne daty Arkusz1 http://obrazki.elektroda.pl/4744334500_1... Arkusz2 http://obrazki.elektroda.pl/6879051200_1... jak na rysunkach lub w załączonym pliku do arkusza 1 dane są pobierane z zewnętrznego pliku i nie mam na ich formatowanie...
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Mam następujący problem do rozwiązania: W jednym skoroszycie mam ponad sto arkuszy. Prócz pieszego wszystkie mają identyczny układ. W jaki sposób skopiować dane z pierwszego do pozostałych aby komórki od A2 do A120 z arkusza 1 skopiowały się odpowiednio: A2 z arkusza 1 w A1 arkusza 2, A3 z arkusza 1 w A1 arkusza 3, A4 z arkusza 1 w A1 arkusza 4 itd....
Proszę o pomoc Chodzi mi o rozwiązanie problemu W arkuszu1 w pliku mam pewna ilość danych dane te są zaciągane z accessa jeśli zmienię dane w accesie zmieniają się one w arkuszu1 exela tuż po jego otwarciu i tak powinno pozostać natomiast do kolejnego arkusza2 z chciałbym by były dopisywane w pierwszym wolnym wierszu tylko te wiersze z arkusza1 w których...
Dzień dobry, potrzebuje kod VBA, który będzie kopiował tabele o zakresie (A;B) z Arkusza 1 do Arkusza2 o tym samym zakresie, jednakże jedno pod drugim, według pustych komórek. Z góry dziękuję za pomoc.
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...
Czy można w jakikolwiek sposób tworzyć automatyczna kopię fragmentu arkusza do drugiego arkusza? Kopiowanie automatyczne samej zawartości jest proste, kopiowanie ręczne (kopiuj/wklej) z zachowaniem formatowania jest proste. Ale czy jest możliwość kopiowania automatycznego z formatowaniem?
Witam, mam w Excelu do zrobienia zestawienie, które będzie bazować na kilku arkuszach. W każdym z arkuszy mam wspólną kolumnę "zlecenie" o określonej nazwie z dużą ilością wierszy, obok wiele kolumn z odpowiednimi opisami. W drugim arkuszu mam odpowiednio oprócz kolumny "zlecenie" kolumnę "nadzorujący zlecenie" i inne, a w trzecim arkuszu mam rozpisane...
Witam, Ponieważ nie jestem programistą mam dosyć spory problem z rozwiązaniem swojego problemu. Sytuacja wygląda następująco: mam 101 arkuszy Pierwszy z nich to "protokół likwidacyjny" w którym znajduje się tabela mająca 100 pozycji. Kolejne 100 arkuszy są to kwity likwidacyjne (nazwy arkuszy są zgodne z pozycjami w tabeli z protokołu likwidacyjnego)...
Witam, Ma arkusz z ok 20 zakładkami gdzie układ danych jest analogiczny - zakładki noszą odpowiednie nazwy - np. LB, COR i zawierają dane w tym samym układzie w kolumnach R : W ze stałymi nagłówkami R1:W1. Dane z tych arkuszy potrzebuję przenieść do jednej zbiorczej zakładki tak aby pojawiały się tam jako wartości w kolejności jedne dane po drugich...
Cześć, Mam problem z pewnym makrem. Znalazłem je w internecie i przerobiłem pod swoje potrzeby(dane kopiują się do przypisanych arkuszy, a nie jedno pod drugim jak było w wersji pierwotnej). Generalnie chciałbym żeby z pliku i arkusza nawigacja móc otworzyć wskazane w pliku nawigacja dokumenty, następnie wejść w odpowiednie, przypisane do nich arkusze,...
Jak przerobic to makro, aby dane z komórek z jednego arkusza: B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 pobierało do mojego arkusza , ale w te same miejsca, czyli B3:B500, M3:M500, U3:U500, Y3:Y500, AM3:AM500, AQ3:AQ500 ? [syntax=vb]Sub Otworz() Dim wb As Workbook Dim ws As Worksheet Dim strQ As String Dim actWS As Worksheet Application.ScreenUpdating...
Cześć, posiadam codziennie jeden plik, który zawiera wiersze ze stanem naładowania baterii dla 12 urządzeń. Mniej więcej tak to wygląda: timestamp numberpointbatterypallet 2021-05-25 00:00259 2527FAŁSZ 2021-05-25 00:00568 2280FAŁSZ 2021-05-25 00:00260 2524FAŁSZ 2021-05-25 00:00799 2488FAŁSZ 2021-05-25 00:008107 2514FAŁSZ 2021-05-25 00:00571 2279FAŁSZ...
Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Witam, mam podobny problem, Excel 2010 - w jednym arkuszu mam tabelę danych, chcę wyszukać komórki spełniające odpowiedni warunek, do tej pory w arkuszu 2 w komórce C18 miałem: [syntax=vb]=INDEKS(arkusz1!$A$4:$O$246; PODAJ.POZYCJĘ(arkusz2!$B18;arkusz1!$O$4:... i wszystko działa poprawnie dopóki w arkuszu 1 O4:O246 występuje tylko jeden...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
Dzień dobry, Mój problem jest następujący Mam arkusz "A", gdzie z jednej zakładki importuję przy pomocy IMPORTRANGE do arkusza "B" zakres A2:E. W arkuszu B w kolumnie F przypisuję wartości i te wartości wpisywane są ręcznie i nie ma w tej kolumnie żadnej formuły. Problem zaczyna się gdy w arkuszu "A" musze wstawić wiersz. W tej sytuacji w arkuszu "B"...
Samo wyszukaj.pionowo() będzie chyba za mało bo trzeba sprawdzić dwie komórki z nr seryjnym i kodem. Chyba że "dobuduje" się z przodu kolumnę pomocniczą łączącą nr seryjny z kodem. (Z opisu autora zrozumiałem że może się trafić przypadek np. 1235-5 i 1235-8) Może takie makro, ale nie wiem ile jest danych w pierwszym arkuszu. Przy dużej ilości danych...
Temat zamykam. Wykorzystałam kod luzika z postu Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych Działa :) Dodano po 1 Excel Vba - Kopiowanie kolumn po nagłówkach z filtrowanych danych
Serwus, moim problem jest automatyczne kopiowanie(po wypełnieniu danej komórki) trzech kolumn z tabeli w arkuszu pt. "ogólne" do dwóch tabel w arkuszach: "faktury" i "licencje". próbowałem wygooglować coś na temat kopiowania danych między arkuszami automatycznie. Niestety nic co znalazłem nie do końca odpowiadało moim potrzebom. Możliwe, że po prostu...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
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...
Akurat to jakoś skomplikowane nie jest, jeżeli tylko arkusze nazwiesz kolejnymi nazwami miesięcy, to możesz odwołać się do skoroszytu przez jego nazwę z F3. A do wyszukiwania Janusza użyć jednej z licznych funkcji wyszukujących, np. Find [syntax=vbscript]Set w = Sheets(Range("F3").Value).Columns("A").F... lookAt:=xlWhole) Sheets(Range("F3").Value).Cells(w.Row,.....
To po kolei małymi kroczkami. Gdzie jest ten drugi plik? Potrafisz go otworzyć? Jak już otworzysz to zrób pętlę po wierszach i wyszukuj w niej po kolei liczby w drugim pliku. Przyda się zmienna (lub dwie) typu Range. Jeżeli znajdziesz to zapisz kopiowanie odpowiedniego kawałka. Uruchamiaj powoli, sprawdzając wszystko czy działa jak chcesz. Wykorzystuj...
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Witam. Mam dwa arkusze http://obrazki.elektroda.pl/6404666900_1...
Witam. Potrzebuje makra, które kopiuj dane z arkusza Excela "BAZA" do arkusza excela "baza1" i usuwa duplikaty (imie i nazwisko) które występują kolejny raz w kolumnie C. W arkuszu "baza" funkcje Excela muszą zostać. Przeszukałam internet i nie znalazłam kodu.Wierszy będzie maximum 100 z których należało by usunąć duplikaty.
Za slaby opis... napisz co to makro ma dokladnie robic a kto wie... moze ktos Ci pomoze. A pisze sie to tak ze: masz zakres komorek A1:A10 do sprawdzenia i np najwieksza liczba ma byc wpisana w akrusz2 w pole A1 <- to jest jasny opis
Do tego nie jest potrzebne makro. Wystarczy MSQuery i kwerenda SQL. Dla struktury pliku z załącznika kwerenda będzie wyglądała w następujący sposób: [syntax=sql]SELECT * FROM [Arkusz1$] WHERE Arkusz1$.Nagł_A IN (SELECT Nagł_A FROM [Arkusz2$])[/syntax] Przeanalizuj plik oraz kwerendę i dostosuj ją do swojego pliku.
Witam serdecznie. Mam dość sporą zagwostkę. Otóż potrzebuję skonstruować sobie makro, które z okrojonej listy (składającej się zawsze z dwóch kolumn) będzie kopiowało zawartość z kolumny 2, po uprzednim porównaniu jej z pełną listą umieszczona w arkuszu 2, 3, 4 itd. Żeby to trochę rozjaśnić .... Dajmy na to Arkusz1 zawiera takie dane: A1 B1 ford mondeo...
Ale nawet w nowootwartym skoroszycie, po wpisaniu paru danych w komórki i skopiowaniu do drugiego skoroszytu masz ten efekt? Czy taki efekt jest tylko przy jednym pliku? Czy jeżeli masz tabelkę w wordzie i skopiujesz ją do "drugiego worda" też będzie fotka czy skopiuje się tabelka? W tym arkuszu co załączyłeś u mnie wszystko działa ok. Moge normalnie...
Potrzebuje pomocy w stworzeniu makra które kopiowało by wybrane przeze mnie kolumny przez userform z arkusza ar2 do arkusza ar1 . W arkuszu ar2 znajduje się baza danych. Do arkusza ar1 chciał bym skopiować wybrane przeze mnie kolumny z arkusza ar 2 do kolejnej pustej kolumny. Wybór kolumn do skopiowania odbywa się przez userform, niestety na chwilę...
Ta formuła wyszła dość ciężka, może ktoś wymyśli jakieś uproszczenie. Przez wprowadzenie nazw można by było skrócić zapis, ale czas przeliczania się nie zmieni. W bloku dotyczącym dnia 27.04.2020 formuły zawierają odwołania do danych z kolumny F. Te formuły można kopiować w ramach tego bloku. Gdyby chcieć utworzyć z tego nowy blok, należałoby jedną...
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
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...
[syntax=vbscript]Sub Kopiuj() Sheets("Dane").Select OW = Cells(Rows.Count, "J").End(xlUp).Row nr1 = 2 nr2 = 2 For x = 2 To OW If Cells(x, "J") = "O" Then Rows(x).Copy Sheets("nr 1").Range("A" & nr1) nr1 = nr1 + 1 End If If Cells(x, "J") = "W" Then Rows(x).Copy Sheets("nr 2").Range("A" & nr2) nr2 = nr2 + 1 End If Next End Sub[/syntax]
Czy jest jakieś magiczne polecenie, które by kopiowało cały arkusz z jednego pliku zachowując formatowanie? Możesz przykładowo wykorzystać po zaznaczeniu w pliku źródłowym źródłowego arkusza (np. Arkusz1) i kopiować do pliku docelowego (tu Zeszyt1) polecenie typu :spoko: : [syntax=vbscript]Sheets("Arkusz1").Copy Before:=Workbooks("Zeszyt1").Sheets(1)[/...
odznaczone dane mają znikać z drugiego arkusza, a zostawać w pierwszym
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Podaj więcej szczegółów: Czy działasz na otwartym już pliku, czy makro ma je najpierw otworzyć? Ile plików znajduje się w lokalizacji? Co kryje się za: "plik formatka będzie zmieniał zawartość"? Czy będzie zmieniał się również układ danych w arkuszu, nazwa arkusza, ilość i kolejność arkuszy w pliku źródłowym?
Deklarujesz zmienną jako skoroszyt, przypisujesz arkusz. Nie może działać...
Mógłby ktoś rzucić światło w czym rzecz? Masz w tym kodzie zbyt dużo błędów (literowych, logicznych i konstrukcyjnych) :cry: Proponuję nauczyć się korzystania z Edytora VBA :idea: i przejść to makro w trybie krokowym - obserwując cały czas (w oknie Locals, oraz w otwartych plikach) jakie kod wywołuje zmiany zmiennych, oraz zmiany w arkuszach.
Nie do końca wiem co jest gdzie. Najlepiej jak byś zamieścił przykład w załączniku (jeżeli masz excel2007 to spakuj zipem) z błędnymi danymi (niepoprawionymi) - parę danych nie wszystkie. Porównywane wartości w kolumnach A muszą być takie same tzn jeżeli w A2 arkusza1 jest tekst to i w A2 arkusza2 musi być tekst, a jeżeli tu liczba to i tu liczba. Zaznaczam...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Na początek: Ad.1 i 3 Wstaw nowy moduł do pliku 'z_którego_kopiuje.xls' i wklej poniższy kod [syntax=vba]Option Explicit Sub KopiujAle() Dim fd As FileDialog, wkb As Workbook, test As String Set fd = Application.FileDialog(msoFileDialogOpen... With fd .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = False .Filters.Clear .Filters.Add "Pliki Excela",...
aby dane zaznaczone plików (kazdy plik ma tylko jeden arkusz) były kopiowane do jednego arkusza jeden pod drugim Kiepsko szukasz :cunning: na elektrodzie było kilka podobnych tematów odnośnie importu danych - między innymi :spoko: https://www.elektroda.pl/rtvforum/viewto...
Nie rozumiem po co kopiować z 1 do 2, gdzy obydwa arkusze mają ten sam układ?:) [syntax=vbscript]Sub PrzeniesWgNazwiska() Application.ScreenUpdating = False Set a = Sheets("Tabele2") Set b = Sheets("Tabele") a.Select owa = a.Cells(Rows.Count, "A").End(xlUp).Row owb = b.Cells(Rows.Count, "A").End(xlUp).Row For x = 7 To owa Step 21 s = Application.Match(Range("B"...
Przykład pętli otwierającej kolejne pliki jest w Dim twb As Workbook, sPath As String, sName As String, dName As String Dim nr As Integer sPath = "c:/katalog/" sName = Dir(sPath & "*.xls") Set twb = ThisWorkbook nr = 1 Do While sName <> "" If sName <> twb.Name Then Workbooks.Open sPath &...
Sposób reakcji Excela i VBA na różne sytuacje nietypowe różni się w szczegółach, wynika to częściowo z innych koncepcji, częściowo z tego, że VBA operuje na wersji angielskiej, a użytkownikowi ma wyświetlać wersję zlokalizowaną (narodową). Niestety to przechodzenie między wersjami nie zawsze jest do końca dopracowane. Poza tym twórcy Excela mają manierę...
czekaj, bo nie rozumiem; masz jeden arkusz z powtarzajacymi się w kolumnie np imię - "a" i druga kolumna nazwisko - "a" np w wierszu 2 i to samo imie i nazwisko wystepuje w tym samym arkuszu w wierszu np 45 i chcesz to sumować, czy masz w dwóch arkuszach rozne wyniki do imienia i nazwiska i zamiast jak ja tu kopiuje to ty chcesz to sumować?
Nagrałem makro które kopiuje dana tak jak chce, lecz gdy zmienię datę (B2) to dalej wkleja do tych samych komórek a nie pod odpowiednią datę.
makro kopiowanie między arkuszami kopiowanie danych między kopiowanie danych pomiędzy arkuszami
pasywny czujnik podczerwieni dokumentacja uprawnienia preamp mikrofonowy
Samsung SV-5000W wyrzuca kasetę – czyszczenie mode-switcha, wymiana pasków, typowe usterki Moment dokręcania elementów rozrządu VW LT 2.5 TDI
