Podstaw pod argument Source - jest typu string... 1. znajdź ostatni wiersz i przypisz do zmiennej: ostW =Range("A" & rows.count).end(xlup).row jeśli nie ma nic "pod spodem" lub ostW =Range("A3").end(xldown).row jeśli kolumna A jest zawsze pełna. Jeśli nie, wybierz inną - pełną (bez dziur) 2. podstaw zmienną do string'a ... SourceData:= _ "Arkusz1!R4C1:R"...
Witaj Katarzyna, Co zrobić, jeśli masz te same zakładki w różnych plikach? i jeszcze wyśle e-mail Wyślij tylko tabela przestawną lub całego arkusza? Z drugiej strony, trochę dziwne w Etykiety wierszy - ilość
...albo zrobić tabelę przestawną z indeksem w wierszu + licznik z indeksu?? :)
Dodałem plik zawierający makro. Ja w tym pliku żadnego makra nie widzę :] Ani tabeli przestawnej która może się psuć... Natomiast widzę że jest to plik z rozszerzeniem .xls, który ma ograniczoną ilość wierszy do 65536. Może to jest przyczyną - jeżeli jakimś cudem możesz mu zapisać 130.000 wierszy, spróbuj użyć rozszerzenia .xlsx (lub .xlsm, jeżeli...
Nie za bardzo wiem o czym mówisz. Jeśli posortuję za pomocą tabeli przestawnej to wiele wierszy jest pustych i wtedy makro przestaje dzaiałać, a może coś na zasadzie pętli, jeśli tekst w komórce to łamie strone? Nie wiem ja tylko głośno myślę. (po prostu wydruk jest dużo bardziek przejrzysty, ale jeśli nie to i tak jestem bardzo wdzięczny)
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, Chciałabym aby makro dla konkretnych nazw z pierwszej kolumny kolorowało cały wiersz tabeli przestawnej. Dla przykładu nazwa "ABC".O ile nazwa pojawia się w pierwszej kolumnie wszystko działa dobrze, ale gdy nie ma takiego wiersza pojawia się błąd. Jak mam poprawić makro tak aby nie pojawił się błąd tylko w razie braku nazwy "ABC" makro przeszło...
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...
Witam, potrzebuje pomocy w napisaniu makra, które będzie działać jak w poniższym opisie: Mamy dwie takie same tabele w jednym arkuszu. Nie są to tabele przestawne. Mają po 26 wierszy oraz po 14 kolumn. Jedna mieści się w zakresie A14:N39 a druga poniżej, obejmuje zakres A42:N67. Do pierwszej wczytywane są dane z innego pliku o nazwie kalkulacja.xlsm,...
Niestety :( nie moge zastosowac formuł ani tabeli przestawnej. Ponieważ liczba wierszy dla poszczególnych tabel miesięcznych jest zmienna. Czasem w każdej tabeli miesięcznej są 4 wiersze z rodzajami zasobów a czasem i 15 i wiecej. Wszystko zależy od projektu. W związku z tym każdą kolejną tabelą z automatu przesuwa się w dół i nie pozostaje za każdym...
Witam To też zadziała ale w tej postaci [syntax=vbnet]For Each cell In Columns("AE").Cells cell.Value = Trim(cell.Value) Next[/syntax] Nie wiem tylko dlaczego odwołujesz się do całej kolumny AE gdzie przy excelu 2010 jest 1048576 wierszy i makro musi "przemielić" cały zakres lepiej ustawić konkretny zakres lub użyty zakres wtedy makro będzie działało...
Tylko czemu wynik jest dopiero od 435 wiersza? Najprawdopodobniej masz jakieś puste wiersze, które makro widzi jako puste wartości. Spróbuj dopisać klauzulę WHERE. przypuśćmy,że mam jeszcze jedną tabelę tylko z dwoma kolumnami: material no( z nr komponentów-nie powtarzają się) i stock( ze stanami zapasów). W jaki sposób mogę połączyć teraz te dwie...
Witam Pojawił się kolejny problem do rozwiązania. Czy można przerobić makro, które opracowałeś tak aby pokazywało w arkuszach z poszczególnymi sklepami tabele przestawne. Chodzi o podsumowanie danych jakie kopiują się do arkusza poszczególnego sklepu. Tabela powinna zawierać informacje dotyczące Grupy , Podgrupy jako etykiety wierszy (w tab. przest.)...
Problem nie jest tak naprawdę z tabelą przestawną tylko z tą zakładką do której wczytywane są dane. Wybieram opcję pobierz dane (makro), wybieram folder i wtedy ten raport zbiorczy pomija mi przy zrzucaniu punkty. Zrzucam to do zakładki dane i tabela przestawna działa prawidłowo, ale brakuje pominiętych wcześniej punktów. Tabela działa ok. Dodano po...
Witam! Mam makro, które mi obrabia dane z tabeli przestawnej i wyświetla je jako kolumny i wiersze (przyrost danych jest jako kolejny wiersz). Pytanie brzmi. Jak napisać makro, które zmieni mi zakres danych wykresu kołowego na jeden wiersz w dół? Np. Dziś jest tak: ActiveChart.PlotArea.Select ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1)....
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ą?
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Dziękuję za zainteresowanie tematem i odpowiedź. Wiem, zadanie nie jest łatwe. Zastanawiałem się jeszcze nad jednym arkuszem, i kolumną "ID" gdzie byłyby zapisywane nazwy tych "sekcji" czyli Counter, LearnStarted itd., ale chyba byłoby to bardziej skomplikowane, i dane prezentowane w ten sposób, trudne do obróbki np. tabelą przestawną :(. Bazując na...
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...
Niestety nie może to być tabela przestawna bo dane mają wpisywać się do pewnej przygotowanej już przez kogoś innego tabeli stanowiącej Formularz, z którego będą korzystały różne osoby. Dodano po 17 Właściwie to metodą prób i błędów większość udało mi się zrobić. Dla UserForm1 i UserForm2: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing...
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...
Witajcie! Wiem, wiem... powiecie, że temat był przerabiany wiele razy. To ja też wiem, gdyby chodziło o samo liczenie to nie byłoby najmniejszego problemu. Mój problem jest jednak bardziej złożony. Arkusz służy do rozliczania czasu pracy pracownika budowlanego. Tabela pokazuje dany miesiąc, poszczególne wiersze to dni miesiąca, a kolumny to symbol budowy,...
Tak jak kolega powyżej pisał - wystarczy zrobić tabelę przestawną. Jeśli chodzi Ci dokładnie o taki układ jaki zamieściłaś, to tabela musi być odpowiednio sformatowana. Dodatkowo zastosowana jest opcja powtarzania elementów - ale pamiętaj, jest ona dostępna dopiero od wersji 2010. Przy okazji wprowadziłem dynamiczną definicję zakresu danych. Przy odświeżaniu...
Witam, mam tabele przestawna w VBA która w kolumnach pokazuje mi wybrane wiersze z kategorii "Team" z moich danych. Potrzebuje sposoby na to żeby w momencie kiedy danych z poszczególnej kategorii nie będzie w exelu makro omijało ten pkt. i przechodziło dalej. np. [syntax=vbscript]With PT2.PivotFields("TEAM") .Orientation = xlRowField .PivotItems("1").Visible...
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...
Cześć Chciałem zrobić makro które będzie mi pokazywać tabele przestawną w której w kolumnach bede miał czynności w wierszach negocjatorów a w wartości kwotę ustaleń, jednakże cały czas pojawia mi się błąd za każdym razem w innym miejscu. Czy możecie mi powiedzieć w którym miejscu w kodzie jest błąd i co należałoby poprawić? [syntax=vbscript]Sub Makro()...
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...
Jeżeli chcesz to w jakiś sensowy sposób używać, to na pewno musisz zmienić formę, w jakiej trzymasz dane, to nie podlega dyskusji... Nie tak jak masz teraz że kolejne daty dopisujesz sobie w prawo, tylko kolejne wiersze muszą być jeden pod drugim, coś w stylu: Nazwa - Typ (P, W) - Data - Ilość Myślę, że można też wrzucić kolumnę z daty wyciągającą rok-miesiąc....
Cześć! Jestem tu nowy, i to mój pierwszy post, ale zacznę z grubej rury, mam nadzieję, że ktoś będzie mi w stanie pomóc. Mam taki problem ze stworzeniem makra w Excelu (2010) poprzez VBA. Potrzebuję zrobić makro, i podpisać je pod przycisk (formant ActiveX). Makro ma za zadanie brać wartość z tabeli przestawnej, i w zależności od wartości kolorować...
Witam, jestem całkiem zielony w arkuszach kalkulacyjny jeśli chodzi o makra i potrzebuję pomocy. Utworzyłem skoroszyt w którym są trzy arkusze. Pierwszy to tabela przestawna, drugi to arkusz zbiorczy a trzeci to raport o nazwie '01'. Potrzebuję napisać następujące makro po włączeniu którego wartości z komórek od AS5 do BU5 z raportu będą kopiowane do...
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)...
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ć...
Witam, Mam problem - otóż próbuję stworzyć makro które wykonuje mi tabelę i wykres przestawny dla zmiennych danych źródłowych które znajdują się w innym arkuszu. W innym arkuszu mają być generowane wykresy przestawne - jeden po drugim. Jeden wykres przestawny mi się generuje ale teraz poszukuję kodu który automatycznie wynajdzie mi powiedzmy 5 wolną...
Witam Mam pewien problem z makrem. Załączyłem plik zeszyt1.xls. w którym są dwa arkusze: raport i temp. Zabawa polega na tym, że chcę z arkusza TEMP przekopiować dane do arkusza raport wg konkretnego nadawcy. Zrobiłem makro które to kopije poszczególne komórki tylko w wierszach z wybranym nadawcą ale nadawcę muszę zdefiniować ręcznie w kodzie makra,(np....
Witam, Opracowywuje pewne makro które przyda mi się w pracy. Od razu zaznaczam że jestem raczej kiepski w te klocki. Chodzi o listę numerów telefonów, którą importujemy przez jako plik CSV do kontaktów google i te dalej są synchronizowane do naszych telefonów służbowych. Lista jest bardzo długa, a numery często się zmieniają. Zrobiłem makro, które plik...
Witam W skoroszycie BANK1, mam 4 arkusze w których gromadzę bieżące dane w wierszach/rekordach ( arkusze nazywają się KW, KP, BW, BP ) są to skróty od kasa wydała lub przyjęła , oraz bank wydał lub przyjął. oraz jeden arkusz wynikowy w których chcę różne rekordy zestawić do analizy wg dat i podliczyć saldo po każdej operacji ( arkusz wynikowy nazywa...
takiego założenie nie wykonałem. nie potrafie zrobić już początku :P czyli automatycznego makra po uzupełnieniu danych. Kombinowałem z makrem które się tworzy na podstawie tabeli przestawnej jednak autofiltr nie działa tak jak powinien. W jaki sposób mogę podczas makra usuwać zawartość nie potrzebnych wierszy. Próbowałem poprzez uruchamianie auto filtra...
Witam serdecznie, Próbuje sie uporać z pewnym problemem i nie mogę sobie dać rady, dlatego że nigdy wcześniej nie miałem styczności z MaKRAMI w Excelu ani językiem VBA. Problem jest następujący: Tygodniowo generuje raport z maszyny. Raport ma 27 kolumn (liczba niezmienna) z czego intersują mnie jedynie 4 - nazwa pliku, czas ogólnie, liczba elementów,...
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.
Hej, napisałam kod który tworzy mi tabelę przestawną i do tego wykres przestawny. Problem polega na tym, że wykres przestawny tworzy się jakby do danych aktualnego arkusza danych. W pliku w którym chce wykorzystać makro, wykres przestawny ma się tworzyć dla wskazanych arkuszy, a nie dla aktywnego. Próbowałam to napisać ale niestety nie udało mi się....
Witam Mam bazę danych w Accessie, z której zaciągam dane do exela następującym makrem: [syntax=vb]Sub Zaciagnij() Dim strMyPath As String, strDBName As String, strDB As String, strSQL As String Dim i As Long, n As Long, lFieldCount As Long Dim rng As Range Dim wartosc1 As String Dim adoRecSet As New ADODB.Recordset Dim connDB As New ADODB.Connection...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
Oczywiście da się tak jak chcesz, tylko czy nie łatwiej byłoby zmienić podejście do tematu? Można utworzyć tabelę z nagłówkami do której wpisywane byłyby wszystkie błędy - jeden błąd to jeden wiersz. W wierszu są wszystkie dane - nazwisko rodzaj błędu, kiedy itp. Na podstawie tego robisz tabele przestawną w osobnym arkuszu, filtrujesz po miesiącu -...
Witam, Wyjaśniam co robię z taką ilością danych - po skopiowaniu do już istniejącego arkusza są obrabiane przez formuły excela mające na celu powiązanie ich z innymi danymi (praca na słownikach w kilku innych arkuszach+2,3 duże tabele przestawne zawierające pozostałe dane). Zawsze robiłem wklejanie ręczne ale przy kilkunastu tysiącach wierszy jest to...
Stworzyłem makro, ale kopiuje mi tylko zawsze te same 15 wierszy a nie 15 pierwszych po sortowaniu. ... Niby dziala ale gdy zmieniam dane w sheet1 to niestety makro przestaje dzialac - sortuje wedlug szuflady ale nie kopiuje 15 odpowiednich spraw. W Twoich nagranych makrach praktycznie nic nie działa prawidłowo ani sortowanie ani kopiowanie. Czy mógłbyś...
Cześć, Tworzę tabelę przestawną z modelowaniem danych w excelu. Mam problem z ustawieniem zakresu tylko dla aktywnych komórek. W zwykłej tabeli, bez modelowania bez problemu korzystam z funkcji CurrentRegion, ale tutaj nie potrafię jej zastosować, ciągle Debugi wyskakują. Ktoś pomoże? Kolumny A:Q są stałe, zmienia się liczba wierszy. Workbooks("rejection...
Jeżeli nie ma dużo wierszy (problemy z wydajnością), to sprawdzi się to prościutkie rozwiązanie, podpięte np. do procedury Workbook_open: Private Sub Workbook_Open() On Error GoTo myErr Set wslista = ThisWorkbook.Worksheets("LISTA&... Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume...
Udoskonalając dalej swój arkusz zastanawiam się czy jest możliwe utworzenie rozwiązania dla poniższego problemu: W swoim skoroszycie posiadam arkusz pt."Zestawienie ogólne" , który jest listą wszystkich arkuszy towarowych, arkuszy towarowych może być nieskończoność. Arkusz towarowy jest listą produktów , które dojechały do hurtowni, a wiersz sumy na...
Witam, postaram się skrócić wszystko jak się da. Mam tabelę z przekrojami przewodów oraz długością, np. jeżeli przewód o przekroju 0,5 ma długość 350 to makro musi znaleźć komórki o tym przekroju i długości między 300 a 400 w tym wierszu i je wyświetlić (w tym wypadku komórki D,E,F). Problem polega na tym, że jak daje trzeci argument do If-a to praktycznie...
Dzień dobry Wszystkim, Chcę poprosic Was o pomoc. Chciałbym wysyłać maile z załącznikami (pojedyncze zakładki) oraz okresloną treścią z poziomu EXCELA na podstawie danych z tabeli przestawnej. Moja tabela wyglada mniej więcej tak: http://obrazki.elektroda.pl/1253251300_1... Po podwójnym kliknięciu na komórkę C6 Excel tworzy nową zakładke...
tabela przestawna makro makro tabela przestawna tabela przestawna
dioda przestała świecić toshiba kanały cyfrowe sterowanie oświetleniem komputer
Podłączenie AHD do systemu wideo - jak to zrobić? Gaźnik BVF 30N2-5 do motocykli MZ ETZ 250 i 251