W załączniku rozwiązanie. Nie wiem, czy to wszystko. zeby sie pojawialo zestawienie na najblizsze 3 miesiace Jesteś w stanie przygotować wzór tego zestawienia?
Ale, ale. U mnie zmienna 'test' "pokazuje" posortowane, bez względu na kolejność zaznaczania.[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count test = .SelectedItems(i) Next End With[/syntax]Może toto...
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...
to o czym piszesz to dla mnie czarna magia Jaka tam czarna. Sprawa jest dość prosta i spokojnie obędzie się bez różdżki, szklanej kuli, czy czapki Merlina :) Makro najpierw sortuje, następnie zmienia wartości na tekst w kolumnie D. Przycisk po prawej służy tylko testom. Pozostaje sformatowanie gotowej tabelki (można dopisać stosowną procedurę). Pewnie...
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
Sortowanie zrealizujesz pisząc ogólną procedurkę: Sub Sortowanie(Klucz As String) Selection.Sort Key1:=Range(Klucz), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub i wywołując ją w obsłudze przycisku z odpowiednim adresem. Dla Nazwisko będzie: Sub Makro3()...
Mi jednak chodzi o to by makro się samo uruchamiało. Tu masz makro, które monitoruje określony zakres pod kątem zmiany. Dodaj do tego kod swojego makra sortującego. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. Set...
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...
j.w. Jedynym pseudorozwiązaniem jest "zamknięcie" sortowania i/lub grupowania pod przyciskiem z kodem makro który na wstępie wyłączy ochronę a po wykonaniu działania znów ją włączy.
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...
ale zobacz: Posortuj najpierw... Albo nagraj makro sortowania i dopisz na początku procedury kolegi PRL
Dla mnie by wystarczyło... Niestety, osoba, która zażyczyła sobie wykonanie takiego arkusza w Excelu powiedziała, że ma być posortowane.
Na początek proponuję skorzystać z rejestratora makr (dla każdej czynności osobno), połowa pracy będzie z głowy. Pozostanie tylko odrobinę "posprzątać", podstawić zmienne i określić ich wartości (zamiast sztywnych zakresów, nagranych przez rejestrator) i poskładać wszystko do kupki.
Witam Potrzebuję pomocy w przerobieniu tego makra (załącznik). Chodzi mi o to że teraz marko sortuje według liczb przed znakiem / a później po nim. Chciałbym zrobić tak żeby makro sortowało mi tak, że przed znakiem / jest numer dokumentu a po rok np: 754/10 999/10 123/11 124/11 wtedy makro sortuje najpierw po prawej stronie / następnie po lewej
1 w 3 w 1: a) Workbook_Open - jeśli przy otwarciu danego zeszytu jego arkusz "Zamówienie" jest aktywny, to wywołaj makro sortujące, np.: [syntax=vba]If ThisWorkbook.ActiveSheet.Name = "Zamówienie" Then Call sortuj_to[/syntax] b) Worksheet_Activate - wywołaj makro sortujące, np.: [syntax=vba]Call sortuj_to[/syntax] c) Makro sortujące - wg starego lub...
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...
Witam! Nagrałem makro do sortowania danych według wartości rosnących. Makro przypisane jest do przycisku. W jaki sposób muszę je zmodyfikować aby arkusz w którym ma sortować dane wybierało na podstawie wartości w komórce B1? Obecnie ma "na sztywno" dopisany arkusz o nazwie a38, a chciałbym aby po skopiowaniu arkusza i nadaniu mu nowej nazwy np a39 makro...
Czyli jednak sortowanie, lub makro szukające "od końca"... Czy VBA wchodzi w rachubę? Ewentualnie zapisuj datę z godziną (dla formuły z MAX). Szybka kombinacja: Ctrl+; spacja Ctrl+Shift+;
Do automatycznego wypełniania można użyć wyszukaj.pionowo(), do sortowania najprościej nagrać makro z sortowania ręcznego wg wybranych kryteriów.
Nie jest to sortowanie, ale może wystarczy ci dodać kolumnę z rankingiem. (w przypadku dwóch takich samych wyników będzie np dwóch z nr 3 ale nie będzie 4 tylko od razu 5) Można dodać jeszcze formatowanie warunkowe i "kolorować" złotem pierwsze miejsce sredbrem drugie i brązem trzecie. (tego nie ma w załączniku ale myśle że to nie problem) W innym przypadku...
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...
Sheets("DRUKI SORTOWANIE").Select Range("A1").Select Selection.Copy Sheets("KP").Select Range("V28:W28").Select ActiveSheet.Paste Taki fragment można zapisać krócej tak: Gdzieś na początku makra: [syntax=vb]Set wsSort = Sheets("DRUKI SORTOWANIE") Set wsKp = Sheets("KP")[/syntax] a dalej: 1. jeżeli chcesz skopiować tyko wartości, bez formatów: [syntax=vb]wsKp.Range("V28:W28").Value.....
Witam mały dopisek i będzie działać myitems.Sort "[Wysłano]", True Wersja poprawiona [syntax=vbscript] Sub GetInboxItems() Dim ol As Outlook.Application Dim ns As Outlook.NameSpace Dim fol As Outlook.Folder Dim i As Object Dim mi As Outlook.MailItem Dim n As String Dim FilterText As String Dim kontrakt As Variant 'Dim OutMail As Object 'Dim OutApp As...
Podmień wywołanie makra Makro1 (przykładowe makro "sortowanie") na wywołanie Twojego makra. Skoro: Jak dotychczas muszę męczyć się przyciskaniem przycisku, sortującego tabele. to rozumiem, że makro masz więc podmiana samego wywołania (call Makro1) nie powinno stanowić problemu.
Poszukaj informacji na temat sortowania bąbelkowego. Tak się składa, że w VB litery i łańcuchy też można porównywać. "b">"a", "Alicja">"Ala" itd Musiałbyś kopiować dane ze wszystkich kolumn wiersza do tymczasowej tablicy, co pokazałeś że potrafisz już robić. Sumowanie najlepiej zrobić funkcją SUMA.JEŻELI. W VB Aplication.WorksheetFunction.SumIf(argum...
I jeszcze jedno – dlaczego w makro – kolory nie zaznacza wszystkich takich samych komórek tylko niektóre Dlaczego uważasz że nie zaznacza takich samych? Podaj przykład na twoich danych. Tylko że miej na uwadze że dla funkcji CountIf() każdy znak ma znaczenie. Nie tylko wielkość litery ale i ... a nawet zwłaszcza spacja. Jest różnica między...
sORTOWANIE d:E, I f:G ODDZIELNIE. KOLUMNA C NIE POTRZEBNA DO SORTOWANIA
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,...
Witam wszystkich . Otóż mam problem następujący potrzebuje makro ,które sortowałoby wyszukane rekordy po nazwie i kopiowało do innego arkusza , najlepiej żeby było z oknem do wpisania tego co jest potrzebne. Nie zawracałbym tym głowy gdybym miał chociaż elementarną wiedzę. Niestety jestem totalnym laikiem w tej kwestii a znajomość excella mam podstawową....
Witam. Jak stworzyć makro, aby sortowało i kopiowało pierwszych piętnaście wyników. Stworzyłem makro, ale kopiuje mi tylko zawsze te same 15 wierszy a nie 15 pierwszych po sortowaniu. Baza danych jest dynamiczna. Pozdrawiam. Plik w załączniku. P.S. Uscisle troche - w sheet2 sa dwa przyciski - CB - ktory mi sortuje wszystkie sprawy tzw live oraz przycisk...
Jeśli dobrze zrozumiałem opis, to coś takiego powinno spełnić te założenia: [syntax=vbscript]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False If FilterMode Then ShowAllData Set srcSheet = ActiveSheet ost_w = Range("A" & Rows.Count).End(xlUp).Row ost_col = Cells(1, Columns.Count).End(xlToLeft).Column 'generowanie...
na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
posortował całość (wraz z danymi w tabeli) alfabetycznie Włącz nagrywanie makr zaznacz obszar do sortowania - posortuj alfabetycznie i masz makro.
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Cześć :) Mam problem z programem Libreoffice. Albo nie chce nagrać na makro funkcji wypełniania albo nie chce tego wykonać (przy wykonywaniu makra). Chodzi o takie coś - sheet > fill cells. Nie chce za żadne skarby tego zrobić. Z normalnym wpisywaniem czy np przekopiowywaniem wartości z jednej komórki do innej nie ma problemu. Robiłem już sortowanie...
można to zrobić w 3 etapach 1. Przejdź do lokalizacji (ChDrive, ChDir) 2. przy pomocy funkcji Dir i FileDateTime zrobić listę plików 3. Sortuj listę malejąco po Data-godzina pierwszy na liście będzie plik, którego szukasz
Wpadłem na taki sposób, wklejam wszystko poziomo (transpozycja) i czy da się teraz zrobić tak, żeby szło to poziomami? Np. Wklejam tak: 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Chcę otrzymać tak: 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 I już by mnie to zadowoliło w 100%. Poziomo czy pionowo zdaje się, że to dalej będzie przekładaniec... W załączniku moje próby i pod...
Wykorzystaj kolumnę pomocniczą, w której umieść liczby poprzedzone dowolnym znakiem tekstowym (Np ="a"&A1) i sortuj wg tej kolumny.
Witam. mam serię danych np. 100 105 110 99 98 pusty wiersz pusty wiersz 23 25 35 54 43 pusty wiersz pusty wiersz chciałbym automatycznie posortować dane w osobnych komórkach od najwiekszej do najmniejszej ale tak aby sortowanie dotyczyło tylko liczb pomedzy pustymi wierszami? czy ktoś ma jakąs radę z góry dziekuję
Z braku odpowiedzi można wnioskować, że Święta tuż, tuż :) Widzę 2 rozwiązania: 1) Arkusz pomocniczy z funkcjami wyszukiwania. 2) Makro. Kroki w obu przypadkach: - sortowanie wg kodów - lista bez powtórzeń - wyszukiwanie i składanie ciągów tekstowych (zamienniki) Nie rozumiem tylko do czego potrzebna druga i czwarta tabelka. Żeby znaleźć kod wg zamiennika...
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...
Sprawdz to makro Sub sortowanie() Range("b2").Select Range("a2:Z7000").Sort Key1:=Range("b2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub
Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...
Dzisiaj niestety pojawił się u mnie problem, bo to makro jest częścią większego dokumentu, który ma się automatycznie wypełniać i w pewnym momencie zamiast pustej komórki w miejsce godziny wkleja się spacja (" "). Jak mogę zmodyfikować to makro, aby sortowało nie komórki puste, ale te zawierające spację? Niestety nie potrafię wywnioskować z samego kodu.
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)...
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...
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
Makro, ostatni wyraz przenieś na początek.
Super dziękuje bardzo za pomoc wszystko super płynnie działa w kilku arkuszach na końcu wystarczy zaktualizować makrem. Makro zmieniające nazwy kodowe arkuszy według kolejności działa faktycznie nie miałem włączonej opcji zaufania obiektowego. Teraz wszystko wygląda jak trzeba zmodyfikowałem formułę dotyczącą nazw kodowych arkuszy zmieniając w kodzie...
Kod w tym skoroszycie, uruchamiany skrótem kalwiszowym Może po kolei : - mam plik csv -wrzucam go do arkusza 1 przez dane\z pliku\tutaj zamienia mi pomaga już excel automatycznie rozdzielając " ; " średniki w tekscie. i tutaj dopiero uruchamiam makro które sortuje nazwisko a-z i daty a następnie wkleja posortowane dane do arkusza 2 i tam są dalsze czynności...
Witam, mam problem z sortowaniem liczb w wierszu, do których przypisana jest formuła LOS(). Próbowalem nagrać makro, ale nie rozwiazało to mojego problemu. Trochę jestem za "cienki w uszach" w te klocki. Szukam takiego rozwiązania (formuła/makro) , które umozliwi za każdym razem automatyczne sortowanie liczb w wierszu. Proszę o pomoc.
Można zastosować sortowanie bąbelkowe, jeśli nikt nic lepszego nie wynajdzie. Makro uruchamia skrót Ctrl+e, należy ustawić odp. operator w kodzie (< lub >). Wykorzystałem Arkusz3 jako temp.
Witam, potrzebowałbym makro, które wymuszaloby posortowanie wszystkich arkuszy w pliku. Powinno się ono uruchamiać gdy ktoś bedzie chciał przesortować któryś z arkuszy. Wybiera np Arkusz 3 i chce go posortować rosnąco wg kolumny 1. Wtedy makro wszystkie arkusze też sortuje rosnąco po kolumnie 1. Muszę tak zrobić gdyż mam plik z ok 50 arkuszami które...
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...
Data wpisu danych do arkusza nie jest automatycznie nigdzie zapisywana (chyba, że jest włączona opcja śledzenia zmian). Tak jak napisał JRV jeśli dane są wprowadzane do kolejnych wierszy (do pierwszego wolnego), to już są ułożone chronologicznie. Ale ta kolejność nie jest trwale pamiętana, jeśli ją zmienimy, można ewentualnie cofnąć zmiany, ale po dłuższym...
Witam, Czy byłby ktoś tak miły i postarał się o napisanie małego makro pozwalającego posortować dane według kolumny "a" w załączonym pliku excel? Problemem dla mnie są scalone komórki, próbowałem sam coś sklecić, ale bez efektu, za słaby jestem w te klocki. Z góry dzięki za pomoc.
A tu wyłapuje nazwiska bez duplikatów (imiona mogą być różne, porównuje tylko nazwiska). Jeżeli nazwiska z kolumny A bez pary mają się pokazywać też na dole listy, to należy przesunąć blok "sortowanie" przed blok "znajdowanie w kolumnie A nazwisk bez odpowiedników w B". Program nie sortuje też niedopasowanych nazwisk z kolumny B. Aby uruchomić program...
Zasymuluj tablicę jednowymiarową z dwuwymiarowej. Proste makro: #define tab1wym(i) tab2wym[i/ILE_WIERSZY,i%ILE_WIERSZY] i w programie sortującym zamiast odwołania do tab2wym[x,y] używasz odwołania do tab1wym(i) ... "i" musi być typu int.
Witaj. Musisz napisać proste makro, które wykona taką operację. Standardowe sortowanie raczej nie poradzi sobie z takim problemem.
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
Jest :D Użycie sortowania i zapisania jako makro. Kiedy będzie potrzeba znaleźć powtórzenia uruchamiasz makro... i gotowe :D
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:
Dokladnie tak jak mowisz i o tym pisalam w pierwszym poście. Różnica jedynie taka że zamiast nazwiskami muszą być posortowani procentowymi wynikami i w osobnych grupach (w przesłanym pliku grupa A to biuro np z Katowic a grupa B to biuro z Warszawy) Biura nie mogą być wymieszane -> a jest ich 50 dlatego robienie tego ręcznie trochę czasu zajmuje i dlatego...
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...
Wiadziałem w innych topikach że trochę kumasz VBA więc czego sam nie dołożysz sortowania? Przecież to nie jest trudne. Jak czegoś nie rozumiesz to nagraj makro i przeanalizuj jak jest zbudowane. Wprowadź swoje poprawki i ... tadam ... :) proste :) Poniżej dołożyłem sortowanie po A i po E Po E bo chyba o to głównie chodzi - gdyż funkcja w kolumnie B...
Nie, może być wpisana w makro lub np. mozna zrobic zapytanie aby podać ścieżkę gdzie znajdują sie foldery do sprawdzenia
Kolega marek003 zapewne ma jakiegoś asa w rękawie ;) Ale po mojemu nie ma co zajmować się formułami, bo przeliczanie arkusza zrobi się nieznośnie uciążliwe przy tej ilości wierszy. Zrobiłbym tak: makro z filtrem zaawansowanym >'tylko unikatowe', 'kopiuj w nowe miejsce' dla obu list. Podstawiając odp. argumenty mamy wszystko w jednej kolumnie. Dalej...
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...
(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...
Makro tworzy listę produktów (jeśli trzeba dodaj sortowanie), następnie sprawdza arkusze od 7-go wiersza i 3-ciej kolumny. Jeśli zmieniasz układ, wyjdzie... bałagan. Przeanalizuj, dostosuj do własnych potrzeb. Makra w Excelu oczywiście włączone.
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...
podejrzewam że najlepszym wyborem było by próbować w vba Czytając Kolegi opis problemu prawie nic nie rozumiem. Moje podejście do VBA na podstawie domysłów z Kolegi opisu i rozwiązania Kolegi Prajz w załączniku. Makro osadzone jest w module w skoroszycie, będzie działać na wersji Excela 2003 i wyżej. Makro udostępnia w arkuszu funkcję Q (byłem leniwy...
Najlepiej nagrać sobie makro i podejrzeć kod. Sortowanie kolumn A i B po kolumnie B rosnąco można zapisać tak: ActiveSheet.Columns("A:B&qu... Key1:=ActiveSheet.Range("B1... Order1:=xlAscending Oznaczenia chyba są zrozumiałe (to główna zaleta VBA ;)) - najpierw podajesz zakres który chcesz sortować (zamiast...
Po pierwsze ilość kolumn w oryginale jest inna niż w Twojej wersji (10 i 14) trzeba to ujednolicić. Po drugie ustawiłbym kolumny w oryginale w kolejności takiej jak potrzebujesz. Po trzecie posortowałbym wiersze wg Product hierarchy 1 + Product hierarchy 2 + Product hierarchy 3. Wszystkie te czynności można łatwo zrobić nagrywając makro (dodanie i przeniesienie...
W historii zdarzeń filtruję to co mi potrzebne. Drukuję do pliku (txt). W excelu mam makro które pobiera dane do skoroszytu, tam jest sortowane i przenoszone do odpowiedniego arkusza (każdy pracownik ma swój). Arkusz liczy czas pracy i tyle z tym roboty.
Błąd wyskakuje jeżeli skasuje arkusze które zostały utworzone przez makro i pozostawię tylko główny. Odpalam drugi raz makro i wtedy już nie sortuje poprawnie i źle wkleja do obydwu skoroszytów. Nie wiem czy to to, ale wydaje mi się że jak skasuje utworzone arkusze, to kolejne które tworzy są inne tzn. Na początku tworzy Arkusz2="inne"; Arkusz3="ksiegowosc"...
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...
Problem opiszę w krokach, co myślę, że pozwoli nam łatwiej się komunikować i go rozwiązać. Wstęp Będzie to plik składający się z listy tematów spotkania (nazwy spotkania), daty ich utworzenia, oraz paru innych kolumn. Plik będą obsługiwać użytkownicy totalnie bojący się cokolwiek robić, którzy prócz wpisania danych w wiersze nie potrafią nic. Opiszę...
Czy istnieje taka możliwość stworzenia kodu by coś takiego można było robić ? Twój pomysł I gdy będą zablokowane Wiersze 6 i 7 chciałbym móc wstawić wiersz między nimi by dodać kolejna partię dla B34Y58B2p2 i tak samo by się wiersz zablokował gdy będą wszystkie pozycje uzupełnione jest chyba nie do końca przemyślany :?: Jeśli jesteś autorem tego zabezpieczonego...
Poniżej masz właściwie gotowca, wstaw do kodu Twój warunek sortowania http://www.kursexcel.net/2009/07/sortowa...
Swój problem rozwiązałem rejestratorem makr. Uruchamiamy Filtruj z zakładki Dane, i usuwamy zaznaczenie "Puste" Przechodzimy do drukowania, w którym zaznaczamy ilość kopii i czy mają być sortowane czy nie . I drukujemy. Usuwamy filtrowanie. Zatrzymujemy rejestrator makr. I mamy makro filtrowania i drukowania. Powodzenie tym, którzy rozwiązują ten problem....
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,...
Formuły są dużo bardziej skomplikowane. Specjalnie dałem taki przykład aby było widać mój zamysł. Zakres zmian opiera się na ok 25 kolumn z czego 15 zawiera specjalne formuły co daje wynik końcowy. Ja chcę zmienić wynik końcowy tylko w takim zakresie jak podałem. Niestety tylko wchodzi w grę goal seek. Sortowanie odpada z uwagi na pobieranie danych...
Kolejne pytanie: chciałbym stworzyć makro, które przy dzieleniu pliku na mniejsze (sortowanie po jednej z kolumn, to już mam) w trakcie dzielenia w drugim arkuszu np. w komórce B2 (arkusz2) sumowało po wybranej kolumnie (G - arkusz1) przy warunkach wartości w kolumnie C(arkusz1)>0 i E(arkusz1)='szkoła'. Mam problem z zapisaniem tego, bardzo proszę o...
Jest jakiś trik by po nowym wpisie posortowała się z automatu? Można wykorzystać makro zdarzeniowe typu [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range)[/syntax] dla arkusza z danymi, które będzie sortowało po każdej zmianie w określonym zakresie :D . Poprzez trick z importem danych z jednego arkusza do drugiego można ustawić kwerendę...
Problem w tym, że nigdy nie uda Ci się wpisać innej liczby porządkowej przy tej postaci kodu (nawiasem pisząc, zdała by się pętla). Zanim makro "wyprostuje" numerację musiałbyś zrealizować kopiowanie... Czyli odpowiedź brzmi: Tak, jest do zrealizowania.
Jak zwykle kol adamas ma rację. W grę wchodzi tu stosunek obrazka do wielkości komórki. Z prawidłowym sortowaniem jest problem na obu arkuszach. Nie wiem czy próbowałeś posortować arkusz kilka razy? Obrazki są dopasowywane przez Twoje makro do rozmiarów komórki, do której są wstawiane. Natomiast wysokość wierszy w arkuszu jest różna. Ustaw sobie jednakową...
Tutaj bez sortowania: [syntax=vbscript]Sub Szukaj() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") ow = a.Cells(Rows.Count, "A").End(xlUp).Row Set r = b.Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) y = 1 For x = 1 To ow s = a.Cells(x, 1) If Application.CountIf(r, s) = 0 Then a.Range("A" & x & ":B" & x).Copy b.Cells(y, 5) y = y + 1 End If...
Metoda dookola zrobilbym tak: 1. Licze srednia arytmetyczna 2. Sortuje - metoda zalezna od ciebie - standartowa instrukcja excel lub piszesz makro 3. Wybierasz ostatnich 90 studentow (30% z 300) 4. Teraz mozesz posortowac oceny od min. do max. 5. Kombinacja funkcji JEZELI sprawdzasz najwyzsza ocene 6. Referujesz wyniki
No to albo kolumna pomocnicza z filtrem (wtedy masz tylko jeden "klik"-wybierasz 0 ) albo makro. Ponizej z kolumną a makro za chwile podrzucę.
Dziekuje ale dopiero sie ucze Warto w takim razie poszperać w narzędziach Excela. Zwykle w takich przypadkach wystarczą: sortowanie, filtr zaawansowany z zaznaczonymi opcjami "kopiuj w nowe miejsce" oraz "tylko unikaty". Jeśli już musi być w VBA, to nagraj w/w rejestratorem...
Rozumiem, że chcesz przepisać tabelkę do nowego zakresu. Wpisz w Google "sortowanie bąbelkowe". Może nie najszybsze w działaniu, za to dość prosty algorytm. Warunek: reszta z dzielenia przez 2 równa zero załatwi sprawę parzystych, różna od zera nieparzystych. Jeśli coś mniej ambitnego, to nagraj makro kopiowania zakresu i sortowania (tego skopiowanego)....
Stworzyłem makro, które wstawia do komórki excela zdjecie produktu, którego nazwa znajduje się w komórce obok. Niestety po sortowaniu pliku zdjęcia nie zmieniają lokalizacji razem z resztą danych. Czy jest jakiś sposób aby "przywiązać" zdjęcie do komórki, tak aby możliwe było sortowanie?
W tym przypadku wystarczy takie prościutkie makro: [syntax=vb]With Range("B15:C17") 'zakres do sortowania .Interior.Color = xlNone 'czyścimy stary kolor tła .Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlNo 'sortujemy po drugiej kolumnie majejąco .Rows("1:1").Interior.Color = 65535 'ustawiamy kolor pierwszego wiersza w sortowanym zakresie...
Jeżeli jest to normalne na tym forum to naturalnie za finalną pomoc chcę podarować punkty. To jest Twoja indywidualna sprawa. Darowanie punktów nie jest naturalne na tym forum :) Wskazane jest natomiast kliknięcie przycisku http://obrazki.elektroda.net/23_12596950... Sortowanie kodów: Żeby później nie zgubić grupowania, należałoby (makro) rozpocząć...
Makro ma działać w jednym arkuszu po naciśnięciu przycisku. Już kiedyś miałem takie makro ale przez przypadek usunąłem arkusz działało on w następujący sposób: w kolumnie A miałem dane: A1:0,2 A2:0,6 A3:0,5 A4:01 itd do A150: 0,7 po zaznaczeniu kolumny np od A3 do A50 i naciśnięciu przycisku z makrem dane w zaznaczonych komórkach posortowały się losowo....
Witajcie, mam taki problem: Tworzę sobie aplikację do awizowania gości, żeby było wiadomo kto wjeżdża do firmy, kto w niej jest i kto jest za nią odpowiedzialny itp. Ogólnie 8 różnych danych, które zapisują się w arkuszach różnych. Pierwsze pole na moim userformie to combobox, w którym wybierasz firmę o ile jest na liście. Arkusz jest tak stworzony,...
Hey, Zauważ, że w pliku 'stany magazynowe' masz 'symbol elementu' i 'numer seryjny' przenoszone z konkretnej komórki z pliku 'komponenty', a wartości 'na stanie' i 'potrzeba' masz wpisane z palca w pliku 'stany magazynowe' co oznacza, że jeżeli zaczniesz segregować materiały w arkuszu 'komponenty' to w arkuszu 'stany magazynowe' wszystko Ci się rozjedzie...
Trochę nie rozumiem zastosowania makra do czynności, które można wykonać w kilka sekund używając sortowania wg daty przyjęcia i sum częściowych. Efekt może być np. taki. https://obrazki.elektroda.pl/8143716900_...
Nie ma potrzeby sprawdzania czy dane nie będą się powtarzać. Zakres kopiowany z arkusza źródłowego będzie zawsze wklejany do arkusza docelowego i nadpisze stare dane z ostatniego kopiowania a w międzyczasie wierszy przybędzie. łoj ! :) ... "ażem" se narobił roboty ... :) ... Zrobiłem makro, które sortuje dane w tablicy "niearkuszowej", tj. w pamięci...
makro sortowanie excel makro sortowanie makro sortowanie tabeli
skrzynka bezpieczników laguna szaleć touchpad mieszanka paliwo
szuflada sprężyna schemat zasilacza liniowego
Schemat podłączenia przewodów mikrofonu Yosan CB100 Zawór regulacji turbosprężarki Volvo 760 2.4 TD