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]
Czy ktoś ma pomysł na to aby nie zaznaczał całych kolumn A:G tylko aby zaznaczył od komórki A4 do komórki GX Taki efekt możesz uzyskać poprzez wstawkę kodu: [syntax=vbscript]Set thisWb = ActiveWorkbook Set wksK = thisWb.Worksheets("Kosztorys") Lastrow = wksK.Cells(Rows.Count, 1).End(xlUp).Row wksK.Range("A4:G" & Lastrow).Copy[/syntax] ale efekt takiego...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
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...
sprawdź . .
W nowszych wersjach jest zapewne "Ten skoroszyt". W załączniku jest już wklejone. Jeśli tylko 1-szy arkusz i tylko jeden warunek, to może filtrem go (w załączniku)? Jak już pisałem, przypisać dane z (jak wynika z opisu, ostatniego) wiersza, to żaden problem. Za to wzorów druków PZ jest w Internecie mnóstwo. A znając życie i tak będziesz musiał zrobić/dostosować...
Jeśli dobrze rozumiem, to tak:
[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...
Witaj. Da się nawet bez makro - można stworzyć pomocniczą kolumnę pozycja, wypełnić ją odpowiednią formułą i posortować według wartości w niej wygenerowanych. Na koniec można usunąć pomocniczą kolumnę. Na lenia można to w rejestrator makr upakować. A można też napisać poprawne makro (nieco je optymalizując). Ale na początek najprostszy sposób - bez...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Masz dwa przykłady, wybierz sobie pasujący lub skoryguj pod własne potrzeby. 912573 Przyjrzyj się nazewnictwu przycisków, ale nie temu na samych przyciskach, tylko ich nazwom kodowym - w nazwie każdego z nich znajduje się nazwa tabeli, której dotyczy - to identyfikator: 912574
Nowego arkusza w tym samym skoroszycie? Dołącz plik przykładowy. Jeśli wiesz, wszystkie wartości 1A, 1B, 2A, 2B itp to nie potrzebne makra, w Excel => 2007 jest formula(funkcja)
Może makro napisać co przeszukuje komórki.
w Arkuszu1 ustawiam automatycznie filtr na wartości równe 0 lub "Blanks" w kolumnie V i chciałbym aby makro automatycznie skopiowało wszystkie wiersze do Arkusz2. Wszystkie wiersze z tabeli czy wszystkie WYFILTROWANE wiersze z tej tabeli??
czy są w ogóle w excelowskim vba jakieś komendy służące do rysowania tabel? Nagraj makro wstawiania tabeli to się przekonasz :) W sumie to jedna, dwie linijki, gdzie zakres jest typu string, więc łatwo podstawić wartości ze zmiennych. Jeśli ilość kolumn i nagłówki są stałe można wyrysować tabelkę z jednym wierszem i wstawiać kolejne, wplatając polecenie...
idat wpisywane recznie, na poczatku nowej I zmiany, lub gdy juz potrzeba wpisac dane I zmiany(nowej). wtedy kasuje sie tabela I, II, III zmiany. Makro dodaje nowy wiersz ze wpisana data. Dane w 'Tabela zapisu ' gotowe kazdy raz, jak byly zmiany w itab
Do poczytania: http://www.rondebruin.nl/win/section1.ht...
Procedura jest prawie dobra. Zapisu do pliku dane.txt można dokonać przez:[syntax=vb] Open "C:\dane.txt" For Output As #1 [/syntax] Ponieważ zapisujemy do pliku a nie odczytujemy z niego (linia po linii), zapis [syntax=vb] Do Until EOF(1) .... Loop [/syntax] nie ma sensu i należy go usunąć.
Jeżeli wszystkie tabele masz w tych 100 arkuszach i masz je numerowane po kolei to wystarczy dodać nad tym formatowaniem pętle z dodaniem zmiennej dla nazwy tabeli: [syntax=vbscript] Dim NazwaTabeli as String Dim NumerTabeli as Integer For NumerTabeli = 2 to 100 ' Czy inny zakres jaki Ci potrzebny NazwaTabeli = "Tabela" & NumerTabeli '... Tutaj Twoje...
Po obróbce przez makro ta tabela powinna wyglądać jak ta po prawej stronie Takie kody tylko na elce :) [syntax=vbscript]Sub elka() Application.DisplayAlerts = False x = 3 Do While Cells(x, "B") <> "" a = Application.CountIf(Columns(2), Cells(x, "B")) With Union(Cells(x, "B").Resize(a), Cells(x, "G").Resize(a)) .Merge .VerticalAlignment = xlCenter...
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...
OK, dam znać jak coś znajdę, jednak nie dzisiaj :)
Czekamy aż zrezygnujesz z prowizji...
Dzień dobry, proszę o pomoc w napisaniu makro, które wykonuje poniższe czynności: 1. Zaznacz całą widoczną tabelę (tabela może mieć różną ilość wierszy). 2. Skopiuj zaznaczoną tabelę do kolejnego arkusza. 3. Dodaj kolumnę z lewej strony tabeli, która będzie częścią tej tabeli. 4. W nowo dodanej kolumnie wypełnij wartości do końca tabeli (tabela może...
Witam ponownie Dzisiaj proszę o pomoc w zwiazku z tematem, który czesciowo rozwiazalem. Mam kilkanascie plikow o nazwie: litera alfabetu.xlxs, czyli: a.xlxs, b.xlxs, ... W nich sa zapisane wartosciami 3 kolumny: A B C Z tych kolumn potrzebuje skopiowac kolumny B i C (jedno pod drugim)do nowego pliku, w ktorym mam przycisk i do niego przypisane makro....
Witaj. To nie wygląda na makro dodające nowe rekordy do tabeli. Właśnie przy funkcji dodania nowego rekordu do tabeli można dopisać interesujące Koleżankę mnożenie.
Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Nie do końca. Makro "start" odświeża 3 tabele i planuje jednorazowe uruchomienie makra "button3". Żeby działało co zadany czas musisz wywołać procedurę "start" w "button3". Co może być nie tak? makro czasem działa, czasem nie. Wpisz jawnie nazwę arkusza, w którym znajduje się...
Budujesz sobie string'a, mamy Np SourceData:="Arkusz1!R4C1:R111C29" widzisz, że argument jest w cudzysłowach - znaczy jest typu String. String możesz złożyć z kilku części, używając znaku "&" - Np SourceData:="Arkusz1" & "!R4C1:R" & "111" & "C29" i tu zamiast Np numeru wiersza możesz podstawić zmienną (niekoniecznie typu String), wtedy Dim ostW as Long...
4 komórki do których klient wpisuje dane, nie zaptaszkowac dla ochrony. Worksheets("arkusz1").Protect "hasło", userinterfaceonly:=True Zrob to recznie(odpal makro), nastepnie plik jako udostępniony dla wielu użytkowników. Tabela jest zablokowana, dla makro NIE. Worksheets("arkusz1").Protect "hasło", userinterfaceonly:=True - to umiesc w Workbook_Open
Sprobuj na początku makra Application.ScreenUpdating = False na koniec Application.ScreenUpdating = True Ale to jest OK, ponieważ w tabeli 1 indeksy zapewniają wszędzie, musimy przejść przez całą listę dla każdego indeksu tabel 2. w tabeli 1 w kolumnie B poszukiwana wartość może być ukryta w tekście Jeśli nie to, można spróbować innej metody. Dodano...
W załączniku.
[syntax=vb] Cells.Select Selection.Copy Sheets("Sheet2").Select Range("A1").Activate ActiveSheet.Paste Sheets("Sheet1").Select [/syntax] generalnie zamiast dodaj jakiąś pętlę FOR zeby zamiast "Sheet2" pojawiała się kolejna akrusz
Masz świadomość tego, że żeby Ci przedstawić poprawny kod, to trzeba do testów stworzyć bazę z tabelami i formularzem? Może i to niedużo roboty, ale zawsze zajmuje czas... Akces, to nie tabelka w Excelu. Im dalej w las, tym więcej przed Tobą problemów i pytań, skoro taki prosty kod (skopiowany z sieci) jest dla Ciebie problemem. [syntax=vbscript]Private...
a.Range("C" & x + 5 & ":BL" & x + 88).Copy b.Range("C" & s + 5 & ":BL" & s + 88).PasteSpecial xlPasteValues podmień (czyli wywalasz te dwie linijki) [syntax=vbscript]b.Range("C" & s + 5 & ":BL" & s + 88) = a.Range("C" & x + 5 & ":BL" & x + 88).Value[/syntax]
zamiast ActiveWorkbook.Worksheets("reporting 27.01") naprosto ActiveSheet p.s. ThisWorkbook to caly skoroszyt, w którym makro
Witam mam identycznie zbudowane tabele przestawne oparte o tę samą tabelę danych. Znajdują się na dwóch oddzielnych arkuszach. Różnią się tylko informacjami dotyczącymi wyników. Czy mozna zrobić makro , które umożliwi zarejestrowanie kazdej akcji (np.wyboru ) na jednej tabeli i dokona tej samej akcji na drugiej tabeli. pzdr. moze najpierw zrobic to...
Cześć, Jestem początkująca w pisaniu makr w VBA. Chciałabym przekopiować tabelę z Worda do Excela. Tabela ta może mieć różną liczbę wierszy i kolumn w zależności od tego kiedy będzie tworzona. W jaki sposób mogę to uwzględnić w kodzie? Drugie pytanie- tabela jest duża. Czy mogę zaznaczyć w kodzie, że zależy mi żeby zmieściła się na jednej stronie w...
W tabeli 1 kolumna D może być ukryta
taka formuła rozwiązuje temat =JEŻELI.BŁĄD(INDEKS(E:E;AGREGUJ(15;6;JEŻ... trzeba ją wpisać w Q14 i przeciągnąć i uruchomić. Temat zamykam, dzięki.
Witam Mam do zrobienia ponad 600 wierszy tabeli w MS WORD 2010. Mam 2 kolumny w jedną wpisuję X - w drugą blabla i to X ma inne formatowanie niż - blabla ręczne przepisywanie tego i ustawianie zajmuje za dużo czasu już po 30 się poddałem. Istnieje jakaś możliwość ułatwienia sobie tej roboty ? Np wklejam do worda linijka pod linijką ciąg znaków a on...
W jaki sposób makro ma wiedzieć, które miasto należy do danego województwa? Masz gdzieś tabelę miast/województw? W danych wejściowych w kolumnie A powinno być przypisane przy każdym mieście województwo, albo jeśli kolumna B jest pogrupowana już województwami (a w przykładzie jest) to musiałyby gdzieś być jakiekolwiek znaczniki, że już kolejne województwo...
Patrz makro, tam 2 varianty
Jeśli dobrze zrozumiałem Twoje intencje, to wystarczy jeden listbox w formularzu (patrz załącznik). Filtrowanie listy na podstawie wyboru realizuje się nieco inaczej. [url=http://www.elektroda.pl/rtvforum/to... są przykłady.
Witam, Mam problem z makrem, które dzieli duży plik na zakładki, filtrując po nazwie miasta. Makro działa w pętli, pobierając nazwę miasta z tabeli, ale przerywa działanie, gdy w zestawieniu brakuje danego miasta. Jak zrobić, aby zapisało pustą zakładkę i przeszło do następnego rekordu w tabeli.
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Z tego co widzę próbujesz sumować warunkowo dla wybranych klientów? Dlaczego nie używasz filtra? Można odfiltrować niepotrzebne, skopiować do nowego arkusza. W swoim przykładzie odwołujesz się do całych kolumn (Np A:A), co zdecydowanie spowalnia działania na tablicach. Dlatego zamieniłbym zakres na tabelę Excela. (zaznacz, Menu>Wstw>Tabela). Zamiast...
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
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
Jak można zrobić, żeby przed uruchomieniem tej procedury makro sprawdziło czy w tabeli ("A3:D&) nie ma już danych osoby wstawionej do komórek Przykładowo - sprawdzanie nazwiska (w praktyce trzeba by zastosować rozbudowany słownik bo mogą występować pracownicy o tym samym nazwisku :D ) można zrobić poprzez małą modyfikację Twojego kodu :spoko: [syntax=vbscript]...
Jeśli będziesz miała otwarte oba pliki (tylko :!: ) to w świeżym pliku możesz wykorzystać makro typu :spoko: : [syntax=vbscript]Option Explicit Sub duplikatclear() Dim ws As Worksheet Dim ww As Worksheet Dim i, lrs, lrw As Integer Dim db As Range Set ws = ThisWorkbook.Sheets(1) Set ww = Workbooks(2).Sheets(1) lrs = ws.Cells(Rows.Count, 6).End(xlUp).Row...
Załączam plik z makrem przekształcającym tabelę.
A stosowałaś filtr zaawansowany? Na początku jest trochę skomplikowany do zrozumienia ale potem spoko. Dodam że jeden wiersz w kryteriach to wspólne kryteria dla poszukiwania w danej tabeli. Dodatkowy wiersz to "LUB" dla kolejnych warunków z tego wiersza itd. (tu na razie niepotrzebny) Ustawiasz kryteria Stajesz na nagłówku tabeli. Menu Dane - Sortowanie...
Jak dodajesz wiersze do tabeli, to zawartość wierszy pod spodem przesuwa się w dół, ale wysokości wierszy pozostają bez zmiany (nie przesuwają się). Jest tak dlatego, że poza obrębem tabeli (w innych kolumnach) może być inna zawartość wymagająca innej wysokości wierszy. Żeby przesunąć wszystko w dół wraz z wysokościami wierszy trzeba wstawiać całe wiersze....
Moim zadaniem jest napisanie makra, które działa na pliku zawierającym dwie tabele. Jedna z nich to stan początkowy, druga to stan końcowy. Makro powinno kopiować dane z tabeli stanu końcowego, tworzyć nowy plik (taki sam jak poprzedni) i wklejać dane do tabeli ze stanem początkowym. Dodatkowo fajnie byłoby gdyby nazwą nowo stworzonego pliku była data....
Ja tym czasem spróbuje rozgryźć działanie nie powiodło się To makro(checkb_XY) - pod warunkiem, że tabela jedna dowolnego rozmiaru i w górnym lewym rogu. det() określa rozmiar i umieszcza wartośći checkbox'ow. Poniewaz "w górnym lewym rogu" to warunek 'If t(1, x) Then' sprawdza checkbox w 1 wierszu ostatny(zaznacz wszystko). Masz w projekcie jednakowe...
Witam, chciałbym napisać makro, które przepisze mi komórki z tabeli do Worda. Niestety nie mam pomysłu jak to zrobić, gdyż nie znam rozmiaru tabeli. Pytanie brzmi czy może ktoś już coś takiego zrobił, albo chociaż wyobraża sobie jakby to mogło działać? Potrzebuje czegoś na kształt funkcji EOF. Będę wdzięczny za wszelkie wskazówki. Pozdrawiam
To jest wiersz drugi, cały. W pierwszym jest nagłówek tabeli.
Zamiast używać dodatkowej funkcji końcowej, wystarczy posortować tabelkę liczba-ilość wystąpień wg. ilości wystapień, malejąco. To tylko 10 niezmiennych pozycji liczb ... To wiem, tylko jeżeli coś się zmieni w tabeli trzeba będzie znowu sortować Co prawda można to zautomatyzować przez makro - ale to już makro :) do autora topiku chodzi o zwykłe sortowanie...
SUPER! bardzo dziękuję Makro działa, tabela niestety nie ma racji bytu, ponieważ w kolejnych wierszach tabeli będą się zmieniały wartości czy nie zawsze będzie szukać B, a makro wyszukuje z całości jedną daną. Mam natomiast inne pytanie, czy mogę przekopiować to makro do innego skoroszytu? Pytanie banalne, no ale coś mi to nie idzie, jak pisałem wcześniej...
Powinno działać: [syntax=vbscript]Sub ostatnie_30_dni() ' ' ostatnie_30_dni Makro ' Dim ost As Long ost = Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row ' ActiveSheet.Range("A4:B" & ost).AutoFilter Field:=2, _ Criteria1:=Range("L2").Value, Operator:=xlAnd End Sub[/syntax]Twój kod odwoływał się do tabeli, a w pliku tabeli nie było. Może dlatego nie...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
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, dzis kolejna zagadka-zagwozdka: sa w Excelu dwie tabele (rozmiar taki sam) obie maja identyczne wartosci w pierwszej kolumnie z ta roznica, ze nie koniecznie w tej samej kolejnosci. Pierwsza tabela (powiedzmy - A) jest wypelniona, tabela B jest pusta (oprocz oczywiscie pierwszej kolumny). I teraz zaczyna sie jazda: chodzi o to aby makro wyszukiwalo...
Witam, potrzebuje makra, które przepisze komórki z tabeli w Wordzie do pliku tekstowego, każda komórkę w oddzielnej linii, oto kod który już mam; [syntax=vb] Sub zapisywanie() Dim numczesc As String Dim kontakt As String Dim dataorg As String Dim datarev1 As String Dim datarev2 As String Dim numczek As String Dim sklad As String Dim zatwinz As String...
Wielkie dzięki za kod. A czy rozbudowa tego kodu o większą liczbę wypełnianych w arkuszu 1 komórek (i zmian układu tabeli w arkuszy 2) to tylko kwestia ich dodania czy może trzeba coś więcej przerabiać. Próbowałem tak zrobić ale moje umiejętności w VBA sa mizerne i chyba coś namieszałem bo jakieś błędy teraz wywala. Końcowa ilość komórek i układ tabeli...
witam, potrzebuje pomocy na utworzenie makra - postaram sie dobrze wytlumaczyc tabela 1 : kolejnosci rozladunkow- ktore zmieniaja sie w trakcie pracy mamy max 10 rozladunkow na auto. 1 kolumna- klient, 2 kolumna- tempteratura, 3 kolumna- kod trasy tabela 2 : lista wszystkich klientow przewidzianych w ciagu dnia do rozladunku 1 kolumna- liczba palet:...
Czesc, Tak w formie tabeli.
sumowanie warunkowe
Po co tu makro, jak wystarczy AutoFiltr ?
Wiem że zabrzmi to głupio ale... jak to właśnie zrobić, jak stworzyć pętlę która po przeczytaniu zawartości komórek wiersza zwróci mi symbol konkretnej klasy?
Przetestuj makro z załącznika.
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.
Po co komplikujesz sobie życie? Wydziel kolumnę dla godziny, zaznacz kolumnę z nazwiskami i zastosuj formatowanie warunkowe (duplikujące się wartości)...
Tak ma analizować tabele dopóki nie znajdzie wartości "k" tak to wstępnie obmyśliłam.. to oczywiście nie jest rozwiązanie idealne, ale tabela jest aktualizowana przez system i ma zmienne wartości.
Jak zrobić to automatycznie, jakimś makrem? Proponuję na początek nauczyć się "szanować dane źródłowe" swojej bazy :-) Zmiany wprowadzone makrem do bazy mogą być nieodwracalne !!! Zatem podobne zmiany w tabeli bezpieczniej jest dokonać poprzez utworzenie kwerendy np. tak jak na zrzucie 1177947
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(&...
O przykładowy plik word'a chodziło, i tej tabeli w nim ...
Witam, serdecznie poszukuje pomocy odnośnie wykonanie Makra, które by czytało dane z tabeli, wstawiało dokładnie jedna dana w dokładnie jedno miejsce oraz drukowało tak przygotowany arkusz oraz numerowało strony od 1 . Chodzi o to by Makro wzięło z tabeli z pierwszego wiersza 3 dane, z każdej kolumny inna wstawiło do następnego arkusza oraz wydrukowało...
Nie jest potrzebne makro. Wystarczyłaby funkcja SUMA.WARUNKÓW, gdyby nazwy z listy "typ_aktywności" były zgodne z nagłówkami tabeli (wiersz Nr2 arkusza "Rozliczenie tygodniowe"). Chodzi o Np "spotkania" / "spotkanie" etc.
Bardzo ciekawe rozwiązania. Nie miałem pojęcia, że można to rozwiązać w taki sposób. Jednak wymagają one wkładu manualnego tj. np. trzeba ręcznie zmienić nazwę arkusza aby zaczytało odpowiednie czynności. Gdybym miał to robić ja - podziękował bym CI jeszcze raz za pomoc i korzystał z tych rozwiązań. Niestety, nie będę miał dostępu do tego Excela z tabelą...
Użyj bazy danych
W zasadzie wszystko działa idealnie oprócz tzw. przeksięgowania ... :D Wpisuję numer RZ w komórkę "G-1" a następnie przyciskiem "Obciąż RZ" zdejmuję liczbę podzespołów z arkusza "RZ" ... :?: mechanizm arkusza "robi" rozliczenie tak jaby wszystkie dane tabeli arkusza "Przeksięguj" dotyczyły tylko RZ zawartego w komórce "G1"... :?: Po pierwszym użyciu...
Zobacz makro z przykładowego załącznika. Jest pewnie dalekie od ideału i ze względu na to, że wrzuciłem tam pewnie kilka założeń za dużo, to się trochę zbędnie skomplikowało. Optymalne szczególnie też nie jest, ale brak wszystkich możliwych założeń uniemożliwia jakiekolwiek optymalizacje. Makro powinno sobie poradzić z dowolnym formatem daty, o ile...
Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...
wyszło zupełnie inaczej niż we wzorze Mówisz zupełnie inaczej. A co konkretnie? Nie wstawił wiersza 4 (Twojej tabeli 3). Nie przeniósł daty z C3 do C4? Nie zsumował D2 i D3 w D4?
Do arkusza nie musisz odwoływać się po nazwie. Skoro nagrywałeś makro, to pewnie masz dodawanie nowych arkuszy na końcu. Możesz odwołać się np. do ostatniego lub przedostatniego arkusza w kolekcji:[syntax=vbscript]Worksheets(Wor... Worksheets(Worksheets.Count - 1)[/syntax]i na nich robić co tam potrzebujesz. Z tabelami podobnie - jeżeli masz...
Witam Proszę o pomoc. Czy istnieje możliwość utworzenia makra dodającego wiersz do tabeli w pierwsze wolne miejsce? Chodzi mi o wprowadzenie danego wiersza (kilka wypełnionych komórek) do tabeli, z której będą po czasie usuwane pojedyncze wiersze, a makro ma wprowadzać wpisane komórki w pierwszym wolnym wierszu tabeli. Bardzo proszę o pomoc. 979805...
Kolega lanzul pomógł mi rozwiązać problem z usuwaniem wiersza tabeli, w którym jest konkretny wyraz. https://www.elektroda.pl/rtvforum/viewto... Tych wyrazów jest znacznie więcej, dla których potrzebuję usuwać te wiersze. Dlatego potrzebuję zbudować pętlę, która będzie brać kolejne wyrazy z jakiejś listy i będzie wykonywać to...
ja bym zrobił tak, ze zrobiłbym rzeczywiście pomocnicza kolumnę C, gdzie łączyły by się zawartości obu kolumn np =A2&B2. Wtedy wkepujemy funkcję wyszukaj pionowo w kolumnie D gdzie będziemy wyszukować wartości z kolumny C ( z arkusza docelowego) i porównywać je z tabelą z arkusza roboczego odnoszącej się do kolumny nr 3 (jeżeli zaznaczasz jako tabelę...
No niestety, zrobiłam tak jak napisałeś, dodałam 'val' i nie uaktualnia się to tak, jak powinno Na podanym przykładzie z (pliku) 1-go postu u mnie makro działa. Czy to jest oryginalny plik? Najlepiej załącz lub podeślij na pw.
Chociażby namiastkę obsługi błędów - makro zatrzymuje się, gdy trafi na pracownika bez podanych miesięcy kalendarza ... dodanie obsługi błędu. Tylko co w takim przypadku - makro ruszy dalej po uzupełnieniu miesięcy dla pracownika czy trzeba "zapodać" makro od początku? chętnie bym zobaczył w pliku - mianowicie "RESET" do stanu początkowego Zrobione...
Witam, nie jestem w stanie znaleźć przyczyny nieoczekiwanego działania makra. Plik w załączeniu. W zakładce Summary sa 4 tabele przestawne ciągnące dane z dwóch zakładek i prezentujące dwa pivot itemsy dla każdej z zakładek: Bad goods i alert. Generalnie każda z tabel ma pokazać wszystkie wartości za wyjątkiem kilku, oraz pokazać je po odpowiednim posortowaniu....
Dziękuję wam bardzo PRL i markoz7874, pomogliście mi ogromnie :D Nie chcę przeginać, ale miałbym ostatnie pytanko, jeżeli ta tabela byłaby w nagłówku, to jak zrobić aby makro operowało właśnie na nim, a nie w treści dokumentu?
Czesc, czy widzial z was ktos moze makro ktore eskportowaloby wszystkie nieukonczone zadania do wiadomosci email ? Dajmy na to do jakiejs tabeli, tak aby mozna je wyslac dalej.
Nagraj makro i będziesz wiedzieć.
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...
Cześć. Mam nagrane makro na sortowanie tabeli ale chciałbym aby ono się automatycznie uruchamiało po wstawieniu daty (lub po prostu wypełnieniem komórki) w kolumnie C (obojętnie w którym wierszu). Czy ktoś byłby tak miły i napisałby mi taki kod? Przykładowy plik w załączniku. Makro które chcę aby się automatycznie uruchamiało ma nazwę sortTabeliDoZrobienia...
Wyszukaj.pionowo() w tym przypadku raczej nic nie da. Najprościej to wykonać za pomocą autofiltra i kopiowania, kilka minut roboty. Można też napisać krótkie makro, ale to nie jest moja mocna strona :( Załączam pliczek po kopiowaniu autofiltra.
Przepraszam że zawracałem Ci głowę, ale tylko dlatego że jestem bardzo cienki w temacie makr. Chciałem coś zrobić w swojej tabeli wykorzystując makro do Daty i Godziny. I tak bardzo dużo mi pomogłeś, bo według mnie, laika, bardzo dobrze to działa. Próbowałem sam kombinować aby zliczało to w określonym zakresie, ale cóż, nie powiodło się. Jeszcze raz...
makro tabela przestawna makro kopiowanie tabela makro tabela przestawny
iskrownik ustawić urwany kabel cewki wałka laserowej
pilot uniwersalny manta pilot uniwersalny manta
Rurka na wzbudnik do nagrzewnicy indukcyjnej 1 kW Samochód odpala na N na zimno, na P po rozgrzaniu