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...
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,...
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...
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)...
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...
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...
Heja, Potrzebuje makro-automat który: (...)54467664.png Makro miałoby w kolumnie B o zakresie do ostatniej komórki z wartością, w tablekach jak na obraku, sprawdzić czy w tabelce jest puste pole, jeżeli tak to przenosi wartość z B2 na B1 a B3 na B2, jeżeli w tabelce B4 i B5 nie ma pustych pól to pójdzie dalej, analogicznie jak do pierwszego przykładu...
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....
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...
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...
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...
Aby odczytać ostatnią wartość w zakresie kolumnowym można użyć formuły: =INDEKS(z; MAX(JEŻELI(CZY.PUSTA(z); 0; WIERSZ(z))) – WIERSZ(z)+1) Jak poprzednio formułę można uprościć jeśli zakres zaczyna się od pierwszego wiersza: =INDEKS(z; MAX(JEŻELI(CZY.PUSTA(z); 0; WIERSZ(z)))) Twoja formuła nie podaje ostatniej wartości z kolumny tylko największą.
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ł
Witam serdecznie, chciałbym aby excel w googlach docs wypełniał mi komórkę kolorem w każdym wierszu - znalezioną pierwszą niepustą wartość ORAZ znalezioną ostatnią niepustą wartość ORAZ wszystkie pomiędzy tymi dwoma wartościami. Działa dla ostatniej komórki - ustalam formatowianie warunkowe dla całego zakresu i formatuj komórkę jeśli : jest równe =ArrayFormula(INDEKS(A1:IN1;...
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ć...
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...
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....
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...
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.
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...
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...
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...
"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...
Ż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...
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ąć...
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)...
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)
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...
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...
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...
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....
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...
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...
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...
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...
Ostatnio miałem pewien problem ze stworzeniem spisu plików i wyszukiwaniem tekstu w danych kolumnach nie od początku lecz znajdującego się gdzieś w środku. O problemie dyskutowałem w sąsiednim temacie ale marek003 zasugerował stworzenie nowego Przy wykorzystaniu filtru zaawansowanego trzeba wpisywać tekst ograniczony gwiazdkami. Denerwowało mnie to...
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, 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ą...
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 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...
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...
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ą...
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...
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...
Próba odpowiedzi na problem Pana okondy. Ponieważ napisał Pan, że słabo zna Excela starałem się opisać wszystko dość dokładnie. Niestety, nie napisał Pan, której wersji Excela Pan używa, ale ponieważ załączony przykład jest w formacie .xls , więc przyjąłem, że jest to wersja 2003 i moje wyjaśnienia odnoszą się do tej wersji. W innych wersjach szczegóły...
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...
:arrow: wozo :) zwolnij troszeczkę. Zawsze jeżdżę zgodnie z przepisami :-) Wiem że jak spojrzysz w lustro to wydaje się, że Ty jesteś najważniejszy na świecie, Nie żartujesz? Nie słyszałem żebym miał sobowtóra :-) ... spójrz na nowe i stare wątki z excelem - więc ... Widziałem , widziałem -szacunek. Dziś dzień Babci (Jutro Dziadka) Niestety od ponad...
mam wardosc w a2 i teraz chce zeby pojawila sie w c3 nastepnie w c4, c5 c6 itd wartosc komorki a2 bedzie sie zmieniac a tamte wartosci sie zapamietaja Samo się nie zapisze. Wklej w kod arkusza (prawym klawiszem w zakładkę u dołu ekranu i wybierz "wyświetl kod") taki [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0,...
Opisz dokładniej okoliczności powstania błędu, żebyśmy mogli to odtworzyć. Najlepiej załącz plik. Załączam plik. Usunięta została tylko procedura sheet change zgodnie z Twoją sugestią. Skopiowanie jakiegokolwiek tekstu/wartości z przeglądarki i wklejenie go do komórki A2 nie powoduje żadnych problemów. Formatowanie zostaje ciągle takie samo. Podczas...
Witam. Jestem początkujący w VBA więc proszę o wyrozumiałość. Szukam pomocy przy wykonaniu kodu który ułatwi mi pracę z formularzem, a mianowicie chciałbym kod który: 1wszym kliknięciem przycisku DODAJ 1. Skopiuje wartość z komórki B1 Arkusza1 do komórki D5 Arkusza2 (to zrobiłem samodzielnie) (wartośći B1 Arkusza1 zdefiniuje listą rozwijaną) 2gim kliknięciem...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Naciskając przycisk CANCEL chciałbym aby on nie wymazywał zapisu w Msg Box a jedynie opuszczał komórkę i nie przechodził do następnego Msg Box-a Niestety inputbox już taki jest że nie da się w nim "przechwycić" Cancel Po naciśnięciu Cancel "funkcja inputbox" zwraca pusty ciąg czyli "" Ostatecznie można dodać warunek że jeżeli wartość = "" to kończ...
Tamto działa. Ale miałem błąd jeśli arkusz2 był pusty (a tak też może się zdarzyć) więc dodałem warunek, że jeśli pusta to cała kolumna, to kopiuje całą kolumnę, ale też coś nie działa... Sub Makro1() If (Range("A:A") = "") Then Sheets("Arkusz2").Rang... = Sheets("Arkusz2").Rang...
szkoły raczej zapraszają do siebie egzaminatorów z innych szkół, zaufanych kolegów , którzy już nie pierwszy raz sprawdzają u nich prace egzaminacyjne Nie wiem co to ma znaczyć, chyba nie sugerujesz, że raczej egzaminy są ustawione... nie narzucam nikomu mojego sposobu myślenia. Natomiast Ty ze swoimi poglądami na temat Visual Basic itp Jeśli Ty nie...
Cześć. W dobie kryzysu lodziarnia której pomagam zaczęła sprzedawać swoje produkty przez Internet. Żeby uporządkować sposób zamawiania przez Internet zaproponowałem im zamówienia przez Formularze Google. Sposób okazał się genialny, prosty w stworzeniu, łatwy w obsłudze i co przede wszystkim stabilny. Problem pojawił się dopiero na koniec zbierania zamówień,...
pusty komórka excel excel pusty komórka ostatni pusty
whirlpool pralka pranie spryskiwacz megane kostka nissan
tester ogniw 18650 projekt układów elektronicznych
Szlaban osiedlowy na pilota - samoczynne podnoszenie i opadanie Wybór kleju do kondensatorów: epoksydowy, silikonowy czy termoprzewodzący?
