Witaj Dodano po 9 albo w arkusz X column B =JEŻELI(LICZ.JEŻELI(Y!A:A;A1)>0;WYSZUKAJ...
Kopiowanie zrobisz np tak: [syntax=vbnet] Sub Podzial() Dim Y As Long, R As Range Y = 2 Do While Cells(Y, "A") <> "" With Sheets("XXX" & Cells(Y, "B")) Set R = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) Range("A" & Y & ":E" & Y).Copy Destination:=R End With Y = Y + 1 Loop End Sub [/syntax] Działa, jeżeli masz przygotowane wszystkie...
Użyj WYSZUKAJ.PIONOWO()
Macie tutaj jakieś pomysły? Pomysł pierwszy to opracowanie aplikacji opartej na bazach danych :-o Jeśli zakres działalności jest niewielki to rzeczywiście można spróbować zrobić coś doraźnie w oparciu o arkusz kalkulacyjny. Proponuję jednak wykorzystać natywne możliwości arkusza kalkulacyjnego np. formularz danych do rejestrowania klientów zrzut 1,...
Witam wszystkich, udało mi się sklecić plik do wpisywania odbiorców/listów przewozowych i innych potrzebnych danych aby mieć podgląd ilości palet które wędrują pomiędzy moją firmą a pozostałymi. W arkuszu Buchen wpisuję wszystkie dane klikam na przycisk BUCHEN i wszystkie dane lądują w Arkuszu Transaktionen jako kolejne wiersze z danymi. Podczas transakcji...
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...
Polecam używać pomocniczy wiersz( wiersz 1 arkusz zbiorczy) Można ukryć lub przenieść gdzie indziej, W takim przypadku wymienić bs.Rows(1) na Range("buffor")
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
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...
Mój wybór. Kolumny LP wypełnia makro, po niej dowiaduje się, co jeszcze nie w arkuszu zbiorczym. Przycisk Zbior na arkusz ZESTAWIENIE WYDATKÓW. Możliwe bez przycisków, reakcja na zdarzenie Worksheet_Activate.
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Miałem chwilę to dokończyłem. Dodałem zaliczki wpłacone na prąd i poprawiłem ostatnią formułę bo nadpłata lub niedopłata za 2020 to co innego niż odsetki. Wcześniejsza formuła nie sumowała odsetek. w rejestrze formuły są wprowadzone w zielonych polach. Wyniki pojawią się jak wpiszesz nowe nazwisko. Po wpisaniu nowego nazwiska w rejestrze na liście osób...
Ja z reguły kolorami w arkuszach pomocniczych zaznaczam że formuły w danych komórkach są inne/"niestandardowe" więc trzeba zwrócić uwagę na ich kopiowanie (co nie znaczy że bez kolorów są zawsze takie same (w tym przypadku każdy miesiąc ma inną formułę) Dlatego najlepiej by było gdybyś zrozumiał jak jest stworzony arkusz test35. (tabela start i stop...
Lepiej opisz konkretne zadanie które ma ten arkusz wykonywać bo może to się da załatwić lepiej. Chodzi o wybranie jakichś konkretnych danych spełniających określony warunek? To można zrobić np. przy pomocy tabeli przestawnej.
Przesyłam zmieniony kod. Jeżeli otwarty arkusz nie nazywa się "Sklep*" to wychodzi się z procedury.
Witam ! Przedstawione zadanie jest trudne do rozwiązania (w każdym razie dla mnie :cry: ) ze względu na zawiłości formatowania dat . Przedstawiony przykładowy arkusz stanowi swoiste dzieło "rękodzielnicze" :D - chyba Pan Błażej mocno się nad formatowaniem warunkowym całej tabeli napocił. Żeby tej pracy nie zmarnować - proponuję zatem do założonej funkcjonalności...
Musisz ustawić zmienne odpowiedzialne za bieżący arkusz oraz arkusz z drugiego pliku, a następnie odpowiednio nimi manipulować przy kopiowaniu. Ja to robię zwykle w ten sposób: [syntax=vb] Set wswyn = ThisWorkbook.Worksheets("Wyniki") 'bieżący arkusz Set wrkSrc = Workbooks.Open(Filename:=myPath, ReadOnly:=True) 'otwórz plik źródłowy Set wsSrc = wrkSrc.Worksheets("Dane")...
Bez VBA się raczej nie obędzie. Są co najmniej dwa wyjścia (w pętli): 1. Filtrowanie i wydruk po każdej zmianie parametrów 2. Arkusz tymczasowy (czyszczenie, kopiowanie warunkowe, wydruk) Które wydajniejsze? Stawiam na Nr.1
Prototyp. Chcemy aby, po wpisaniu danych w dowolną komórkę pustego skoroszytu, excel sprawdził, czy w skoroszycie pierwszym To nie jest dobry pomysł, żeby za każdą zmianą w jakiejkolwiek komórce przeszukiwać arkusz z pliku z danymi. No chyba, że plik otworzymy przy otwieraniu pliku głównego.
Hmm. Jak się orientujesz w tych wszystkich GoTo? To samo, uzupełnione, w innej wersji.[syntax=vb]Option Explicit Sub Kopiuj() Dim WksDo As Workbook, PierwszyWolny1 As Long, PierwszyWolny2 As Long On Error GoTo koniec If MsgBox("Rozpocząć kopiowanie ?", vbQuestion + vbYesNo) = vbYes Then 'Potwierdzenie rozpoczęcia kopiowania With Application .ScreenUpdating...
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...
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,...
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...
Witam, próbowałem już kilku sposobów na rozwiązanie mojego problemu, ale niestety nic konstruktywnego nie udało mi się stworzyć. O co chodzi: pragnę stworzyć makro które kopiowałoby wybrane elementy z Arkusza1 Przykład: 1) mamy Arkusz1 z ID klienta (powiedzmy, że mamy 1000 pozycji) , przypisany mu wiersz chce uzupełnić o date logowania się np. na koncie,...
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.
Witam szanownych kolegów i koleżanki, potrzebuję pomocy w Excel z dość łatwym zadaniem, ale ciężki mi znaleźć konkretne rozwiązanie w śmietniku internetowym. Sprawa ma się następująco: Mam 1 plik excela z trzema Arkuszami z danymi (dojdą jeszcze 2 arkusze z danymi, więc prosiłbym o uwzględnienie tego) i Arkusze rozliczeniowe tj. maj, czerwiec, lipiec...
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....
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)...
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...
Witam, Na początku przepraszam jeżeli powielam temat lub coś takiego ale przeglądałem tematy odnośnie kopiowania danych i jakoś nie mogę znaleźć rozwiązania mojego przypadku. Chodzi mi o kopiowanie danych z arkusza2 z komórki A5. W powyższej komórce będę miał zapisywaną wartość która zmienia się przy każdym otwarciu pliku (kurs waluty ze strony www)....
Witam wszystkich, Mam problem, którego nie potrafię rozwiązać (wiele dni szukałem rozwiązania w internecie, ale nie znalazłem albo nie potrafiłem podanych rozwiązań powiązać z moim problemem). Chodzi o metodę wygenerowania obciążenia pomieszczeń na podstawie arkusza wyjściowego "Arkusz 1". Dane w arkuszu pierwszym to: nazwa grupy (np. Grupa A), Przydziału...
Witam mam Problem mianowicie nie wiem jak skopiowac baze danych klientow towaru po czym jak wgram nowy system gdzie to wgrać i jak. Dzięki za odpowiedzi:)
Witam, chciałabym zapytać czy macie może gotowe makro, które kopiowałoby tabelę razem z formatowaniem z jednego arkusza do drugiego. Muszę powielić taką samą tabelę w dużej liczbie arkusze i wolałabym uniknąć jej każdorazowego formatowania. Z góry dziękuję za pomoc.
Czesc, mam problem i prosze o pomoc (nie hate) mam kod ktory kopiuje arkusze w jeden arkusz, dziala super jednak nie chcialabym aby kopiowaly sie naglowki: Sub WszystkieArkuszeDoJednego() Sheets.Add.Name = "Podsumowanie" Application.ScreenUpdating = False nwp = Sheets("Podsumowanie").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To Sheets.Count Set...
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?
Masz ten problem w każdym arkuszu czy tylko w jednym, konkretnym? W Office 365 v. 2202 nie zauważyłem takiego problemu. niestety w kazdym, nie zauwazylem jakiejs reguly. Arkusz moze byc strzowony od zera przeze mnie, albo przeslany przez kogos (niekoniecznie z tej samej wersji office). Nie ma tu tez specjalnych funkcji, dodatków czy czegokolwiek. Ten...
witam, potrzebuje pomocy bo walcze z tym juz drugi dzien i nic nie wychodzi, a mianowicie potrzebuje zrobic takie makro (VBA) zeby w momencie uruchomienia, moze byc przycisk(np.export) na kazdym akruszu kopiowalo mi dane ktore sa wprowadzone ze skanera do osobnego pliku w ktorym bedzie cala baza danych. tak jak w pliku np. Arkusz 1- Laan 1 - zeby mi...
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"...
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 =...
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
to akurat przykład tego QFD, już uprościłem pod polskie warunki :-) 2 tygodnie prób wydruków itd. Ale klucz w tym, czy jest jakiś lepszy format niż RTF do takich tabel. Znalazłem TextMaker, lecz to słabe.. Zobacz, RTF nie jest jakimś skomplikowanym formatem, łatwo go przerabiać, pytanie, czy się da technicznie. Gdzie to sprawdzić? Wikipedia może podaje...
"Zabawa" ciągami się kłania.
Może nie w temacie ale jaki jest cel kopiowania danych z Excela do Worda ? Jeżeli to częsta operacja to może prościej ustawić sobie wzorcowy arkusz Excela i za pomocą kilku funkcji wyszukaj.pionowo () czy index() oraz list rozwijalnych wybierać co nam jest potrzebne ?
Cześć, Mam plik z danymi, który zawiera 2 arkusze. Chce, aby makro: 1. w arkuszu 1 odfiltrowało unikatowe wartości z kolumny 4 i wartości z tablicy z kolumny 5 2. utworzyło nowe skoroszyty dla każdej unikatowej wartości z kolumny 4 i wkleiło tam dane i zapisało plik 3. przeszło do arkusza 2 4. odfiltrowało dane w arkuszu 2 po tych samych filtrach, co...
Witam, Potrzebuję makra, które będzie kopiować dane z konkretnego arkusza w innej lokalizacji. Przykład: Dane ma pobierać z lokalizacji H:\DANE\Dane.xlsm z pliku Dane z arkusza BBB z komórek A2:F2000 i kopiować do tych samych komórek w pliku Zeszyt1 arkusz AAA z wykorzystaniem pętli, by kopiowanie nie trwało za długo Z góry dzieki
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)[/...
https://obrazki.elektroda.pl/9936064400_...
Jeśli masz otwarte oba pliki i w nich są wszystkie wymienione arkusze :!: to spróbuj takiego kodu: [syntax=vbscript]Workbooks("cale.xls").A... Sheets("WAC").Select Range("P3").Select Selection.Copy Workbooks("Daily production meeting report.xlsm").Activate Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
Dzięki za zainteresowanie. Jednak w rzeczywistości Arkusz B jest nieedytowalny i nie można w nim odkryć skoroszytu z danymi tak jak w załączonym. Zrobiłem taki arkusz dla przykładu. Jeżeli była by taka możliwość zastosowałbym funkcję WYSZUKAJ.PIONOWO. Tak więc muszę napisać takie makro aby mi pobierało numer z Arkusza A wklejało do Bazy Arkusz B i pobierało...
[syntax=vbscript] Sub przenies() Dim Zest As Worksheet, Dest As Worksheet, Ark As Worksheet Dim i&, j&, w&, wd& Set Zest = ThisWorkbook.Sheets("Zestawienie") w = Zest.UsedRange.Rows.Count Application.ScreenUpdating = False For i = 2 To w j = 0 For Each Ark In Worksheets If Ark.Name = Zest.Cells(i, 6) Then j = 1 Next Ark If j = 0 Then...
Ważne plik z Makrem trzeba zmienic format na xlsm. bo tutaj jest jakas blokada i nie pozwala dodac takiego pliku jako załącznik:( W makrze zagniezdzonym w pliku powinny kopowiac sie dane do arkusza o nazwie CSV, wedlug poniżych założeń, nie wiem czemu nie przekleja mi tych danych [syntax=vbscript]Sheets("Arkusz1").Selec... Columns("BV:CZ").Select Selection.Copy...
Pożądany efekt aktualizacji tabeli w arkuszu "3" 961000 można uzyskać poprzez makro aktualizujące (odświeżanie danych skrótem ctrl + a :D ) z zastosowanie pętli typu: 961004
Sposobów na rozwiązanie tego problemu jest kilka - tylko te bardziej wydajne mogą być trudniejsze do zrozumienia / zapamiętania dla kogoś początkującego. Dlatego poniżej najprostszy przykład, z pętlą (w zasadzie dwoma): najprostszy, ale i najmniej wydajny... Dla małej ilości danych powinien działać OK. Pytaj, gdyby coś było niejasne. [syntax=vb]Private...
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...
Dzięki wielkie przyjrzę się temu jutro. Ale widzę że tworzy mi arkusz 2 taki sam jak arkusz inne. W pierwszym skoroszycie
Jeśli arkusz jest chroniony, to autor nie życzy sobie jego edycji i przeróbek, wiesz o tym że jeśli go jednak zdecydujesz się odblokować, możesz zostać osądzony za nie poszanowanie praw autorskich?
A zatem tak spróbuj: [syntax=vbscript]Private Sub CommandButton1_Click() Dim ws As Worksheet Dim fso As Object Dim oFile As Object Set fso = CreateObject("Scripting.FileSystemObject... Set oFile = fso.CreateTextFile("c:\wynik.txt") For Each ws In ThisWorkbook.Worksheets Call PrintRange(oFile, ws, ws.Range("A2:E4"), 3) Call PrintRange(oFile, ws, ws.Range("J6:M8"),...
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.
Witam, otóż czy jest ktoś w stanie podpowiedzieć jakiego kodu użyć aby automatycznie wyfiltrować dane: Mianowicie: mam zakres danych z którego chciał bym wyfiltorwać dane z arkusz po zakresach wartości : 31 , 33 , 35 mianowicie każdy zakres ma swój arkusz do którego chciał bym żeby przekopiowało dane. po czym filtruje kolejny zakres i tak w kółko aż...
A w jaki sposób przypisałeś to makro akurat do tej komórki tj. N1 , gdybym chciał urzyć tego makra w innym arkuszu to jak uwzględnić w nim daną komórkę inną niż N1 ? : ktore pisze num wiersza w N1 arkusz REJESTR
Może wstaw plik z danymi dla ułatwienia temu, kto się za to weźmie.
kopiowanie chroniony arkusz excel kopiowanie danych kopiowanie danych między
wymiana grzałki naprawa biosu compaq wykryto przekroczenie limitu czasu
bateria parkside hotpoint ariston zmywarka
Komunikat "TRYB NIEDOSTĘPNY" w Samsung PS50C550 Pulsująca kontrolka ładowania przy 14,5V
