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.
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...
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]
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...
Tabela przestawna sobie poradzi z takim czymś.
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...
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...
Nie wiem czy dobrze zrozumiałem Twój problem Tabela przestawna sumuje zobacz Twój plik
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...
Zwykła tabela przestawna do tego nie wystarczy??
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...
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...
Jeśli wszystkie potrzebne dane już są w Arkuszu2 to może wystarczy tabela przestawna z filtrem nazwisk i miast?
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).
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...
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...
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...
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...
[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,...
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 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)...
(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...
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...
[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...
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
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...
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"...
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym 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...
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.
Można skorzystać z sum pośrednich lub tabel przestawnych
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_...
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...
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
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.
!R1C1:R24944C10 to bym chciał by było skasowane To, co chcesz skasować, to przecież zakres danych do tabeli przestawnej.
na youtube są tutoriale jak samemu zrobić takie makro.
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...
powinien pozostać tylko jeden wiersz z zsumowanymi danymi liczbowymi i tym numerem. A jeśli będzie więcej tych samych numerow? np. 1.1.15.202 , 2.3.11.204 Dlaczego nie zrobić tabelę przestawną?
Nagrałeś makro tej operacji? Przyjrzyj się własnościom: PivotCache.SourceData oraz PivotCache.Refresh Jeśli zakresy masz nazwane to: lista (w arkuszu lub pobierane przez Items.Add), Pole Kombi i Select Case.
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...
Wyślij tylko tabela przestawną lub całego arkusza? 'plik xlsm „Z” ' za każdym razem wyczyszczone?(Arkusz1)
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 ;-)
czy istnieje możliwość sumowania danych w wielu arkuszach tj. arkusz1 - jabłka 5 - gruszki 10 arkusz2 jabłka 4 - śliwki 3 w arkuszu3 chciałbym przepisane nazwy i sumę wszystkich rodzai. Oczywiście arkuszy jest więcej. próbowałem konsolidacji i tabeli przestawnej - chyba tylko makro.
Czyli wygląda, że da się wskazać obszar do skopiowania - sprawdź czy CtrlA zaznaczy prawidłowo, a plik? Czy możesz tak to zorganizować żeby plik był zawsze w tym samym miejscu a nazwa (przynajmniej część) była zawsze taka sama? Nie warto robić ręcznie tego co się da łatwo zautomatyzować, unikniesz w ten sposób pomyłek. Zamiast się bawić indeksami spróbuj...
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...
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")...
makro tabela przestawna makro tabela przestawna wiersze tabela przestawna
oryginalna bateria nokia pralka samsung falownik silnika synology ds220j
ws504 regulacja głośności jakie cisnienia r407c
Modicon M221 – wymiana baterii BR2032, lokalizacja, procedura, Schneider Electric Migająca czerwona dioda w Kukirin G2 Max - co oznacza?