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ę...
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
Hej hej! Koledzy, potrzebuję pomocy :) Mam pliczek, który pomogliście mi ogarnąć: dostosuj.xls W pliczku makro wygląda następująco: Option Explicit Sub Dostosuj() Dim lista As Variant, ileWrs As Integer, idx As Integer Dim OstW As Long, tbl() As Variant, i As Long, j As Integer Dim Unikaty1 As New Collection, Unikaty2 As New Collection...
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]...
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...
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...
Może wystarczy przestawienie cyfr w tablicy[syntax=vb] For i = 1 To UBound(tbl) tblTemp(i, 1) = tbl(i, 1) vVar = CDbl(objRegExp.Execute(tbl(i, 1))(1)) 'tblTemp(i, 2) = CDbl(objRegExp.Execute(tbl(i, 1))(0)) * 10 ^ 3 + vVar tblTemp(i, 2) = CDbl(vVar * 10 ^ 3 + objRegExp.Execute(tbl(i, 1))(0)) Next[/syntax]
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...
Poniżej masz właściwie gotowca, wstaw do kodu Twój warunek sortowania http://www.kursexcel.net/2009/07/sortowa...
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...
Witam wszystkich. W arkuszu exela mam pod przycisk podpięte makro, które ma za zadanie posortować dane w arkuszu "DANE" w kolumnie D i F, dokładnie od komórki D3 w dół i tak samo od komórki F3. Makro mi sortuje wg godzin a nie daty dziennej i sortuje jedną kolumnę(najwyżej zrobił bym drugi przycisk pod kolumnę F). Wiem to makro nikomu się nie przyda,...
witam :) Próbuje napisać mały programik jednak cały czas mam jakieś błędy, a na niektóre rozwiązania brak mi pomysłów. To mój pierwszy program, dotychczasowe wypociny opieram na tym co wyczytałem w internecie. Chciałbym stworzyć makro w Excelu, miałby to być wykaz uwzględniający wszystkie informacje z pozostałych zakładek (które edytowane są ręcznie)....
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 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, mam takie pytanie mam sporo arkuszy w jednym pliku, chciałbym je posegregować według następującej formuły: arkusze od największej różnicy między F10 i G10 do najmniejszej różnicy Przykład: a) F10 - 1250 G10 - 1500 b) F10 - 1250 G10 - 1600 1-b 2-a Myślę o zastosowaniu makro z komendą: For Each a In Worksheets
Cześć Wszystkim :) Chciałbym zrobić coś takiego, taką funkcję w arkuszu kalkulacyjnym żeby po każdej modyfikacji zawartości komórki (przez użytkownika) nastąpiło sortowanie danych lub wykonanie makra które by to zrobiło. Czy zna ktoś z Was na to sposób ? Korzystam z LibreOffice Calc ale jeśli ktoś wie jak to zrobić w Excelu to też będę wdzięczny, może...
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....
Witam, Mam problem z stworzeniem makra, chciałabym aby każde włączenie arkusza "Zamówienie" powodowało automatycznie sortowanie kolumny a i b w/g kolumny B Jak to najprościej zrobić? Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki (w dodatku archiwalne). RADU23
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.
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...
Witam, Mam pewien problem, ponieważ chcialem stworzyć makro a nawet nie wiem jak to ugryźć. Generalnie chodzi o to aby: po uruchomieniu makra wyswietlało sie pole do wpisania od... i do... w którym będę mógł okresic daty. Format daty to dd-mm-rrrr. Daty są w każdym arkuszu w jednej kolumnie, powiedzmy D. Wyświetlone komórki powinien kopiować do nowego...
Witam Chciałbym posortować w excelu dane w arkuszu wg dat , powiedzmy rosnąco. Widok tego co ma byc posortowane. Przed: http://obrazki.elektroda.net/50_12645379... Po: http://obrazki.elektroda.net/15_12645379... Jak widać sort ma być wstępnie robiony w obrębie Ilośc, tzn tutaj gdzie mamy podaną ilośc np 2400 i pod spodem jest 5 pustych, to najpierw...
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
Mam plik z makrem, mam plik źródłowy. W pliku źródłowym jest jeszcze kolumna E "Numer Sklepu". Numer Sklepu jest zawsze stały dla konkretnej Nazwy Sklepu, np 31073 to zawsze będzie Stalowa Wola. A teraz o co chodzi. Wynikowo makro sortuje nazwy sklepów chronologicznie do Czasu Dostawy. Zależy mi aby to samo robiło z Numerami Sklepów. Czyli np tak: http://obrazki.elektroda.pl/2150425100_1...
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...
Dla mnie by wystarczyło... Niestety, osoba, która zażyczyła sobie wykonanie takiego arkusza w Excelu powiedziała, że ma być posortowane.
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...
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.
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...
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.
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...
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 ,...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
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...
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...
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ę...
ktoś ma jeszcze jakieś pomysły?
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...
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...
Wykorzystaj kolumnę pomocniczą, w której umieść liczby poprzedzone dowolnym znakiem tekstowym (Np ="a"&A1) i sortuj wg tej kolumny.
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 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",...
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...
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...
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...
Proszę o pomoc w rozwiązaniu problemu: 1. komórka "F11" ma wartość 1 lub 0 (wynik operacji w arkuszu). 2. w zależności od jej wartości chciałbym by uruchamiało się Makro1 lub Makro2. 3. Napisałem taką instrukcję: Private Sub Worksheet_Calculate() Sprawdz = Range("F11").Value Select Case Sprawdz Case 1 Call Makro1 'sortuj_malejąco Case 0 Call Makro2...
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...
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, 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.
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...
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
Super, dziękuję bardzo, działa :) Wracając do hulajnogi, to faktycznie tak jest — przemyślałem to i OK, spróbujmy to zoptymalizować. Mamy 1 plik o nazwie: Kalkulator - Koszty allegro v10f.xls w którym są 2 arkusze; ich nazwy to: Kalkulator Tablica wyników Kod to nagrane makro, które w kolejnych krokach wykonuje następujące ruchy: 1. Kopiuje z arkusza...
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:
Witaj. Musisz napisać proste makro, które wykona taką operację. Standardowe sortowanie raczej nie poradzi sobie z takim problemem.
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)...
Za wybieranie rekordów odpowiada zapytanie SQL, w tym kodzie to fragment: Sql = "SELECT [ID klienta], SUM([Godzin]) FROM [Dane$] GROUP BY [ID klienta] ORDER BY [ID klienta]" Jeżeli chcesz dodać kolumnę o nazwie SIGN i grupować najpierw po ID klienta, a później po niej, napisz: Sql = "SELECT...
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
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ł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".
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...
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
makro przycisk sortuj excel duplikaty makro makro excel odświeżać
impulsowa ladowarka willem 29f400 pompa zasysać powiatr
temat zablokowany engine fault peugeot
Samsung DE41-00377A Control Board for Microwaves Bosch Dishwasher Tap Error & Rinse Aid LED Flashing: Water Inlet, Rinse Aid, Heating Faults
