Dzień dobry, To wszystko jest mało precyzyjne. Czy dane będą w określonej kolumnie? Czy można określić zakres tych danych, czy trzeba analizować całą kolumnę? Wyniki mają być w wierszu w sąsiednich komórkach? Czy ciągi danych będą rozdzielone pustymi komórkami? Czy liczba tych pustych komórek jest nieokreślona? Czy wśród danych mogą być zera ew. liczby...
Uwaga: Od 20 do 140 będzie 121 wartość. Przy założeniu że numery, począwszy od pierwszego wiersza i nie pustych wierszy =SUMA(PRZESUNIĘCIE(A1; ILE.LICZB(A:A)-120; 0; 120))
dzięki mickpr za pomoc ale chyba nie o to chodziło. Mam tabelkę złożoną z 3 kolumn. Są w nich oceny, nie wszystkie jednak mogą być wpisane, nieraz sa wszystkie 3, nieraz dwie a nieraz wcale. Chciałbym aby w kolumnie 4 excel zwracał mi ostatnią cyfrę, lub pusta komórkę, jeśli wszystkie 3 kolumny nie zawierają cyfry. W sieci znalazłem taką funkcję: =ADR.POŚR(ZNAK(64+MAX(JEŻELI(CZY.PUSTA(D...
Wtrącę się ale kolega adamas_nt już ci raz pokazał jak znaleźć ostatni wiersz. Spójrz na pierwszy kod i na zmienną "ostWiersz" (druga linia procedury Kopiuj) Tak na chłopski rozum to tą linię trzeba tłumaczyć tak: Ustaw się na ostatniej komórce w kolumnie A i "idź" do góry po pustych komórkach. Jak znajdziesz ostatnią pustą (przed komórką z wpisem)...
Czy posiada ktoś logiczne wytłumaczenie, w jaki sposób działa sortowanie tabelek w Excelu? Mam taką tabelkę - chciałbym ją posortować po róznych kolumnach zachowując oczywiście powiązania wierszy między sobą: //tab.png https://obrazki.elektroda.pl/1341637700_... Zaznaczam którąś z kolumn, klikam przycisk "sortuj", inteligentny excel zauważa,...
Już sobie poradziłem, ale mam kolejny problem, chciałbym z kolumny "A" przerzucić do wstawionej kolumny "b" co drugą komórkę z kolumny "a" tj. A B ola maja kasia jula wynik A B (wcześniejsza B)C ola maja kasia jula jak zdefiniować zakres do ostatniej komórki z wartością ?
Dziękuje za pomoc Makro działa tylko 2 rzeczy nie do końca robi tak jak chciałem (może wcześniej się źle wyraziłem). Makro w komórkę J1 w zakładce Dane1 wstawia całą listę krajów, mi natomiast chodziło aby w komórkę J1 wstawiał nazwy wg kolejności z listy. Np. Komórka J2= Albania makro kopiuje wszystkie dane policzone dla Albanii do arkuszy Kraje1 i...
Dobry wieczór, Zastosowana funkcja ILE.NIEPUSTYCH (COUNTA) pomija przy zliczaniu tylko komórki faktycznie puste, a te które zawierają formułę już nie są puste (nawet jeśli formuła zwraca pusty tekst). Inaczej zachowuje się funkcja LICZ.PUSTE (COUNTBLANK), która zlicza nie tylko komórki faktycznie puste, ale również te, które zawierają puste teksty....
Może coś takiego: =JEŻELI(H2="TAK";D2*E2-E2;... Zamiast ostatnich pustych "" możesz umieścić formułę wykonywaną jeśli nie jest wpisane ani TAK, ani NIE. Ewentualnie w cudzysłowiu tekst, który wystąpi zamiast formuły w takim przypadku.
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Tak, trzeba tylko znaleźć ostatni niepusty wiersz ("dziurę"). W przykładzie sortowanie wg kolumny A zakresu "A2:Hw", gdzie "w" to ostatnia niepusta komórka w kolumnie A, "jadąc" od góry. w = Range("A2").End(xl... Range(Cells(2, 1), Cells(w, 8)).Sort Key1:=Range("A2")
Są różne sposoby na znajdowanie ostatniego pustego wiersza, mój ulubiony jest taki: widoczną komórkę w kolumnie B wypełnioną tekstem, idąc od ostatniego wiersza w górę. Liczba 1048576 to ostatni wiersz excela 2007, dla kompatybilności z 2003 należało by użyć 65536. Przed wykonaniem sprawdzania poleceniem ShowAllData próbuje się zdjąć kryteria autofiltra...
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Sama funkcja wyszukaj.pionowo() też tu nie poradzi. Właściwie tak jak to przedstawiono to na przykładzie to nic oprócz oka ludzkiego nie posegreguje "z pustymi". Bo po czym ma excel poznać że dana z drugiego wiersza B równa "002" jest inna od danej z trzeciego wiersza B równego "002" Za pomocą Wyszukaj.pionowo() z zerem jako ostatni argument efekt będzie...
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
Podłączyłeś się pod cudzy temat i nie wyjaśniłeś dokładnie o co Ci chodzi. Czy chodziło o zaznaczenie (selekcję) kilku komórek jednocześnie i żeby we wszystkich tych komórkach liczby kończące zawarte w nich teksty wzrosły o 1? Jeśli o to chodziło i ma to być makro zdarzeniowe SelectionChange, to możesz wykorzystać taki kod w module arkusza: [syntax=vbscript]Private...
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał
zastosowanie zapisu np. =JEŻELI(B1="";"";JEŻELI(D1="";"";SUMA(B1... nie pomaga. A powinno. Spróbuj =JEŻELI(LUB(B1=0;D1=0);"... Ostatnia wartość: Jeśli kolumna nie ma dziur (każdy wiersz jest wypełniony), to zlicz niepuste i podstaw jako argument funkcji ADR.POŚR. =ADR.POŚR("A"&ILE.NIEPUSTY...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Dzień dobry, Oczywiście, najlepiej wprowadzać nowe komórki do środka zakresu i wtedy będzie się on poszerzać automatycznie. Ale nie zawsze tak jest wygodnie, bo dane mają określoną sekwencję i powinny być dopisywane na końcu. Tu problem jest większy, bo sumy są u góry zakresu. Gdyby były u dołu po wstawieniu nowych danych Excel automatycznie skorygowałby...
Jak widać nie każdy lubi łowić ryby ;P Zwiększasz tylko numer dla ostatniej pozycji - dla VBA to co masz w komórce nie jest liczbą,a tekstem. Musisz go najpierw rozdzielić funkcją Split() po myślniku, następnie w ostatnim elemencie tablicy zwiększyć liczbę o jeden i na koniec - "skleić" tablicę na powrót w wymaganym formacie. Jak przedmówca wspomniał...
Dzień dobry, Używając funkcji NETWORKDAYS należy pamiętać, że funkcja po pierwsze uwzględnia w obliczeniach zarówno pierwszy, jak i ostatni zadeklarowany dzień - to jest ważne gdy daty mamy w tabeli i okres jest podzielony na podokresy. Po drugie - funkcja standardowo pomija soboty i niedziele. Po trzecie - jeśli trzeba pominąć dodatkowo dni świąteczne...
Żeby nie wyświetlał wartości zerowych w kolumnie F można użyć formuły sprawdzającej czy istnieje któraś z wartości z formuły np.: =JEŻELI(CZY.PUSTA(D7);"";B7*C7*D7/100000... Przy braku ilości kolumna F będzie pusta, sumowanie będzie działać. Odnośnie kolumny C31 można zastosować podobne rozwiązanie i wykorzystać dodatkową kolumnę od D31 (czcionka w...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Ode mnie propozycja połączenia klasycznej formuły z funkcją UDF, która jest bardzo prostą adaptacją funkcji VBA Split: =JEŻELI.BŁĄD(WYSZUKAJ("żżż&... Jeżeli brak tekstu spełniającego...
Znacznie prościej napisać taki filter w C czy C++ lub innym przyzwoitym języku. O ile 1,2,3 itp nie puste to można załatwić nawet formułami, to z ostatnim jest problem.
To może tak: [syntax=vbnet][/syntax] Sub Skanuj() ActiveCell = InputBox("tu coś wpisz") ActiveCell.Offset(1,0).Select End Sub [/syntax] To najprostsza wersja. Przed pierwszym skanowaniem ustawiasz kursor gdzie trzeba a potem miejsce będzie zmieniało się automatycznie. Chyba, że potrafimy jakoś określić to miejsca, to niczego nie będziesz musiał robić...
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
Jestem początkujący w excelu - chciałem zrobić sobie arkusz obliczający zużycie wody. Mam 3 wodomierze i spisuję je co miesiąc. Do arkusza wpisuję stan a on oblicza mi zużycie w danym miesiącu i oblicza średnią roczną. Zawsze w ostatniej linii mam liczbę ujemną ponieważ robi obliczenia na pustych komórkach. Nie wiem jak z tego wybrnąć. Może ktoś mnie...
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Wydzielono z [url=https://www.elektroda.pl/rtvforum/v... - adamas.nt Witam. Trochę minęło czasu od ostatniej odpowiedzi. Mam podobny krótki temat do rozwiązania. mam dwa pliki: plik1.xlsx plik2.xlsx W pliku2 w kolumnie A mam ciąg danych liczb rozmieszczonych losowo wraz z pustymi komórkami po kolumnie. W kolumnie B są...
Opis jest niezbyt jasny. Czy chcesz wypełniać puste komórki w kolumnie H tekstem z kolumny I, czy chcesz w innej kolumnie np. J uzyskać efekt połączenia kolumn H i I (po weryfikacji). Jeśli to pierwsze, to raczej nie formułą tylko makrem. Jeśli to drugie, to możesz użyć formuł. Ale nie takich jak próbowałeś. Nie można używać symbolu zastępczego gwiazdki...
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
Witam, mam w sumie prosty problem ale nie wiem jak go ugryźć. Mianowicie: potrzebuję stworzyć makro , które będzie zaznaczało kolumnę do ostatniej nie pustej (ctrl+shift+arrow) wykonywało pewne działanie (powiedzmy dodawanie wartości w dwóch sąsiednich komórkach) i wyrzucało wynik w nowej kolumnie, ale tylko do wiersza, który jest nie pusty. Chodzi...
Załącz przykładowy plik z uwzględnieniem, które komórki są wypełnione, a które puste, bo trzeba jakoś ustalić położenie ostatniego wiersza danych, albo idąc od góry, jeśli wszystkie wiersze są zapełnione, albo od dołu arkusza, jeśli tam wszystkie wiersze są puste, aż do użytecznych danych.
Witam, Potrzebuję pomocy w napisaniu formuły jeżeli. Dane do komórek od wiersza 3 do 12 są wpisywane ręcznie (jeżeli jest pusta to 0 a jeśli wprowadzone są dane to 1). Dane do poszczególnych komórek muszą być wprowadzane jeden pod drugim więc od wiersza 3 do ostatniej wypełnionej komórki powinny być same jedynki a potem same zera. Potrzebuję formuły...
To nie będzie najszybszy sposób, ale pętla jadąca komórka po komórce i sprawdzająca czy w danej komórce jest (at). Jak znajdzie to kolejna pętla, która jedzie po kolejnych symbolach i sprawdza, który symbol to (at). Jak już wie który to numer symbolu to cofa się aż do momentu aż będzie spacja a potem idzie do przodu też do momentu aż będzie spacja....
Najprościej: Otwórz te dwa pliki. Otwórz nowy trzeci plik i w nim skorzystaj z funkcji jeżeli() w połączeniu z wyszukaj.pionowo() [z zerem jako ostatni argument]. I jeżeli będzie to "ok"/albo komórka pusta, a jak nie to niech zwróci np kod którego brakuje. Skopiuj funkcje w dół i już.
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
Ok już mi coś rozjaśniło :) W sumie pustych komórek w arkuszach nie ma. Skoncentruję się na wyszukaniu przerw w numeracji. Tylko że mój format to nie liczba a Litera + liczba, nie stworzy to problemu?
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
Witam, mam w pierwszym arkuszu zrobione komórki A1, A2, A3, A4, A5 - sa one zrobione na zasadzie formantów natomiast w komórkach B1, B2, B3, B4, B5 mam już zrobione występujące słowo zależnie co użytkownik wybrał. Komórka A6 jest to data wyliczna na zasadzie (Użytkownik wybrał w komórce jakiś okres czasu więc komórka a6 pobiera dzisiajszą datę i dodaje...
Generalnie to działa :) Jestem wdzięczny. Jedyny problem to taki, że kod nie kończy tam, gdzie chcę. Dajmy na to ostatni wiersz ma nr 4021 i jest pusty w kolumnie A. Rozumiem, że końcówka kodu będzie wyglądała tak?: Dodano po 25 Nie, to bez sensu. Przecież formuła nie zakończy się, dopóki nie zatrzymamy tradycyjną metodą "zamknij program". Nie mam pomysłu...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Drodzy forumowicze, założyłem konto więc proszę na wstępie o odrobinę wyrozumiałości ;) Potrzebuję pomocy z excelem. Problem jest moim zdaniem stosunkowo prosty i do zrealizowania w VBA od ręki, ale zastanawiam się czy bez tego da radę, tj za pomocą samych funkcji DO rzeczy Chciałbym obliczyć średnią kroczącą z 30 dni. Rozumiem, że są wzory, są wykresy....
1. Jest to drugi plik - z_którego_kopiuje.xls (26.5KB) - (niesteety nie załapały się polskie znaki) 2. Imiona będą się powtarzały dla każdej czynności. Nie przewiduję, żeby w zakresie wystepowała pusta komórka. Jeżeli tak się stanie to chciałbym, żeby kopiowało mi do ostatniego imienia. Tzn. Jeżeli komórka C4 będzie pusta to chciałbym, żeby mi tak czy...
Ale... U mnie jest normalny pusty skoroszyt na pełnym ekranie, a widzisz tylko pewien zakres komórek? jeśli tak to ustaw kursor w pobliżu granicy nagłówka ostatniej widocznej kolumny tak, aby pojawiła się podwójna strzałka kliknij prawym i odkryj, tak samo zrób z wierszami.
"Zawsze chcesz wstawiać nowe wiersze jako przedostatnie (pomiędzy cyfrą 2 i 3 w kolumnie A)? " Tak, bo pomyślalem ze tak bedzie najłatwiej odnajdywac ostatni wiersz na podstawie formatu pogrubienia i wstawiac wiersz i rozszerzac analogicznie w kolumnie B scalona komórke by mieściło sie w tych mini zakresach które okreslaja scalone komórki w kolumnie...
Ale ja tu nie widzę pustych wierszy. W każdej komórce jest co najmniej kreska. Gdyby jeszcze wartości w kolumnie D były liczbami... Rozwiązaniem jest formatowanie warunkowe, gdzie kolorujesz parzysty wiersz zakresu. Żeby określić zakres potrzeba znaleźć ostatnią, zapisaną komórkę w kolumnie. Można spróbować z kolumną pomocniczą sprawdzającą długość...
I dalej to jest niejasne jak nie wiadomo po co to wszystko i jaki ma to sens. można było 9 zmienić na 0 a wtedy wypełnienie komórki zmieni się na czerwone. Ja dotąd rozumiałem, że użytkownik zmienia tylko wartości w kolumnie B na dowolne lub puste i w zależności od tego w kolumnach D : O mają się pojawiać liczby 9 lub 0 i kolory zielony lub czerwony....
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
Witam, w ostatnim czasie chciałem utworzyć userform, w którym dokonywane będą skany kodów kreskowych (długość 14 znaków). Poniżej poszczególne etapy pracy formularza: 1)Skan kodu kreskowego w textbox, 2)Kopiowanie wartości text box (automatycznie/ textbox change() do akrusza karkulacyjnego, 3)Wyczyszczenie pola textbox oraz kolejne skany w kolejnej...
Bardzo dziekuję za pomoc. Dodano po 2 Ok. Działa. Dzięki. PS. Możecie polecić jakiś podręcznik/ stronę inernetową w której są opisane polecenia VBA i ich zastosowanie tak aby można byloby się uczyć samemu? Dodano po 16 Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę. Wydaje mi się że w przypadku kolumny J ten...
Makro działa tak jak je napisano. Dla niego OstW to wiersz 30 ponieważ jest pusty. Na próbę możesz wpisać coś w puste komórki w kolumnie A i sprawdzisz, że działa do końca. Dodane: Do ustalenia ostatniego wiersza w arkuszu wygodniej użyć: OstW = Zakres.End(xlDown)
:) Ale nie ma tego złego ... Ściągnąłem od ciebie metodę sprawdzenia ilości wierszy. Do tej pory zawsze robiłem to w pętli warunkowej dopóki ostatnia komórka nie była pusta. Tak samo tu chciałem zrobić. A tak w jednym wierszu kodu można zamknąć takie sprawdzenie. :) Miło tak czerpać wiedzę. I ta nuta rywalizacji. :) No ... idę spać.
Można usuwać puste wiersze na dwa sposoby. Pierwszy: 1. Zaznacz cały rejestr razem z wierszem nagłówka ( jak to szybko zrobić patrz PS ) i z menu Dane wybierz polecenie Filtr/ Autofiltr . 2. Rozwiń jedną z list i wybierz pozycję Puste . Widoczne będą tylko puste wiersze. 3. Zaznacz całe wiersze, które chcesz usunąć, kliknij jeden z nich prawym przyciskiem...
Ten kod przypisuje kolejno teksty adresów do tej samej zmiennej i dopiero ostatni tekst , tzn. $B$34 przetwarza. Dlatego to nie może działać. Ale jeśli oczekujesz konkretnej pomocy, to załącz plik z tym problemem, nie musi być oryginalny, jeśli zawiera wrażliwe dane, ale w tym samym układzie. I wyjaśnij dokładnie jak ma to działać. Czy osoba wypełniająca...
Prosta pętla z porównaniem na offset'ach. Nie wiem jak VBA potraktuje przedstawiony ciąg. To apostrofy zdaje się. Tego znaku używa się jako prefiks do zmuszenia Excela, aby liczbę traktował jako tekst... Może badać tylko ostatni znak: [syntax=vb]tmp = Cells(1, 1) If tmp = Empty Then MsgBox "Pierwsza komórka nie może być pusta" Exit Sub End If For Each...
hurra, sam doszedłem gdzie był błąd, teraz działa a przed chwilką przeczytałem twój post, ale satysfakcja jak się coś samemu rozwiąże hehe może nei jestem taki tępy :) słuchaj mam ostatni problem w zestawieniu mam 4 kolumny (zerknij na obrazek wklejony przeze mnie wcześniej) w żółtej kolumnie mam ocenę z klasy 1 np jest to ocena 5 w zielonej kolumnie...
Rozumiem, że nazwy funkcji na angielskie trzeba zmienić. Bo polskich wersji funkcji to chyba jeszcze nie ma? Gdyby ktoś chciał wiedzieć, to ta formuła mnoży numery wierszy w zadanej kolumnie przez 0 jeśli komórka w tym wierszu jest pusta lub 1 jeśli jest zapełniona. Następne wybiera maksimum ze zbioru tych iloczynów, które jest numerem wiersza w tej...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Alert nie ma znaczenia - błąd musi być gdzieś indziej. W jaki sposób masz "zorganizowaną" poprawność danych? (przydałby się przykład) Czy to jest lista wpisana z ręki w "samej deklaracji" poprawności? Czy to jest lista z odwołania do listy w arkuszu? Czy to jest lista ze zdefiniowanej nazwy która z kolei odwołuje się do jakiegoś zakresu? A jeżeli jest...
:) Proszę bardzo, ale a kolei nie musiałeś krzyczeć :) :) Zaznaczę, że moje ostatnie wypowiedzi były z uśmiechem :) w dodatku ze "strasznym" błędem ortograficznym (za moich czasów nie było "dysortografii" i choć mam dobrą pamięć wzrokową nie spojrzałem jeszcze raz i stąd błąd - już nie będę poprawiał może moderator mi wybaczy) ... Dobra, przepraszam...
Nie bardzo rozumiem, po co ta cała zabawa z zerami, zamianą na puste, usuwaniem komentarzy. Po co wyświetlać zera gdy brak danych? Po co w ogóle tworzyć te komentarze z zerami? Poza tym ostatnia część kodu (usuwanie komentarzy) w ogóle by nie zadziałała, bo komórki z komentarzami były puste, a funkcja End uwzględnia zawartość komórki, a nie komentarze....
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
Dziękuję wszystkim za pomoc i podpowiedzi. Uzyskałem efekt, który chciałem osiągnąć, po dodaniu kolumny pomocniczej z funkcją "Jeżeli.Błąd(Wyszukaj.Pionowo....." i po zastosowaniu poniższego kodu w moim pliku z przykładem. [syntax=vbscript]Sub Dodaniewartoscizprzeciwnejlisty() lLstRw = Cells(Rows.Count, 6).End(xlUp).Row lLstRw2 = Cells(Rows.Count, 1).End(xlUp).Row...
Witajcie, Z Excela jestem zupełna noga :) Dlatego zwracam się z prośbą do fachowców. Muszę mieć takie rozliczenie pracy jak w załączniku. Problem pojawia się przy tankowaniu. Chcę aby arkusz obliczał średnie spalanie po tankowaniu oraz średnie spalanie w skali miesiąca. Tankowanie zawsze do pełna, co 2-3 dni. Z poprzedniego miesiąca ostatni stan licznika...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Przetestowałem rozwiązanie które otrzymałem i w zasadzie działa dobrze. Jednak ze względu na wymaganą strukturę potrzebowałbym modyfikacji... Zakładając że dane wyglądają jak w pliku bazowym ZPPel.xlsm wyniku wygenerowania pliku .csv czy .txt otrzymuję przykładowy plik ZPP 2016-02-04.txt Natomiast potrzebowałbym formatowania jak w pliku 2.txt które...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
W kolumnie C sumy są liczone narastająco. Do zawartości C w poprzednim wierszu dodawana jest bieżąca zawartość kolumny A, np. w C10 jest C9+A10 itd. Ponieważ ostatnią liczbą w kolumnie A jest wpis w A9 = -100, to w C9 obliczyło się 44,11 i dalej jest taki sam wynik, bo w kolumnie A są już puste komórki, które w obliczeniach są traktowane jak zera. Działanie...
Witajcie, Chciałbym do was zwrócić się z problemem w Excelu. Mianowicie, mam tabelę: http://obrazki.elektroda.pl/6613358500_1... Wiersz nr 1 zawiera daty, niemniej komórki z danymi (czyli datami) nie są jedna obok drugiej. Wiersz nr 2 zawiera nr tematów (np. na mojej rozpisce pod nr 1 znajduje się temat xy) Jak można zauważyć, tematy...
Zachęcony pomocą , jaką otrzymałem ostatnio, zwracam się ponownie do szanownej społeczności ekspertów. Potrzebuję utworzyć makro , które wyciągnie nazwiska z kolumny A na podstawie wartości w kolumnie B. Tzn, jeżeli Jurek Mazurek ma liczbę "1" w kolumnie B, to chciałbym, żeby makro wyciągało to nazwisko w tabelę z kolumną "1"; ogółem mam grupy zaszeregowania...
Dzień dobry, Rozumiem, że oczekuje Pan makra w Visual Basicu, bo w samym Excelu byłoby to dość trudno zrobić. W załączniku ma Pan propozycję rozwiązania w postaci makra uruchamianego przyciskiem z arkusza ALL. Przyjąłem następujące założenia: 1. Plik zawiera tylko arkusze z danymi i jako ostatni arkusz podsumowania (nazwy arkuszy są nieistotne). 2....
Dzień dobry, jeżeli jest taka możliwość, to proszę o pomoc w sformułowaniu niżej zdefiniowanych formuł, bo sam zapętliłem się. Formuły mają wyszukiwać ostatnie po lewej stronie, w stosunku do kolumn KW1 i KW2, komórki i zwracać ich zawartość. Występują dwa rodzaje zawartości: liczba i charakterystyczny tekst. Charakterystyczny tekst zawsze składa się...
1)Prawie super tylko nie wiem dlaczego nie bierze pod uwagę ostatniego wiersza bez względu na liczbe w danym arkuszu?? 2)Jeszcze mam jedno pytanko w sprawie kasowania.Chciałbym usunąć wiersze zawierające konkretny tekst próbowałem użyć formuły do usuwania pustych wierszy ale nie wiedzieć czemy po wstawieniu konkretnego słowa nie działa próbowałem też...
Korzystam z formuły sumującej dane dla konkretnego miesiąca czyli w arkuszu "lipiec - suma" (arkusz podsumowujący) mam formułę: suma('lipiec - suma :lipiec (1)'!H1), która sumuje mi wszystkie dane z pól H1 z zakresu wszystkich arkuszy pomiędzy "lipiec - suma" i "lipiec (1)". Ponieważ tworzę arkusz "lipiec-suma" na samym początku miesiąca (potrzebuję...
Dokładnie coś takiego, niestety formuła wyszukuje do końca (do ostatniej komórki). Jak to poprawić aby np. wg kolumny A liczyło tylko do miejsca, w którym kończą się dane. Ten konkretny kod wygląda tak: [syntax=vb] ost = Cells(Rows.Count, 7).End(xlUp).Row + 1 LR1 = Range("A" & Rows.Count).End(xlUp).Row LR4 = Range("G" & Rows.Count).End(xlUp).Row Range("G"...
Dziękuję, ale wydawało mi się to podobne, a miałem wrażenie, że mnie "pojechałeś" od razu. Jest to mi potrzebne, dlaczego. Otrzymuję co roku inny cennik. Za każdym razem są, tzw. wymieniane artykuły. Niektóre znikają, a niektóre są nowe. Cennik ten przychodzi w języku niemieckim lub angielskim i to jeszcze ubogi (bez dokładnych opisów artykułów). Ja...
Witam, potrzebuję pomocy w następującej kwestii: chciałbym wyodrębnić w arkuszu pewne dane i umieścić je w odpowiednich komórkach. Dane są skopiowane z wyników aplikacji rekrutacyjnej linkedin (z kodu html). Po wklejeniu ich do arkusza znajdują się w pierwszej kolumnie. Co powinienem zrobić aby automatycznie umieścić je w odpowiednich komórkach? Załączam...
zobacz co zrobiłem działa tylko utwórz->nowy magazyn i Dodaj->towar do magazynu. juz sie zamotałem w tym wpisaniu wszystkich wartości z userform6 do wybranego wczesniej arkusza. chciałbym żeby po naduszeniu dodaj polecenia to jesli jest jakies puste pole to wyskoczy komunikat blędu. natomiast jest jescze kilka innych warunkow do spełnienia. mianowicie...
Jeszcze mam drugie pytanie, w którym momencie trzeba zastosować ? To był tylko przykład żebyś zrozumiał jak działa pętla. Do komórek się odwołujesz .cells(numer wiersza, numer kolumny), są też inne sposoby, ale na razie stosuj ten. Pętlę zastosuj jakąkolwiek np: [syntax=vbnet] dim a as integer a=1 Set a1 = ThisWorkbook.Sheets("Arkusz1") Set a2 = ThisWorkbook.Sheets("Arkusz2")...
Tu trzeba już więcej wiedzy z VBA i czasu (którego niestety na chwilą obecną nie mam - gdyż makra znam na poziomie podstawowym i trzeba by było szukać i nagrywać a później wnioskować i wykorzystywać to co potrzebne). Jednak przedstawię pewien tok który może ci pomoże (bo o większość rzeczy już się pytałeś na forum i powinieneś je znać - szczególnie...
Witam, Dzięki za odpowiedź. Niestety specyfika użytkowa tego arkusza oraz same działania użytkowników wymuszają na mnie takie rozwiązania. - Dany arkusz jest żyjącym dokumentem. Dostęp do niego mają różne działy. - Niestety część osób nie może mieć dostępu do edycji. Tylko do odczytu (np. produkcja). - Dział planowania oraz liderzy projektów potrzebują...
Dzień dobry, Dziękuję za wyjaśnienie w kwestii sumy liczb nieujemnych. Tak jak myślałem, chodzi o to, żeby co najmniej jedna wartość była niezerowa, więc jeśli liczby są nieujemne, właściwym kryterium jest suma. Formuły z ostatniego postu znowu nie rozumiem, bo w tej wersji, którą Pan załączył w komórkach B166 i C166 nie ma żadnych liczb. Ale zostawmy...
Mam takie makro j.n.: [syntax=vbscript]Sub sprawdzanie_poprawności() Range("H3:H200").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$B$3:$B$1117" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Witam, mam problem z formułą JEŻELI. Potrzebuję wykonać tabelkę, która będzie monitorować terminy usunięcia usterek. Założyłem sobie pewien plan, który zrealizowałem w 80% jednak ostatniej czynności już nie potrafię wykonać wspólnie ze wcześniejszymi funkcjami. Ale do rzeczy.... http://obrazki.elektroda.pl/4219677800_1... http://obrazki.elektroda.pl/2274573800_1...
[syntax=vb] Sub kopiarka() Dim kom() As Variant ReDim kom(22, 1) As Variant Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz jeden dowolny plik z katalogu źródłowego:") If ChosenFile = "False" Then Exit Sub Workbooks.Open...
Ostatni? :) Nie sądzę. :) Apetyt wzrasta w miarę jedzenia. Tylko nie przesadź bo po jakimś czasie przy 1000 opcjach tylko ty będziesz w stanie obsłużyć ten plik, a czasami warto pojechać na urlop i na tym urlopie wyłączyć komórkę by na prawdę wypocząć. Wracając do tematu: A nie czujesz potrzeby by samemu spróbować coś takiego zrobić? Mnie by już dawno...
Dobry wieczór, Oczywiście, że w tak prosty sposób nie da się wyeliminować powtarzających się dni. Obliczenia muszą być bardziej złożone, ale być może jest prostszy sposób od tego, który ja wymyśliłem. Proponuję tak: 1. Ustalamy zakres dat, który nas interesuje od najstarszej (MIN) do najpóźniejszej (MAX) i zapisujemy w komórkach np. P2 i Q2. 2. Tworzymy...
Witam, mam w excelu kilka arkuszy (styczeń luty...) w których występują tabele danymi o transakcjach sprzedaży różnych artykułów w danych miesiącach. Wierszy w każdym arkuszu jest różna ilość W kolumnie C określony jest rodzaj artykułu (oznaczenie: a, b, c, d, e), w kolumnach D, E, F, G mam wpisane kwoty sprzedaży w zależności od rodzaju artykułu, i...
Witam, staralem sie przejrzec forum w celu znalezienia odpowiedzi, ale niestety nic co znalazlem nie pasowalo do konca do mojego zapytania. Chodzi mi o zalozenie filtra na konkretna kolumne (zalozmy W), ktory bedzie filtrowal komorki od W4 do ostatniej zapelnionej w kolumnie W W tej chwili mam [syntax=vb]ActiveSheet.Range("$A$3:$AH$2...
'zdefiniowanie ostatniego wiersza w arkuszu "Inne" OstatniWiersz = Sheets("Inne").Range("D65535").End(xlUp)... a właściwie Range D65535 definiuje mi maxymalny zasięg kolumny D ? , a 65535 jest to maxymalana ilość wierszy jaką potrafi "przetrawić" excel ? Range("A2:B5") - z tej podpowiedzi wnioskuję że można stosować zapis excela w makrach "excelowych"...
Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Ta linia ostwiersz = .UsedRange.Rows.Count liczy ile zajmujesz wypełnionych wierszy. W załączonym pliku post wyżej masz wstawione 3 puste wiersze nad nagłówkiem tabelki i stąd problemy. Makro wiersz Nr 50 "widzi" jako 47... Jeśli musisz je tam mieć to wpisz dowolny tekst w dowolną komórkę każdego wiersza i zmień czcionkę na białą (będzie niewidoczny)...
Ok. Rzeczywiście małe zamieszanie się wdało w moje tłumaczenia. Bijąc się w pierś jedną ręką, wyjaśniam niezwłocznie wszystkie zawiłości ręką drugą. Chodzi mianowicie o dwie funkcjonalności: 1.Po wypełnieniu którejkolwiek z komórek z danego zakresu (C3:F1000), makro przypisuje aktualną datę do drugiej kolumny wiersza, w którym nastąpiła zmiana. Gdy...
Mam poniższe formuły przygotowane na podstawie Twojego wzorca. Przykład w pliku excela. Trochę mi się rozjaśniło szczególnie po Twoim ostatnim przykładzie, ale przy większej ilości liczb trochę się miesza w głowie i nie wiem jak to powinno wyglądać z zawracaniem. 1111 2222 3333 4444 1 4444 3333 2222 1111 1111 2222 3333 5555 1 3333 4444 1111 2222 1 4444...
sprawdziłem i działa! Dziękuje Mam już chyba ostatnie pytanie... najprościej ujmując po wykonaniu wyszukiwania zgodnie z ID dane przerzuca mi do arkusza wyszukiwanie... chciałbym następnie dane z tego arkusza skopiować do dwóch innych np do "arkusz1" oraz "arkusz2" zgodnie z kryterium: jeżeli w komórce F wpiszę "ok" to przerzuca mi dane dla tego wiersza...
excel pusty komórka pusty komórka excel ostatni pusty
kalibracja belki tensometrycznej pralka blokada polar schemat genway
Regulator napięcia do Opel Astra G 1.6 1998 - Bosch czy Valeo? Krups EA81 - Ciągłe sygnalizowanie czyszczenia