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?
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...
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...
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...
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...
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...
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...
Bardziej chodziło mi, że makro jest przygotowane na sortowanie nawet stu wartości w wierszu, Ty masz to do lotto, specyficznie do 6 liczb, więc Const MaxX możesz zmienić na 6 spokojnie, wtedy będzie brało pod uwagę tylko kolumny od A do F. Jeśli będziesz chciał sortować losowania z innych gier, gdzie załóżmy jest losowane 20 liczb, to wtedy można to...
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...
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...
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()...
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...
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.
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...
To spróbuj takie makro - wynik wpisywany jest do kolumny D [syntax=vbscript]Public Sub SprawdzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Sciezka = "C:\StaryFolder\" ' tu wpisz adres starego folderu OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder...
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...
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...
Wprowadziłem kolumnę pomocniczą wg której należy posortować tekst. W komórce z ramką należy podać ilość zmiennych Oczywiście po posortowaniu kolumnę tą należy ukryć gdyż już nie spełnia swojego zadania. Wszystko można np. nagrać pod makro Od razu mówię o ograniczeniu: Ograniczeniem jest liczba "zmiennych" do 9 Chodzi o funkcję = prawy(A2; 1 ) Można...
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...
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, 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...
Plik jest jeden i w nim są oba opisane makra. Pierwsze makro opisałem na początku postu nr 7; nosi ono nazwę "LiczX", a drugie makro, które opisałem na końcu postu nr 7, nosi nazwę "Makro1". Czyli mam 1 plik o nazwie: Kalkulator - Koszty Allegro v10f.xls w którym są 2 arkusze, a ich nazwy to: Kalkulator oraz Tablica wyników Odnośnie wymienionych niejasności...
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...
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...
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...
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...
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
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...
(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 d:E, I f:G ODDZIELNIE. KOLUMNA C NIE POTRZEBNA DO SORTOWANIA
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...
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...
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...
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,...
Witam Wszystkich Już z miesiąc chodzi mi po głowie sortowanie którego nie jestem w stanie nijak zapisac, nie znalazlam tez odpowiedzi w literaturze wiec zwracam sie do was, sytuacja wyglada nastepujaco: Makro musi sortowac agentow tylko w zakresie danego zespołu, od najwyższego % zrobionego planu do najmniejszego, sumy muszą zostać na górze tak jak...
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ś...
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ę...
Nic sam, nie jesteś w stanie wymyślić? Wymyślić oczywiście, że jestem w stanie. Jest tylko jeden problem, że moje pomysły "nie potrafią się" przekuć na kod VBA Dzięki wielkie. Makro działa Muszę tylko dostosować to do swoich potrzeb i zobaczyć jak to będzie chodzić jeżeli chodzi o czas. Nie chciałem zamieszczać oryginalnego pliku, bo w rzeczywistości...
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...
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, 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,...
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...
Witajcie, również odświeżę temat, zacznę od początku, byście mieli jasność ... Mam pewien zakres liczb, które zbieram do jednej kolumny kolejno w dół od wiersza 7 do 150. Nazwijmy ją kolumna I. Zakres liczb zawiera się od 0 do 50. Następnie w kolumnie A mam zrobioną formułę sprawdzającą mi ilość występowania każdej z liczb w tym zakresie. Dotąd wszystko...
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ć...
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...
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.
wg imienia makro ułożyło dane w kolumnie B poprawnie, a wg., ciebie co jest nie poprawnie, bo nie rozumiem. Dodano po 3 już wiem w ramach imienia i nazwiska ma być sortowanie wg daty, zgadza się?
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ą...
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ę
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ąć...
Witam ponownie. Dotychczasowa Wasza pomoc okazala sie bezcenna. Juz mam gotowe i dzialajace zestawienie, ktore dolaczam w zalaczniku. Mam do Was kolejne zapytanie. Jak uruchomicie to zestawienie to widac, ze jest juz ono uzupelnione. Jest dzialajace makro do wczytywania wartosci z plikow (dzieki Wam), dodalem makro ukrywajace wiersze gdzie pojawiaja...
Dzięki dzielenie działa dokładnie tak jak chciałem i to już znacznie ułatwi mi sprawę :) co do drugiej części to użyłem nienajlepszego określenia, chodziło o sortowanie po ilości powtórzeń zawartości komórki w kolumnie B (przy czym to nie będą liczby a ciągi znaków) przykładowo: a b b c d d d d zmnienialo na: d d d d b b a c Jak teraz o tym pomyślałem...
Witam, Potrzebuję pomocy. Mam zrobioną listę składającą się z wielu wierszy i kolumn w arkuszu. Za pomocą VBA ta lista wyświetlana jest w ListBoxie gdzie mam kilka textboxów i kontrolek do wprowadzania i sortowania wpisów w mojej liście. Sortowanie działa bez zarzutu, a także wyszukiwanie. Gdy wyszukuję wpisy powiedzmy po literze D, to wyskakują mi...
Dalej nie do końca rozumiem o co ci docelowo chodzi. Po twojej ostatniej wypowiedzi wnioskuje że chcesz mieć jedynie jakieś zabezpieczenie przed dublem gdy będziesz nadawał numery wewnętrzne dla danej "grupy" KOD EAN/INDEX/ NAZWA. Więc sortowanie nie będzie konieczne, tym bardziej jak kody będą wprowadzane "czysto" ręcznie. Poniżej (na razie bez makr)...
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...
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...
Nie chcę za bardzo wchodzić w pomysł kolegi adamasa bo nie wiem co było głównym celem i dlaczego to zrobił tak a nie inaczej. Zaproponuje trochę inne rozwiązanie, ale ponieważ nie znam całego kodu i intencji arkusza może być kłopot z działaniem (np wcześniejsza ochrona arkusza) Zakładam jak piszesz, że nazwiska w danych kolumnach są posortowane a właściwie...
Pustość w określonym wierszu da się wykazać np. sortując wiersze, ale widzę, że sortowanie u ciebie odpada. Można wykryć pusty wiersz w danej kolumnie "stojąc" w niej wcisnąć najpierw END, a potem strzałkę w dół (lub w gorę dla wstecznego wyszukiwania). Można to zastosować w kodzie VBA + zrobić makro w stylu "skocz do następnego pustego rekordu". Ostatni...
Błąd mi nie wyskakuje, natomiast jutro może uda mi się przetestować na innym kompie, no i może uda się zmienić ustawienia z ENG na PL w systemie. Chociaż dziwna sprawa bo poprzednie makro (to pierwsze trochę edytowałem i nie miałem problemu z jego działaniem, a teraz jak dam komentarz (tak aby nie działała dana linijka kodu np: ' waz_wb.Close to od...
Sortowanie załatwiłem przez nagranie makra i skopiowanie tego co chciałem jak tutaj: Range("A:I").Sort Key1:=Range("B2"), Order1:=xlAscending co do wyszukiwania ostatniego wiersza z nazwiskiem możesz zrobić w pętli przez porównanie. Np (dla wierszy od D2 w dół) taką jak poniżej, to nie wiem za bardzo jak...
mam makro, które działa w starszych wersjach exela, ale w wersji 2003 już nie. Czy ktoś mógłby powiedzieć jak je przystosować do exela 2003?? pokreśla mi na żółto:Wokrsheets("Arkusz1").Range("AI1", "AI9").Value = Worksheets("Arkusz1").Range("B33", "B42").Value Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'tu masz kopiowanie Wokrsheets("Arkusz1").Range("AI1",...
Witam. Dziękuje za informacje które są pomocne i powoli zaczynam ich używać. Jednakże postanowiłem troszeczkę pokombinować i pododawać troszkę rzeczy ale nie wszystko mi wychodzi. W załączniku załączam plik na którym pracuje. Stworzyłem łącznie 4 procedury podpięte pod odpowiednie przycisk,i, ale są problemy których na chwile obecna nie potrafię rozwiązać....
Nie jest oczywiste, że pliki będą otwierane kolejno wg nazwy. Sortowanie w Windowsie nie jest liczbowe, a tekstowe (1, 10, 2, 20, etc) Jeśli z nazwy pliku można wyciągnąć adres docelowy (z offsetem), wtedy[syntax=vb]Sub Importuj2() Dim wbDst As Workbook, wbSrc As Workbook Dim strPath As String, plik As String, rng1 As String, rng As String strPath =...
1. Zacznij jednak od lektury, książek - taniej wychodzi, a potem kursy jeśli już ... tutaj parę pozycji: https://www.elektroda.pl/rtvforum/topic3... 2. Makro kolegi JRV : r jest zmienna, ale dlaczego równa się 1 a) r = 1, wartość wyjściowa/startowa zmiennej wierszy - od czegoś trzeba rozpocząć ich odliczanie b) With Sheets("raport") ... End...
Filtrowanie jest ok. ale nie musze w ten kod wstawić przynajmniej xl down by sortowanie działało do ostatniego wiersza. Kiedyś znalazłem taki kod ale nie teraz nie udało mi się go wprowadzić by zadziałało. Doszedłem do czegoś takiego [syntax=vbscript]Sub sort_zrodlo() ' ' sort_zrodlo Makro ' ' Dim lastRow As Long lastRow = Range("a2:o" & Rows.Count).End(xlUp).Row...
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.....
Dzień Dobry Zwracam się do wszystkich uprzejmych i chcących pomóc osobie która zaczyna przygodę z makrami, ale zapotrzebowanie na dobre makro jest większe niżwiedza moja w obecnym czasie. Nie proszę o zrobienie gotowca tylko wskazanie błędów, lub o podpowiedź co mam zmienić w pliku którym się posiłkuję by : ad.1 W arkuszu Dane na zielono ( brane pod...
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 ,...
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",...
Lecz problem w tym, że formuła ma znajdować się w E8, po zmianie adresów komórek na przedziały D$8:D$57, nie przydziela miejsc, pokazuje błąd formuły.
Najptrościej to załóż autofiltr i włącz ochronę arkusza wtedy nikt ci nie zmieni danych nawet poprzez błędne/nieuważne sortowanie. W openie nie pracuję (inny trochę) ale zobacz w załączniku najprostrzą wyszukiwarke opartą na formułach opena. Proponuję arkusze "ohasłować" (tak jak pierwszy). Zdejmować hasło podczas wpisywania nowych spraw i znów hasłować....
Poniżej masz właściwie gotowca, wstaw do kodu Twój warunek sortowania http://www.kursexcel.net/2009/07/sortowa...
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+;
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
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)...
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ę...
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.
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...
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...
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...
powiedz mi jest możliwość uruchomienie makra bez wpisywania hasla Ależ oczywiście :D np. wymienisz w 5 wierszu makra sortującego dotychczasowy kod na 1169902 Nie chciałbym by się sortowało jeżeli jest to zupełnie nowy wpis i by pozostał w obecnym miejscu No to musisz zakazać sortowania :please: w takim przypadku :D A tak na poważnie - to powinieneś...
Wykorzystaj kolumnę pomocniczą, w której umieść liczby poprzedzone dowolnym znakiem tekstowym (Np ="a"&A1) i sortuj wg tej kolumny.
Makro, ostatni wyraz przenieś na początek.
Hmm, bez makra... Pewnie da się kilkoma tablicowymi, ale aż takim orłem w funkcjach nie jestem ;) W załączniku wynik kombinacji z arkuszem pomocniczym. Trochę tam jeszcze nieporządek z funkcjami. No i listy zepsułem - myślałem, że ta tabelka to wynikowa ma być. Listę grubości wpisałem "na sztywno", a materiał... może tak właśnie będzie dobrze (można...
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.
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:
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ą....
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...
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.
Mianowice niektóre nazwy miejscowości są 2-częsciowe. :cunning: W Polsce występują także nazwy miejscowości 3-członowe (np NOWY DWÓR WEJHEROWSKI,GÓRA ŚWIĘTEJ MAŁGORZATY itp.) :please: , ale to nie jest żaden problem dla sortowania - trzeba tylko dostosować formuły rozdzielające - przykładowo: 962956 oraz w kolumnie B [syntax=vbscript]=PODSTAW(A1;C1;"")[/syn...
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...
Witaj. Musisz napisać proste makro, które wykona taką operację. Standardowe sortowanie raczej nie poradzi sobie z takim problemem.
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...
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.
Witam Czy ktoś może wie dlaczego rozpatruje się tu tyle opcji (sortowanie, aparat foto, makra, ctrl+G) a Autor wątku jakby "nie chce" (może chce, tylko mi się wydaje, że nie chce) zastosować Autofiltrowania? Nie chodzi mi o Jego podejście do Excela, tylko o to czy są przypadki gdzie faktycznie autofiltrowanie nie spełnia warunków: 1. Ukrywa wiersze...
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]...
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....
Dołożyłem sortowanie dla listy. Poprawiłem mały błąd. Reszta w załączniku. Plik zawiera makra, więc w razie komunikatów zmień ustawienia w "Centrum zaufania > Ustawienia makr".
Jeżeli ma być szybko (szybko działać na dużych danych w Excelu) to proponuję taki schemat: 1. Jedną i drugą listę sortujesz 2. Wykonujesz pętlę podobną do tej: [syntax=vbscript] i = 2: Y = 2 Do While Cells(i, 1) <> "" Do While ((Sheets(2).Cells(Y, 1) <> "") And (Cells(i, 1) > Sheets(2).Cells(Y, ))) Y = Y + 1 Loop If Cells(i, 1) = Sheets(2).Cells(Y,...
makro sortowanie excel makro sortowanie makro sortowanie tabeli
połączenie równoległe żarówek falowanie wolnych obrotow mazda adaptacja
frytkownica tefal energotytan zaciskarka
TP.SK516.PB801 Firmware USB Upgrade: Correct Port, File Naming, and Flashing Steps Norten E10 szybkie wybieranie – programowanie klawiszy M1, M2 i cyfr 2-9
