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...
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...
Tak z ciekawości postanowiłem sprawdzić czy da się prostymi formułami. Dla ułatwienia przyjąłem, że maksymalnie może być 5 powtórzeń. Jeśli ma być więcej, trzeba dołożyć warunki w kolumnie H oraz poszerzyć "grupy" w kolumnie N - Arkusz2. Wysokość tabeli wynikowej wg rozmiaru w Arusz1 4x3=12 komórek Trochę prymitywnie, ale działa :) Edit: wyszukaj.pionowo...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Witam, chciałbym napisać makro sortujące od wartości największej do najmniejszej. Musi to być makro gdyż, będzie to częścią innego makro. Posiadam dwie kolumny A i B makro miałoby sortować wg. kolumny A. oto następujące problemy: - w niektórych komórkach występuje błąd #Value! kiedy sortuje od największej do najmniejszej komórki z błędem w posortowanej...
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...
super generalnie jest dobrze. Tzn nie udało mi się przenieść makra do oryginału ale po wklejeniu prawdziwej tabeli do tego zeszytu pracuje prawidłowo. Jedyne czego nie mogę osiągnąć to to aby nie trzeba było klikać makra zastosuj makro sortuj zestawienie tylko było ono automatycznie posortowane w momencie dodania nowej osoby w liście. Jak jako datę...
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...
Niestety tworzenie tabeli przestawnej nie sprawdzilo sie bo orginalny raport (niestety nie moge go udostepnic) opiewa na wiele więcej danych i codziennie musi byc sciagany ze strony. Stworzylam juz makro ktore w calosci porządkuje ten raport ale niestety utknęłam na tym etapie :( ale oczywiscie jeżeli nie dojdę do odpowiedzi to dalej będę próbować z...
Najlepiej aby makro robiło to od początku do końca, bo tak to za każdym razem trzeba bawić się w formatowanie i zamienianie. do tego dojdzie tabela przestawna, sortowanie i dzielenie. Jeśli ktoś ma pomysł jak to ugryźć i byłby w stanie podpowiedzieć/ pomóc to będzie bardzo miło. Tak jak chyba już wspominałem, z VBA raczkuję i nie potrafię sobie poradzić...
adamas_nt, to co robi Twoje makro można uzyskać (chyba...) tym samym sortowaniem o jakim pisał marek003... Albo ja coś źle robię... Ale nadal nie grupuje mi np. nazw miast w jednej komórce, godzin w jednej komórce... Da się to jakoś ugryźć? znalazłem takie makro: Sub scalaj() Dim w As String, i As Long With Selection w = .Item(1) For...
witam, potrzebuję pomocy w zrobieniu makra tak by: 1. posortować dane rosnąco w tabeli wg kolumny A [KOD] 2. ustalić zakres wydruku - wszystkie wiersze wypełnione przez inne makro w kolumnach od A do D oraz puste E i F za każdym razem inna ilość wierszy - od 1 do max. 300, (nie chcę drukować pustych stron). 3. wydruk zakresu wypełnionego danymi na drukarkę...
Na podstawie działania. Kod o nazwie D04 mam np na końcu tabeli a po drodze są inne na litere T i działa wszytsko normalnie więc niema znaczenia. To że w konkretnym przypadku otrzymałeś wynik zgodny z oczekiwaniem o niczym nie świadczy. "Zepsuty zegar też 2x na dobę pokazuje właściwą godzinę" Zrób sobie więcej testów na różnych danych posortowanych...
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
No chciałbym takie coś zrobić. Znalazłem ten temat, ale nie za bardzo mi to dało. Pisze, że mam takie coś wpisać: Private Sub Worksheet_SelectionChange(ByVal Target As Range) nrkolumny = 2 'numer kolumny - B=2 If Target.Column = nrkolumny Then MsgBox "Działa!" 'tutaj Twoje Makro End If End Sub Jak to mam odczytać? Po prostu mam terminarze piłkarskie...
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...
posortował całość (wraz z danymi w tabeli) alfabetycznie Włącz nagrywanie makr zaznacz obszar do sortowania - posortuj alfabetycznie i masz makro.
Nie mam za dużo czasu a akurat do tego przydało by sie makro. Wesz co a może zrób sumy częściowe. TZN Zaznacz całą tabelę i W menu dane wybierz sortuj , wciśnij ma wiersz nagłowka i w sortuj wg kolumny: nr ewidencyjny. daj Ok Następnie w menu dane wybierz sumy częściowe. Dla każdej zmiany w: zaznacz numer ewidencyjny Użyj funkcji wybierz suma Dodaj...
Proponuję spróbować takiej modyfikacji :D : [syntax=vbscript]Sub sortuj_dane_realizacja_zaladunkow() ' ' sortuj_dane_realizacja_zaladunkow Makro ' ' Dim nw As Long nw = Sheets("Realizacja załadunków").Cells(Rows.Count, "A").End(xlUp).Row ' wyznacza ostatni wiersz tabeli więc po co tu -7 'Range("D8").Select ActiveWorkbook.Worksheets("Realizacja załadunków").Sort.SortFields.Clear...
Bardzo proszę o pomoc w naprowadzeniu jak zrobić to makro W takim układzie (dwie tabele, które mogą być sortowane identycznie wg nr detalu :!: ) nie potrzeba żadnego makra :not: wystarczy prosta, przeciągana formuła jak na zrzucie :spoko:
Przerobiłem kod do swoich tabel i wydaje mi się, że wszystko zrobiłem ok, ale pokazuje mi błąd w linijce: [syntax=vbscript]b.Range("C" & s + 5 & ":BL" & s + 88).PasteSpecial xlPasteValues[/syntax] Czy to może być efekt tego, że w rzeczywistości niektóre komórki w tych tabelach są scalone. Załączam plik oryginalny. W pliku tym znajduje się też ten kod,...
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]...
Ale to jakieś skandynawskie te daty. Z kropkami. Makra dla Worda piszę baaardzo rzadko, więc takie prymitywne wyszło, ale działa... [syntax=vbscript]Sub Makro1() Dim lista() As Variant With ActiveDocument.Tables(1) 'wpisujemy do tablicy daty z 4-tej kolumny idx = 2 For i = 2 To .Rows.Count test = .Cell(i, 4) If Len(test) > 10 Then ReDim Preserve lista(idx)...
Opis danych i oczekiwanego wyniku jest niewystarczający. Piszesz "jak to zrobić formułą?" a odwołujesz się do przykładu, gdzie było to zrobione makrem. Więc nie wiadomo, czy sortowanie ma być w miejscu (bez zachowania wersji źródłowej) - wtedy makrem, czy wyniki w innym miejscu, wtedy formułami. Nie wiadomo, czy ta tabela ma stałe rozmiary - w tym przypadku...
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ś...
... a żeby zrobić coś takiego jak na zdjęciu tzn. tak ułożyć kolumny aby były w oczekiwanej kolejności - tyle, że kolumny z tabeli źródłowej sa zawsze w innych miejscach, ale z tymi samymi nagłówkami... ... ręcznie ?, funkcjami ?, makrami ? ... ręcznie - zaopatrzyć odpowiednie nagłówki w zapis " 1_ " dla pierwszej interesującej nas kolumny, " 2_ "...
Tak. Musiałbyś dopisać wyszukiwanie w makro przycisku. Jeśli znajdzie, dodajesz w instrukcji warunkowej, jeśli nie, dopisujesz na końcu udało mi się zrobić to dodawanie po sobie tych danych w tabeli i sortujesz.
Jeśli chodzi o pkt 2) tematu - sortowanie "dziwnych łamańców" - to podobna sprawa była np. tutaj: https://www.elektroda.pl/rtvforum/topic3... W przypadku niestandardowego sortowania tekstowego "zawsze" będą "kłopoty" i jeśli "ręczny schemat niestandardowy" nie pomoże, to pozostaną makra, względnie kolumny pomocnicze z tak przestawionym zapisem...
Zamień linię kodu (początek - tam gdzie jest napisane "czyszczenie tabeli C") .Range("Q3:U10000").Clear na .Range("Q3:U10000") = "" I sformatuj w tabeli C, a najlepiej we wszystkich tabelach (A,B,C) kolumny z wartościami jako walutowe. Poradzisz sobie czy dać przykład? edit -------------------------- Jeżeli wszystkie dane w tabeli C maja mieć inna czcionkę...
czy mógłbym coś takiego zbudować, jeśli tak to w jaki sposób ? najlepiej łopatologicznie Zaczyna się od włączenia excela i wpisaniu tego co się chce i już się to ma :). Nadmienię jednak że: 1. Wiersze nie będą się "automatycznie" zamieniać miejscami przy "zwykłych" funkcjach. - trzeba włączać za każdym razem sortowanie lub dane wpisywać w jednej tabeli...
Masz do rozwiązania dwa problemy: 1. Oznaczenie obszaru do sortowania 2. Przekazanie do procedury sortującej potrzebnych informacji. Ad 1. Przy założeniu, że np pierwszy wiersz i pierwsza kolumna są zawsze wypełnione danymi i niepuste, jest to dość łatwe, np tak: Range(Cells(1,1), Cells(Range("A1").End(xlToRight),Range("... Ad 2. Proponuję...
Myślę, że trzeba by było użyć makra a ja cińki z robienia makr jestem powiedz czy chodzi Ci jeszcze by dowolny rozmiar był tej tabeli z danymi czy tylko taki mały będzie. Ostatecznie można by proste makro było zrobić na zasadzie takiej by pobierało dane jak wyżej, następnie sortowało, usuwało dane zbędne (z pustymi rekordami, i ponownie układało. Ale...
żeby wyszukał osoby z lewej ... w prawej A co ma zrobić makro lub formuła jeśli w kolumnach C i M są "nieunikatowe" nazwy :?: W Twoim przykładzie występuje wprawdzie tylko jeden dubel - w części "I zmiany" :D , ale teoretycznie te dubelki mogą występować w każdej części lub crossowo pomiędzy obiema częściami :?: VBA bez jednoznacznych instrukcji w...
Myślę, że kod z załącznika robi to co trzeba. Przypatrz się jedynie na miejsca, gdzie definiuje się zakresy: początkowe komórki czy zakres tabeli. W razie rozbudowy - musisz je odpowiednio w kodzie zmodyfikować... Nie wiem dlaczego, ale ciągle mi się wydaje, że makro, a sortowanie to już zupełnie, nie jest potrzebne. Tak jak ja zrozumiałem autora, to...
Nie wiem jak Ci dziękować! Działa:) Poprzednią wersję pliku (przy ok. 460 pozycjach) formułką i filtrami excel'a sortowałem ok. 3h :) Jeszcze raz wielkie dzięki! Rozumiem, że przy innej tabeli to już nie zadziała? Musiałbym np. zmienić DaneX = 2 DaneY = 2 na DaneX = 3 DaneY = 3 żeby startował od A3 i C1 tak? Czy coś jeszcze? Sory za głupie pytanie,...
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...
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
Makro to strzelanie z armaty do komara, do jednorazowej operacji wystarczy użyć sposobu. Ja użyłbym funkcji wyszukaj.pionowo. Sprawdzałbym kolumny osobno wyszukując wartości w tej drugiej tabeli. Funkcja ta daje wartość n/d# jeśli nie znajdzie. Potem sprawdziłbym które wiersze nie mają w którejś z kolumn tej wartości. Ułożyłbym formułe =jeżeli(oraz(czy.brak(kkol1);czy.brak(ko...
Twój przykładowy plik potwierdza moje wstępne wrażenia :cry: Masz tylko enigmatyczny (nie przemyślany) projekt utworzenia jakiejś bazy danych i masz bezpodstawną nadzieję, że cudowne makro praktycznie ją utworzy (update records) i będzie ją obsługiwało zgodnie z Twoimi intencjami :D Na początek, moim zdaniem winieneś "zbudować" tą bazę ręcznie np. dwie...
Witam, nie wiem czy trafiam w dobry dział, ale zdaje mi się, że nie ma nic bardziej pokrewnego. Szukam chętnego do pomocy w stworzeniu specyficznego arkusza kalkulacyjnego. Arkusz musiałby spełniać kilka założeń. Poniżej lista rzeczy, które musiałby generować: Arkusz 1 zawiera bazę danych klientów (kilka kolumn i mnóstwo wierszy, niektóre nazwy się...
Sory, że późno ale dopiero teraz się czepiłem. W załączeniu przykład. Wszystko na podstawie pomysłu kolegi adamas_nt , bez tego nie było by pliku. Ja to tylko nagrałem i trochę uporządkowałem nagranie. A pro po nagrania czy kolega adamas_nt zauważył że w 2010 sortowanie nagrywa się innym kodem niż w 2003 (chyba na zasadzie dodania kolejnego sortowania...
Witam, Potrzebuję napisać makro sortujące kolumnę względem długości zawartości jej komórek (dane są typu tekstowego). Kolumna jest zapisana jako tabela. Chodzi mi o to aby procedura sortująca nie odwoływała się bezposrednio do tej kolumny, ponieważ kolumn do posortowania w taki sposób jest więcej. Myślałam o wykorzystaniu algorytmu szybkiego sortowania,...
Jest sobie w "łekseselu" procedura np. 'Worksheet_Change', działa ona w ten sposób, że wychwytuje zmianę zawartości komórki arkusza, tj. stawiamy kursor na jakiejś komórce, wpisujemy coś z klawiatury i po wćiśnięciu 'pankracego entera' uruchamiana jest w/w procedura. No i niby mamy co chcemy, ale ...: 1. tutaj dane będą wprowadzane w wiele komórek w...
Witam :) Jestem początkujący. Excel świetnie sortuje komórki. Potrzebuję następujące funkcje (makra): 1. by posortował łańcuch znaków w komórce rosnąco i/lub malejąco, niezależnie od polskich lub obcych ogonków 2. wynik sortowania zapisał w innej komórce 3. wynik w postaci pojedynczych znaków zapisał w kolejnych komórkach 4. wyeliminował z łańcucha...
Więc tak: mam skoroszyt z makrami, do którego wklejam tabele A:S z niewiadomą liczbą wierszy. Na tą chwilę makra sortują mi tą tabelę po kilku wartościach i odpowiednio rozdziela sortowane wartości po arkuszach nowo utworzonego pliku. Teraz chcę, zeby w nowym pliku, który jest zapisany Truck na pulpicie, sumował mi wartości kolumny P, otwierał nowe...
Nie. (choć też i tak) Widzę że tabele zaciemniły twój obraz. :) Masz znaleźć trzy maksymalne dane więc po co sortować wszystkie dane. maksimum1 to pojedyncza zmienna do której zostanie przypisane największe maksimum w zakresie Range(Cells(1, 12), Cells(UBound(dni), 12)) maksimum2 to druga zmienna a maksimum3 trzecia. Ten kod (napisany przeze mnie) jest...
Próbuję zrobić generator wyników i jego ważną składową jest posortowana tabela wg minuty zdobycia punktu. Nie będę się rozpisywał tylko skupię się na opisaniu załączonego przykładu: - mamy dwie drużyny - każda z drużyn zdobywa punkt w danej minucie (jak w piłce nożnej), kolumna B zawiera nazwisko osoby która zdobyła punk a w kolumnie C jest minuta zdobycia...
Witam Mam do rozwiązania zadanie z którym nie daję rady. Trzeba stworzyć w excelu raport sprzedaży dla sieci handlowej. Mam kilka sklepów w których sprzedaje sprzęt rtv/agd. W 1 arkuszu tworzę bazę danych . Model, Producent, moc,cena zakupu, cena sprzedaży, sprzedaż w poszczególnych tygodniach. Produktów jest sporo około 1000 pozycji. W osobnym arkuszu...
Przepraszam, przez roztargnienie trochę namieszałem. Wartości muszą być takie same w kolumnach od "B" do "F" oraz "H" oraz "K". W kolumnie "A" jest liczba porządkowa (czyli nieważna w tym przypadku), a w kolumnie "G" - liczba sztuk na komplet, co w liście produkcyjnej jest również mało znaczące. Czy scalanie dotyczy tylko jednej tabeli, czy wszystkich?...
Ja to widzę przez makro, jakkolwiek do eksperta w tej dziedzinie mi na pewno daleko, więc mój kod na pewno da się porządnie zoptymalizować. Range("A1").Select na początku makro trzeba zmienić na inny (np B1, jeśli będzie nagłówek o wysokości jednego wiersza). Wypadałoby zmienić wtedy również warunek głównej pętli While maxY > 1 na poprawny (zamiast...
Chcę aby w arkuszu produkcja kolumna N , wpisując słowo 'got.' formuła przekopiowała mi cały wiersz do arkusza zrobione. No a jak "kolumna N" nie zna dobrze VBA :?: :D To jeśli W Excelu porusza(m) się biegle szuka(m) innych możliwych rozwiązań dla uzyskania pożądanego rezultatu. Przykładowo w Excelu 2007: 1. Porządkuje skoroszyt Produkcja.xls :sprawdzam...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
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...
makro działające w drugą stronę Wg tę samą wartość pola 'Pozycja' ? Zanim można sortować je? W tabeli zawsze 5 kolumn? Alt+Enter tylko w ostatnich trzech kolumnach? Dodano po 1 [syntax=vb]Sub Rozbijanie() Dim bs As Range, bd As Range Dim rs&, rd& rs = CLng(InputBox("Rozbij tabelu od wiersza Nr", "Rozbijanie", 4)) Set bs = ThisWorkbook.Sheets(1).Range("A:E").Cell...
Cześć, mam na warsztacie ostatnio temat związany z transpozycją tabeli. W tabeli w załączniku potrzebuję przepisać wartości kolumn od 0-9 (stałe - w sensie ilość się nie zmieni, bo po osiągnięciu każdej 9 licznik przeskakuje o kolejny wiersz) przyporządkowane do serii wierszy, do układu dwóch kolumn, otrzymując w pierwszej kolumnie licznik z połączenia...
(at)clubs Jeszcze jedno pytanie.Chcąc zapisać nowe i tylko dane z tego roku(2022) lub od konkretnej daty,jak to dopisać. Samo filtrowanie i sortowanie w kolumnie z datą nic nie daje gdyż makro czyta z kolumny,w tym przypadku,"T" Dodanie zarejestrowanego makra również nie pomaga,mimo że widoczne są tylko wpisy z tego roku ,zapisuje wszystkie wpisy na...
sortowanie tabeli makro sortowanie sortowanie makro
szeregowy połączenie akumulator dwufunkcyjny ustawić electrolux blokady transportowe
elektrotechnika studia płyta indukcyjna elektrolux
Zamienniki układu scalonego ME8321A w zasilaczach Zablokowany wał korbowy VW LT 35 - przyczyny i diagnostyka
