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...
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",...
Witam, Tym razem trochę bardziej skomplikowany problem: Potrzebuję stworzyć arkusz w Exelu, coś w stylu id imię sektor punkty miejsce 1 a 10 ..... 2 b 100 ..... Czyli ma przydzielać miejsca w zależności od ilości punktów a dodatkowo sortować te dane tak by zawodnik który zajął 1 miejsce był na samej górze, następnie ten który zajął 2 był pod nim i tak...
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! 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...
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 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ę
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
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: Jeśli...
Witam, Mam mały problem, którego nie mogę rozwiązać. Jestem dość nowy jeśli chodzi o vba więc bardzo proszę o pomoc. Dodaję plik testowy aby łatwiej można było zrozumieć o co chodzi. Mam plik (w tym wypadku przykład). Arkusz1 jest wypełniony w sposób widoczny w pliku, w arkuszu2 widzimy listę. Czy jest możliwość za pomocą makro posortować arkusz1 tak...
Witam, Mam następujący problem w Excelu: w arkuszu "Basic" mam dane w dwóch kolumnach - A i B. Od A2 i od B2 (wyżej tytuły). W kolumnie A mam kolejno daty (codzienne) od najnowszej do najstarszej (lata 2002-2010). W kolumnie B odpowiadające datom wartości zmiennej. Chcę skopiować dane z kolumny B do innego arkusza "Divided" w następujący sposób: w kolumnie...
Witam, potrzebuję pomocy... Czy ktoś z Was podpowie jak powinno wyglądać makro, które namiesza mi w pliku Excelowskim :) ?? Mam 3 kolumny z danymi w osobnych wierszach. Zależy mi na tym, aby makro zgrupowało w jednym wierszu kolumny A te same wartości, w kolumnie B ustawiło wartości pod kątem godzin z kolumny D, zgrupowało tą samą wartość z kolumny...
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
Witam, mam następujący problem i byłbym bardzo wdzięczny za każdą okazaną pomoc. Plik z przykładem dodaję w załączniku. W arkuszu przechowuję dane o różnej wielkości. Raz 20 wierszy jak w przykładzie, a czasami mniejsza ilość. Chciałbym zrobić makro które przeszukuje zakres danych i jeżeli w kolumnie D (godzina) znajdzie pustą komórkę to wytnie cały...
Próbuję napisać w excelu tabele dotycząca osób i przypisnaych im dat w tym, w arkuszu pierwszym jest tabela i w niej : 1) będą dopisywane osoby maks 80 (tabele zrobiłem i adekwatnie się powiększa jak dopisuje osobę) (nie przypisuje się jej odrazu numer, chciałbym żeby lp dotyczyło kolejności związanej z nazwiskiem i wskakiwało same). Czasem może być...
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,...
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
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...
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...
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 ,...
Czyli (jak myślałem) operujesz na liście wartości w komórkach. Nie nazywajmy tutaj tego typami, bo to jest mylące, choć biznesowo pewnie poprawne. Zastanów się jeszcze co ci właściwie jest potrzebne. Robiąc to w aplikacji z użyciem formuł robisz to jak napisałeś (filtrujesz i co dalej? kopiujesz gdzieś, wysyłasz mailem?), jednak makro mogłoby to zrobić...
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)...
wczytujac cztery decyzje musze 4 razy wrzucic plik Gdyby nie moje błędne przekonanie, że to jest element "większego projektu" i mamy do czynienia z koniecznością wyszukiwania plików źródłowych html po całym dysku czy sieci :cry: to zaproponował bym zupełnie inne rozwiązanie :D Gdybym wiedział, że to dotyczy tylko 4 plików :cunning: :?: to na pewno...
Najprościej byłoby umieścić w tablicy/kolekcji i posortować (chociaż 'selecteditem' jest kolekcją, można więc spróbować sortowania "w locie").[syntax=vbscript]Dim fd As FileDialog Dim tablica As Collection Set tablica = New Collection Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH")...
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, 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...
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...
Witam, Potrzebuję kod makro który podzieli scalone komórki i posortuje zakres A4:E150 według kolumny od E4. Mam kod który sortuje nie scalone komórki Sub Sort() Dim oneRange As Range Dim aCell As Range Set oneRange = Range("A3:E200") Set aCell = Range("E3") oneRange.Sort Key1:=aCell, order1:=xlAscending,...
Niżej masz przykład zastosowania formuły o której pisałem. W kolumnie czwartej skopiowałem kolumnę trzecią ale poprzez (prawy klawisz myszy) "wklej specjalnie" - wartości. Nie sortowałem jeszcze danych ale w "moim" przypadku powinienem zaznaczyć wszystkie dane i wybrać z menu "Dane" - Sortuj... ustawić wg czwartej kolumny czyli "D". Po czymś takim ustawią...
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...
Obrazki wstawiane są przez makro następującej treści: Do While Worksheets("Dane").Cells(NumerWiersza, NumerKolumny).Value <> "" Dim Model Model = Trim(Left(Cells(NumerWiersza, NumerKolumny).Value, 9)) If Dir(Ścieżka & Model & ".jpg") = Empty Then Worksheets("Dane").Cells(NumerWiersza, NumerKolumny + 1).Value = "brak zdjęcia" Else Dim MyPic...
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?...
3/4 zrobiłem. Działa prawie, jak chciałeś. Jedynie nie sortuje wyniku alfabetycznie, a kodów do sortowania w sieci multum, to sobie możesz dodać. Obecnie kod działa dla wpisów w kolumnie 'K'. dzieki wielkie, tylko jeszcze jeden maly problem, jesli chce zmienic rodzaj egzaminu z cyfr na litery to makro przestaje działac, co powineinem zmienic w makro...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
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ę...
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...
Mam nadzieję że trochę rozjaśniłem Nic nie rozjaśniłeś. W arkuszu 1 są dwie kolumny Składowe i Kwota łączna, W Arkuszu 2 są kolumny Składowa 1 do 18 i Kwota łączna. Rozumiem, że chcesz z danych Arkusza 1 uzyskać dane w Arkuszu 2. Jest tylko jeden mały problem, brak jest jakichkolwiek reguł jak są tworzone składowe. Bez tego nikt Ci nie pomoże bo nie...
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...
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...
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",...
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 Sortowanie kodów: Żeby później nie zgubić grupowania, należałoby (makro) rozpocząć od posortowania.
Witam, próbowałem już kilku sposobów na rozwiązanie mojego problemu, ale niestety nic konstruktywnego nie udało mi się stworzyć. O co chodzi: pragnę stworzyć makro które kopiowałoby wybrane elementy z Arkusza1 Przykład: 1) mamy Arkusz1 z ID klienta (powiedzmy, że mamy 1000 pozycji) , przypisany mu wiersz chce uzupełnić o date logowania się np. na koncie,...
Czy wie ktoś jakie polecenia w VBA odpowiadają za kolejne etapy wbudowanej w Autocada funkcji EATTEXT (ratrwyc) Wyodrębnianie danych ? Potrzebuję napisać makro w VBA działające w Autocadzie, które przeprowadziłoby Wyodrębnianie danych w sposób automatyczny. Po uruchomieniu makra wybierałbym jedynie obiekty na bieżącym rys. poprzez zaznaczenie obszaru...
Teraz mam problem bo zrobiłem makro które sortuje dany arkusz, ale jeśli wpisuję pod ten sam przycisk np arkusz 2 to nie chce już sortować. Próbowałem też na zwykłych arkuszach i jest tak samo.
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...
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"...
Witam, Napisałem właśnie swoje pierwsze makro, ale jak widać żaden ze mnie programista. Makro działa długo, a na razie tylko 2 pliki podpiąłem pod nie. Czy jest ktoś w stanie pomóc mi tak, żeby działało szybciej, a przy tym żebym się połapał o co chodzi?:) Chodzi tu generalnie o to, żeby kopiowało z każdego pliku i każdego arkusza w każdym pliku wszystkie...
Witam, napisałem bardzo długie funkcje które następnie postanowiłem wpisać do makra. W vba nie można gnieździć funkcji wiecej niz 7 razy jak i długosc zmiennej moze wynosic tylko 255 znakow wiec dziele je na kawałki by później zlepić w jedno. Funkcja robi bardzo prostą rzecz: dodaje odpowiednie komórki z tablic w arkuszach jeśli w rzedzie 2 i kolumnie...
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...
Wielkie dzięki za odpowiedź, ale niestety w dalszym ciągu nie działa... Pewnie robię coś źle, ale makro nie otwiera mi plików txt z wywołanej funkcją ścieżki. Całość wygląda tak: [syntax=vb]Function pobranie() As String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz...
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...
To tak najprościej, żeby się makrami nie bawić, użyj np. w kolumnie A funkcji: [syntax=vb]=ILE.NIEPUSTYCH(B1:G1)[/synta... dokąd tam masz max. kolumny, a następnie posortuj całość po tej wartości rozszerzając obszar sortowania.
Witam, Mam bazę danych, w osobnym arkuszu utworzyłam sobie listę w której mogę wybrać nr klienta (nr klienta jest czasami z jakimś tekstem lub z jakimiś dodatkowymi liczbami ale mam go traktować jako jeden klient). Udalo mi się napisać proste makro (jestem poczatkujaca) które z wyfiltrowanej listy kopiuje te nr do osobnego arkusza, sortuje tam te dane,...
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)...
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...
Nie analizowałem całości makra, ale nawiązując do tematu związanego z sortowaniem przy FileDialog.AllowMultiSelect=True, wyglądałoby to tak:[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 Set wkb2...
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
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.
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. Lekko edytowałem wcześniejszy post. Rozwiązaniem było przeniesienie w menu programów plików z makrami. Z folderu ogólnego do folderu dokumentu. Teraz program pyta o ustawienie zgody użytkownika na odpalenie nie podpisanego makra. To można przeżyć. Inny problem to potrzebuję żeby to również Exel otwierał. Makra są bardzo proste jedno do sortowania...
Cześć, potrzebuje napisać makro VBA w Excelu które: - będzie otwierać wszystkie pliki *.xlsx w katalogu w którym znajduje się uruchamiany plik skoroszytu (ew. będzie można wskazać kilkanaście plików w oknie wyboru) - z każdego pliku zostanie skopiowany zakres $$ i doklejony do arkusza "zaimportowane" w pliku w którym jest makro - po zaimportowaniu wszystkich...
Nawet nie napisałeś jaka kolumna ma być przeszukiwana, może C - ma jakiś tekst "consumer". Można użyć wbudowanego przycisku Wyszukaj, podobnie przy sortowaniu. Jest też coś takiego jak nagrywanie makra, nagrywasz modyfikujesz i sprawdzasz jak działa. Może byś spróbował cokolwiek sam zrobić ?
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...
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...
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:
ż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...
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...
Witam ponownie. Wracam do tematu bo potrzebuję pomocy. Temat dotyczy kontynuacji usuwania makra przez inne makro. Powyższy kod do usuwania makra wykorzystuje do tej pory. Jednak mam potrzebę aby w nowym pliku po usunięciu makra zostało wklejone nowe, inne makro. Dokładnie chodzi mi o wklejenie poniższego makra. Jak to mogę zrobić? [syntax=vb]Private...
Hej, poniżej kod, który mam do tej pory. Niestety nie działa tak jakbym chciał, nie bardzo wiem jak go nawet skorygować i odpowiednio wkleić komendy. To jest zrobione poprzez nagrywanie, także amatorka... [syntax=VBA] Sub generujraport() ' ' generujraport Makro ' ' Klawisz skrótu: Ctrl+a ' Cells.Select ActiveSheet.Unprotect ActiveSheet.Range("$A$4:$N$9").AutoFilte...
Witam Mam tabelę (tak jak w załączniku) z danymi osób. Dopisywanie osób do tej tabeli odbywa się przez wpisanie danych osób do tabelki znajdującej się obok (po prawej stronie głównej tabeli - komórki ("G2:J2")) i dopiero uruchomienie makra (kod j.n.) powoduje wstawienie danych do zasadniczej tabeli ("A3:D&) [syntax=vbscript]Sub wstaw() ows = Cells(Rows.Count,...
Witajcie, mam mały problem z sortowaniem wielopoziomowym. Mam zestawienie, które każdego miesiąca ma inną ilość wierszy. Nagrałem makro -> dostosowałem do swoich potrzeb -> Problem - makro zatrzymuje się na komendzie .Apply Poniżej kod VBA - czy ktoś ma jakiś pomysł na rozwiązanie tego problemu? [syntax=vbscript]Sub sortuj_dane_realizacja_zaladunkow()...
Witam, Ze względu że nie mogę znaleść podobnego tematu a zarazem nie mogę zrobić zadania jakie mnie interesuję prosze o pomoc. Mianowicie w załączniku jest plik który posiada makro do zapisu i drukowania w PDF-ie.To jest zrozumiałe i działa jak należy. Wybierając w kolumnie "B" dany numer rej. poprzez sortowanie/filtrowanie i naciśnięciu przycisku Drukuj,otwiera...
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.
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.
Wg mnie nie uda ci sie tego zrobić w jednej kolumnie. Chyba że zastosujesz makro. Bez makro będzie to wyglądać tak jak w załączniku. Wada: jeżeli masz dużo wierszy to może ci w jednym arkuszu zabraknąć kolumn.
Nie wiem czy do końce załapałem ale ... chyba robisz z igły widły. To co ty robisz można zapewne zautomatyzować (nawet makrem - ale nie koniecznie). Niestety aby to określić musiałbym widzieć przykładowe dane (mogą być pojedyncze litery i cyfry w komórkach) z dodatkowym opisem co przekazujesz innym a co do innych "odbierasz". Jeżeli dobrze zaplanujesz/ułożysz...
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)...
Dzieki za info. Juz wczesniej udalo mi sie wykombinowac to sortowanie. Tak jak piszesz to sortuje w ten sposob ze wypisuje ID klienta Hours total| employee hours| employee hours D21111 10 aaaa 5 bbbb 3 dddd 2 probowalem to zrobic tak <code> Sql = "SELECT Nie rozumiem o co chodzi :) To co dostałeś jest OK - najpierw masz pogrupowane po activity...
Operacje bitowe i arytmetyczne na znakach nie są dobrym pomysłem. Zobacz standardowy nagłówek ctype.h i funkcje/makra: toupper() tolower() isalpha() isxdigit(). Funkcja gets() nie powinna być wogóle używana, ponieważ nie sprawdza rozmiaru bufora docelowego. W porównaniu ciągów znaków może pomóc strcmp(). Ponadto zauważ, że liczba dłuższa/krótsza zawsze...
Dzięki dr bones, Ale przyznasz, że jest to poważne pominięcie funkcji z Basica, Pascala, czy C. VBA powinien sobie radzić bezpośrednio z takim problemem. Punkt 2. Zapisać wynik tego makra w podanej komórce. Np.: W komórce X jest łańcuch: warszawa. Po sortowaniu otrzymam: aaarswwz lub zwwsraaa i chcę to zapisać do komórki Y, nie koniecznie w okolicy...
Praktycznie robisz tak:1. Otwierasz oba pliki. 2. W pliku " Dane" przerzucasz kolumnę C na początek czyli robisz z niej A. 3. "W pliku "Zestawienie" klikasz B1, wpisujesz =, idziesz do funkcji, wybierasz VLOOKUP ( czy wyszukaj.pionowo w polskiej wersji) otwiera Ci się okno dialogowe, przesuwasz go aby nie zasłaniało.4. W tym samym pliku klikasz A1 i...
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,...
Wykorzystaj kolumnę pomocniczą, w której umieść liczby poprzedzone dowolnym znakiem tekstowym (Np ="a"&A1) i sortuj wg tej kolumny.
Pierwsze to nie wiem, czy temat jest odpowiedni do problemu. Potrzebowałbym pomocy przy zrobieniu pewnej rzeczy. Opiszę to na przykładzie koszyka z owocami. Mam dane w paru kolumnach. Kol. A nieistotna, kolumna B opisuje owoce (jabłko, cytryna, kiwi itp.), w kol. C jest unikatowy numer (dla każdego owocu, np. j1, j2, jx, ct1 ...), a kolejna (D) podaje...
Myślałem raczej o jakimś rozwiązaniu na funkcjach lub makrach ale to rozwiązanie jest wystarczające ;) Dziękuje pozdrawiam :)
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.
No to tylko makro np: Sub Makro1() Dim x As Integer Cells.EntireRow.Hidden = False x = WorksheetFunction.Match("C"... Columns("J"), 0) Do While Cells(x + 1, 10).Value = "C" x = x + 1 Loop Rows(x + 1 & ":65536").Hidden = True End Sub Nie robiłem zabezpieczenia dotyczącego...
A odnośnie tego makra co wyżej podałeś linka to patrzyłem na to, jednak nie jest to zbyt dla mnie zrozumiałe :( Zwykłe sortowanie bąbelkowe. Wystarczy trochę uprościć (sortujesz wg jednej kolumny).
Funkcją wyszukaj pionowo myślałem aby oznaczyć zwroty tylko mnie interesujące, następnie za pomocą autofiltra wyszukać dane które nie zawierają #N/D!. Dopiero cię zrozumiałem. (Wizyta u stomatologa zmienia punkt widzenia :) - dobrze że nie ze mną tylko z córką, ale te odgłosy dają do myślenia) Jak najbardziej masz rację (że też od razu na to nie wpadłem...
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...
Po zmianie danych wejściowych musisz 'aż' nacisnąć lewy przycisk myszki na przycisku, który dodasz sobie na arkuszu i połączysz z tym przyciskiem Twoje makro. Nic więcej.
PRL - fajne to Twoje, ale przy makro 2 wywala mi błąd - podświetla się linijka ActiveWorkbook.Worksheets("Arkusz1").Sor...
Makro, ostatni wyraz przenieś na początek.
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...
[syntax=vb][/syntax] witam, jestem nowy w tematyce vba a chcialbym obliczyc sredni miesieczny cykl linii bazujac na cyklach dla poszczegolnych stanowisk pracy generowanych dla kazdej ze zmian (pliki txt). Szukam szybkiego algorytmu ktory w relatywnie krotkim czasie obrobi potezna ilosc danych (50-70 000 rekordow na kazda zmiane -> 200 000 rekordow na...
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...
Witam serdecznie, mam w pliku excela tabelę ze scalonymi komórkami, pech że muszę ją posortować, a że jest dość duża (2300 wierszy) to nie wchodzi w grę rozłączanie scalonych komórek. Na forum znalazłem już podobne pytania i odpowiedzi do nich, jednak w stosunku do nich u mnie występuje jeszcze jeden problem: ilość scalanych wierszy nie jest stała i...
Dzień dobry, Jeżeli z jakiegoś powodu nie lubi Pan Visual Basica, to problem da się rozwiązać i bez niego za pomocą filtra zaawansowanego. Trzeba go tylko zdefiniować jak w załączonym przykładzie. Jeżeli zakres listy części nie będzie się zmieniał obsługa będzie w sumie dość prosta. Trzeba tylko wyczyścić pole z poprzednimi wynikami i wywołać filtr...
Dzięki ! udało się ominąć problem :) Ale jak to często bywa człowiek chcę więcej heh Mianowice chciałbym, że pliki które otwierają się za pomocą polecenia: GetObject ("H:\Moje Makro\Pomiary\pok.csv") były otwierane w każdej lokalizacji. Tzn. Jeżeli skopiuje mój katalog Moje makro na dysk E:/ to nie będę musiał w kodzie zmieniać mu wszystkich lokalizacji....
Jeśli wszystkie warunki były znane od początku, to być może byłoby oczekiwanych wyników. biorąc pod uwagę fakt, że Pan dwa razy więcej postów i są wystarczająco dużo punktów, myślałem, że to po prostu dać wskazówkę. Dlaczego wyszukiwanie w kolumnie I nie działa z poniższym kodem ).AutoFilter Field:=9: w tym przykładzie nie ma nic o kolumnie 9 przy pierwszym...
