Koleżanka pisała o odświeżeniu wszystkich tabel w całym skoroszycie, więc makro będzie wyglądało tak: [syntax=vb]Sub Pivot_Refresh() Dim oSh As Excel.Worksheet Dim pvtTbl As PivotTable For Each oSh In ActiveWorkbook.Worksheets For Each pvtTbl In oSh.PivotTables pvtTbl.RefreshTable Next Next End Sub[/syntax]
Jeśli nie tabela przestawna to myślę, że najlepszym rozwiązaniem jest zastosowanie makra. Takie makro może pobierać datę na którą ma być obliczona godzina wejścia wyjścia i dla wszystkich pracowników wklejać w odpowiednie pola odpowiednie czasy. Jeśli będziesz zainteresowany mogę przedstawić więcej szczegółów.
Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend Opcji pierwszej nie potrafię (chętnie bym się dowiedział od Ciebie jakim sposobem osiągnąć ten cel). Druga opcja zadziałała - wielkie dzięki, tylko zastanawiam się dlaczego taki wpływ na to miały nowe kolumny? Pytam ponieważ główne makro mam...
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
Spróbuj nagrać makro i wprowadź kilka poprawek: zamiast: PivotTables("Nazwa tabeli1") można użyć: nazwa=Worksheets(1).Range("A1") PivotTables(nazwa) Gdzie Np. w komórce A1 pierwszego arkusza można wpisywać nazwę tabeli przestawnej (bez cudzysłowów) lub zastosować 'poprawność danych>lista' i zdefiniować listę nazw.
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Zamknęłam tamto zadanie a mam jeszcze 3 pytania extra do makra, które stworzył (at)prl . Post dokleiłem do wczesniejszego wątku i odblokowałem go. W przypadku chęci kontynuowania zamkniętego wątku zawsze można zgłosić go do moderacji (raportując którykolwiek z postów w nim) z prośbą o ponowne otwarcie. 1. Makro dzieli skoroszyt na osobne skoroszyty...
Witam, Jestem początkujący jeśli chodzi o VBA, czy ściślej rzecz biorąc nagrywanie makr. Znalazłem na forum podobne tematy, ale nie byłem w stanie na ich bazie wywnioskować jak naprawić swój problem: Z pewnej tabeli kopiuję do nowego pliku określoną liczbę kolumn, jednak liczba wierszy jest zmienna. Po zaznaczeniu całości w nowym pliku wybieram wstawienie...
Może napisz dokładny przykład (wartości) gdzie można ten błąd zaobserwować, bo ja ściągnąłem ten plik i Tabela przestawna 5 odświeża się za każdym razem poprawnie (tzn. zaznacza wszystkie opcje i odznacza te wypisane w kodzie). Używasz też odwołania do tabeli pf - czy nie powinno tam być pf2 ? Może chodzi też o to żeby dodać PivotCache.Refresh przed...
Trochę pod koniec pogmatwałeś. Jeżeli do jednego miasta może być wiele nazwisk i/lub wiele tras i to ma się zapisać w jednej komórce (np wszystkie nazwiska dotyczące warszawy) to zwykłą funkcją excel'owską nie da sie tego zrobić. Pozostaje makro ewentualnie tabela przestawna lub autoflitr (najprostsze).
tworzenie tabeli przestawnej nie sprawdzilo się :cunning: Jeśli koleżanka ma tylko problem z codziennym tworzeniem nowych tabel przestawnych :?: :D - to proponuję skorzystać z makra do tworzenia takich tabel :please: Jeśli do Twoich analiz wystarczy tabela jak na zrzucie. 982258 to możesz wykorzystać makro z załączonego pliku :spoko: W arkuszu Dane...
Tabela przestawna sobie poradzi z takim czymś.
Dzień dobry 1 .Wpisanie wartości (godzin 24 lub 12 lub 6 lub innych jeśli 24 dzieli się na dwóch pracowników to tak by było wiadomo który przychodzi w dzień a który w nocy ) w arkuszu "ROBOCZY GRAFIK POST MC" w kolumnie oznaczonej datą - spowoduje automatyczne wstawienie w arkuszu "GRAFIK DZIENNY" odpowiednio do wystąpienia wartości w kolumnie IMIENIA...
Jest inna opcja, nazywa się tabela przestawna i powinna być wystarczająca w tym przypadku. Jeżeli zrobisz z tych danych tabelę to poprawny wynik może być prezentowany na bieżąco, bez dodatkowych czynności, ale lepiej sobie poczytać jak to wszystko działa.
Witam, taki projekt: Tabela przestawna zawierająca dane wszystkich klientów i ich salda. Filtr tabeli przestawnej ustawiony na numer klienta/nazwę - bez różnicy. Czy istnieje możliwość aby za pomocą VBA poruszać się w filtrze i z listy klientów przemieszczać się up/down? Klikam next i przechodzi do kolejnego klienta na liście filtra w pivocie, klikam...
w którym miejscu w kodzie jest błąd i co należałoby poprawić? Błędów chyba jest kilka :cry: Proponuję zmienić linię 20 kodu na [syntax=vbscript]Set PRange = WSD2.Cells(1, 1).Resize(OstW, OstK)[/syntax] Usunąć wszystkie błędy "literowe" typu "x1" zamiast "xl", oraz wprowadzić w makro dokładne nazwy pól tabeli ( nie "kwota_ustalen" jeśli stosowany jest...
Nie wiem czy dobrze zrozumiałem Twój problem Tabela przestawna sumuje zobacz Twój plik
Zwykła tabela przestawna do tego nie wystarczy??
Jeśli wszystkie potrzebne dane już są w Arkuszu2 to może wystarczy tabela przestawna z filtrem nazwisk i miast?
Przetestuj poniższy kod: [syntax=vb]Sub Rozdziel_Pivota() Dim pvTbl As PivotTable Dim pvFld As PivotField Dim pvItm As PivotItem Dim shArkPvTbl As Excel.Worksheet Dim shArkList As Excel.Worksheet Dim lLstRwList& Dim rngList As Excel.Range Dim rngCp As Excel.Range Dim wbkDest As Excel.Workbook Dim shDest As Excel.Worksheet Dim sItem$ Dim oWSShell As...
Witam Potrzebuję pomocy w napisaniu makra. Mam w arkuszu1 dane w kolumnach od A5 do AB5000. W kolumnie G5 do G5000 znajduję się lista rozwijana z której użytkownik może wybrać kilka opcji. W przypadku kiedy użytkownik wybierze opcję "złomowe" chciałbym żeby makro przy użyciu przycisku przypisanego do tego makra wycięło wszystkie wiersze w których użytkownik...
Wydzielono z Witam serdecznie wszystkich użytkowników forum. Założyłem dziś konto na elektrodzie i mam do Was WIELKĄ prośbę, więc pozwoliłem sobie odkopać ten temat. Zaproponowane w wątku makro działa super, więc bardzo dziękuję twórcy. Chciałbym je jednak wzbogacić o dodatkową funkcjonalność. Chodzi o to by przy okazji odświeżania tabel przestawnych...
Prosze o pomoc w jednej sprawie. Chciałbym w pracy zrobić pismo, w którym wykażę niezapłacone faktury. całość zrobię w korespondencji seryjnej ale stanąłem na samym początku. Otóż, mam tabelę przestawną. W kolumnie pierwszej NIP, w kolejnej nazwa kontrahenta, dalej symbol faktury i na końcu jej kwota. Wiadomo, że korespondencja seryjna działa wiersz...
Witam mam ogromną ogromną prośbe o makro. W załączniku jest plik do którego potrzebowałybym makro. Mianowicie chodzi o tabelę pomiarów która jest cała na czerwono w arkuszu zar1 2.5st. Chodziłoby o makro które będzie odejmować,dodawać lub nic nie robić(+,-,= takie funkcje). W tabeli pomiarów znajdują się cztery kolumny: praca ciagła, postój 1 s, postój...
Witam ponownie. Pracuję obecnie nad makrem, które miałoby kopiować dane ze stworzonej wcześniej tabeli przestawnej do poszczególnych zakładek/zeszytów (które noszą nazwy osób) na dany dzień. Uwagi i założenia: 1. Tabela przestawna z danymi - daty jako wiersze, imiona i nazwiska osób jako kolumny (a w tabeli dane liczbowe do przyporządkowania). 2. Poszczególne...
Witam, mam plik w którym każdego dnia wypełnia się dane, a na końcu ostatniej zmiany są one kasowane i w to miejsce wpisuje się kolejne dane z dnia następnego. Mam pytanie czy jest możliwość stworzenia takiego makra ,które pobiera dane z określonego dnia na podstawie listy rozwijanej dotyczącej daty i kopiuje je w odpowiednią tabelę i zapisywało się...
Witam Proszę o pomoc w stworzeniu makra które kopiuje wiersze z jednego arkusza i wkleja w inny ale uwzględnmia 2 argumenty: Po kolei mam 2 arkusze 1. OPERACJE 2. MAGAZYN Operacje - wydania i przyjęcia magazynowe liczba rekordów zwiększa się co dzień, przewiduje max 8 tys rekordow (kolumna A - indeks matriałowy, kolumna B - wydanie/ przyjęcie załużmy...
[syntax=vb][/syntax] Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+l ' Dim PT As PivotTable Dim PRange As Range Dim FinalRow As Long Dim FinalColumn As Long For Each PT In Arkusz1.PivotTables PT.TableRange2.Clear Next PT 'określenie zakresu danych tabeli wjściowej FinalRow = Arkusz1.Cells(Rows.Count, 1).End(xlUp).Row FinalColumn = Arkusz1.Cells(1,...
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Hej, witam serdecznie. Usiłuję zrobić makro, które będzie mi po naciśnięciu przycisku "Copy" kopiowało całą tabelę wraz z przyciskami o 12 pól niżej. Tak, aby powstała druga identyczna tabela. Nagrałem macro, dodalem póżniej pętle, ale po naciśnięciu "Copy" tabela jakby nie kopiuje sie (?). Potrzebuję wsparcia. Dobrze, gdyby przycisk "Clear" usuwal...
Witam. Próbuje napisać makro, które będzie wyszukiwać w jednej kolumnie, np A kwot przeciwnych jeżeli istnieją (np kredyt noty i faktury) , dodatkowym warunkiem jest to aby wartość w kolumnie B (np nazwa przedsiębiorstwa) była dla obu kwot taka sama, jeżeli ten warunek jest spełniony to kwoty te są kopiowane do drugiego arkusza. Udało mi się napisać...
Witam! Mam problem z stworzeniem makra który pobierze dane z tabelki a następnie wklei w odpowiednie miejsce. Po prawej stronie jest tabelka z wartościami i chciałbym żeby makro sprawdzało wartość komórki czy jest rożna od zera. Jeżeli tak to w nowym arkuszu(lub pliku) Tworzy wpis ID Gniazda | ID | ID siedliska| Wartość komórki, jeżeli wartość komórki...
Witam, Mam problem ze stworzeniem makra, które przestawi elementy z jednej komórki do drugiej ale tylko wtedy kiedy ta nie jest pusta. Chcę to wykorzystać do planowania. W załączniku plan i tabelka na górze to plan produkcyjny a dolna tabelka to przygotowanie produkcji. Chodzi o to, że przygotowanie produkcji ma naszykować dane elementy 8 godzin przed...
witam :) Próbuje napisać mały programik jednak cały czas mam jakieś błędy, a na niektóre rozwiązania brak mi pomysłów. To mój pierwszy program, dotychczasowe wypociny opieram na tym co wyczytałem w internecie. Chciałbym stworzyć makro w Excelu, miałby to być wykaz uwzględniający wszystkie informacje z pozostałych zakładek (które edytowane są ręcznie)....
Witam jestem początkowym użytkownikiem VBA i chciałbym prosić o waszą pomoc. Staram się uczyć z serii filmów (odnośnik usunięty przez moderatora), ale musze na szybko przygotować makro które usprawniło by moją prace. W załączniku zamieściłem plik który wymagał by ulepszenia o Makro. 1) w zakładce dane mam pewne informacje które chciałbym zliczać i podawać...
proponuję pobawić się tym osobiście. Daje wiele możliwości. Na początek zaznacz zakres (np kolumny) i wstaw tabelę przestawną Użyj godzin jako początków wierszy i liczników oraz numerów jako nagłówków kolumn. W pole danych wsadź zaś- zapewne wstawi je z funkcją COUNT i gotowe teraz zostaje pobawić się w pivotowanie Tabela przestawna to tabela agregująca...
1. Jeśli połączysz imię i nazwisko w kolumnie pomocniczej (=A2&" "&B2), to będzie już możliwe uzyskanie unikatów (osób/pracowników). Jeśli tabela przestawna nie zwraca Ci oczekiwanych rezultatów, pozostaje wykorzystanie funkcji wyszukiwania. W kolejnej kolumnie pomocniczej indeksy (kilka tematów niżej był przykład z JEŻELI(LICZ.JEŻELI()=1;MAX();itd)...
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$7" Then r = Year(Target) m = Month(Target) d = Day(Target) Data = CDate(r & "-" & m & "-" & d) ActiveSheet.PivotTables("wazenie").Pivot... = r & "/" & m & "/" & d End If d = Format(Data, "dd.mm") ActiveSheet.ChartObjects("Wykres 1").Activate...
(at)JRV Do zrobienie jednego raportu potrzebuję dwóch plików. Plik "czysty plik do segregacji" oraz "Plik1_P10". Plik do segregacji zawiera pełną bazę danych oraz makro które tworzy zakładkę z bazą z której zostały usunięte niechciane rekordy tzw. bazęoczyszczoną, a następnie kopiuje całą bazę i usuwa niechciane rekordy. Wiem, że to jest kompletnie...
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
Zwracam się z prośbą o stworzenie makra, bądź doradzenie innego rozwiązanie Jeśli chciałbyś wykorzystać do zestawienia danych tabelę przestawną :idea: np. tak jak na zrzucie 1075895 to możesz wykorzystać makro VBA do automatycznego (uruchamianie klawiszami ctrl+o) tworzenia aktualnej tabeli przestawnej :spoko: 1075898
Witam. Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Chciałem dodać możliwość włączenia i wyłączenia na podstawie wartości komórki. Wynik: Sub start() If (Range("AC11") = "TAK") Then Application.OnTime Now + TimeValue("00:05:00&quo... "button3"...
na youtube są tutoriale jak samemu zrobić takie makro.
Czemu na siłę w makro? I w jaki sposób pozyskujesz unikalną listę kodów w arkuszu? Nie jestem pewien (bo nie używam tego za często), czy tabela przestawna nie będzie tutaj odpowiednim narzędziem. Powinna dać sobie radę z wygenerowaniem listy unikatowych identyfikatorów i ze zsumowaniem wartości, jeśli dobrze kojarzę (sam nie sprawdzę, bo w excelu 2003...
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
Może tabele przestawne (pivot table)? https://obrazki.elektroda.pl/1818541700_...
Cóż. Tabela przestawna pokaże Ci wszystko, ale dalej trzeba bystrego oka, żeby zauważyć różnice. Można zastosować "konkurencyjne rozwiązanie" we wszystkich arkuszach. W ostateczności napisać makro, które "wydłubie" wszystkie unikatowe indeksy/nazwy towarów z 3 arkuszy, oznaczy różnice w cenach, etc. i wpisze do osobnego arkusza wynikowego.
Nie bardzo rozumiem na czym polega istota problemu. Czy tylko na automatycznym odświeżeniu tabeli przestawnej? To można zrobić np. makrem przy każdorazowej aktywacji arkusza z tabelą. Przykład w załączniku. Analogicznie można bez tabeli przestawnej założyć tylko filtr i ten filtr odświeżać makrem. Można też formułami, ale to bardziej skomplikowane.
Witaj. Można użyć tabeli przestawnej
Można skorzystać z sum pośrednich lub tabel przestawnych
Wyślij tylko tabela przestawną lub całego arkusza? 'plik xlsm „Z” ' za każdym razem wyczyszczone?(Arkusz1)
Skąd mamy wiedzieć w jakim formacie są dane przed wykonaniem makra !? Naprawdę tak trudno dołączyć plik Excela ? W makrze zamieniasz zaznaczone dane na format liczbowy z separatorem tysięcy i dwoma znakami po przecinku, próbowałaś to wyłączyć ? Na zrzucie widać, że kolumna "Data zamówienia" zawiera wartości daty ale w formacie liczbowym, nie wystarczy...
A nie dostałeś jeszcze odpowiedzi na Twoje zgłoszenie problemów do autora kodu ? :D Wydaje mi się, że ja mam dość bujną wyobraźnię :ok: , lecz nie mogę sobie wyobrazić tabeli przestawnej z tych Twoich danych :cry: Spróbuj sam zbudować tabelę przestawną "na piechotę" - przy użyciu narzędzi tabel przestawnych - może znajdziesz wówczas przyczynę problemów...
Witajcie. Sprawa jest taka, że chciałbym, aby makro zmieniało filtr w tabeli przestawnej. Konkretnie chodzi o pokazywaną ilość miesięcy. Chce, aby makro zmieniało ilość filtrowanych miesięcy wg wskazanej wartości z wskazanej komórki. np. z komórki a1 czyta że "i" to 5 i ma zaznaczyć 1,2,3,4,5 [syntax=vba]With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("Okres")...
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
!R1C1:R24944C10 to bym chciał by było skasowane To, co chcesz skasować, to przecież zakres danych do tabeli przestawnej.
To rozwiązanie nie wchodzi w grę, ponieważ codziennie generuję z systemu plik z dużą ilością danych i za pomocą makra tworzę m.in. tabele przestawną. Dlatego potrzebowałabym zaznaczyć w niej ważne dla mnie wiersze jeżeli pojawi się konkretne słowo.
Witam. Próbuję użyć odwołania do komórki w innym makro i już mi to nie działa. Próbuję zrobić makro które w tabeli przestawnej,wybierze mi z całej listy tylko jedną datę, data znajduje się w komórce M8. Myślę że to najlepszy sposób. Ale nie działa odwołanie do M8 Sub Makro1() Makro1 Makro With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields(&...
Czy jest możliwość sortowania jeśli niektóre komórki są scalone? Chodzi o to że w kolumnie A i B mam scalone komórki (po dwie), a w kolejnych kolumnach nie ma scalenia. teraz chciałbym posortować dane jakie mam w arkuszu względem i kolumny A i kolumny B (obie ze scaleniami). nie wiem jak to zrobić, czy jakieś makro, czy tabela przestawna, a może da...
Jeżeli pytasz o rozszerzanie tabeli to tak: wszystko wpisane zaraz obok i zaraz pod będzie rozszerzało tabele, a tabela przestawna będzie automatycznie rozszerzała zakres. Jeżeli masz n plików, które są takie same czyli mają spis części na każdą maszynę to warto by było liznąć trochę Power Query. To pozwoli Ci połączyć dane z wielu plików w jedną tabelę...
Musisz ponowić instrukcję: [syntax=vbscript]ost_wiersz = Range("A" & Rows.Count).End(xlUp).Row[/syntax] przed drugą pętlą, ponieważ ten wiersz jest obliczany wcześniej przed utworzeniem tabeli przestawnej i jest już później nieaktualny. Jeśli to faktycznie Twoje pierwsze makro, to całkiem nieźle Ci poszło. Pytałaś o książki z VBA, więc polecam osobiście...
Witam, Potrzebuję pomocy przy napisaniu makra do tworzenia kilku plików, na podstawie danych zawartych w konkretnym skoroszycie opartym na tabeli przestawnej - makro miałoby tworzyć pliki, które nazywałyby się dokładnie tak jak nazwy w konkretnej liście - arkusz lista klientów,znajdujacej sie w dokumencie. Listę stworzyłam sobie za pomocą makra z unikalnych...
tabela przestawna makro makro tabela przestawna wiersze tabela przestawna
pralka samsung falownik silnika synology ds220j prądnica wolne obroty
ws504 regulacja głośności jakie cisnienia r407c
Wyłączanie pompy obiegowej w kotle PWHC 24-28-33 Błąd T452 w wózkach widłowych Linde - przyczyny i diagnostyka