Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
Dziękuję za szybką pomoc.
Przepisałem dane z fotki... Udało mi się dopiero przy pomocy dwóch kolumn pomocniczych. Żeby toto liczyło, C3 musi być niepusta (w ostateczności można "ukryć" białą czcionką). + formatowanie warunkowe. Ops, przegapiłem dwa posty ;) Edit: Jednak dobrze było w 1-szej wersji - powrót do "starego" załącznika.
B1 = WARTOŚĆ(ZŁĄCZ.TEKSTY("99"; A1))
Wychodzi dokładnie to samo, tzn. przy odjęciu jednego wiersza działa, inaczej nie. Dzisiaj zmieniłem adresy komórek i o dziwo działa :D Dziwne, ale skuteczne :D Chciałbym jeszcze ażeby przy wpisywaniu komentarza excel pomijał puste komórki i wpisywał następną niepustą. Da radę? POZDRO I DZIĘKI! :)
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...
Istnieje, można na przykład zrobić małe makro, które sobie "przeleci" kolejne wiersze i jeżeli spotka w komórce danego wiersza wartość pustą, wtedy go skasuje.
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
Hej, mam takie prostackie pytanie:) W jaki sposób można wskazać za pomocą wybranej wartości w combobox kolumnę o takiej samej nazwie w pierwszym jej wierszu i jej ostatni niepusty wiersz? Chociaż jakąś podpowiedź;] [/align][/code][/quote]
W punkcie 1 trzeba uwzględnić to formatowanie tekstowe i porównywać nie z 0, a z "0", a także z "" (pusta komórka jest równoważna liczbie 0 lub pustemu tekstowi, ale nie tekstowi "0"). Punkt 2. jest dla mnie niejasny. Czy mają być zaznaczone wszystkie komórki niepuste o wartościach <>1, czy tylko jedna w każdej grupie pod 1?
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;...
Ok moje niedopatrzenie. komórka, którą sprawdzałem czy jest niepusta zawierała błąd dzielenia przez 0. Wszystko bardzo ładnie działa. Dzięki wielkie za pomoc.
Witam! Potrzebuje stworzyć makro które umożliwiło by mi wyszukanie niepustych komórek z jednego wiersza pełnego różnych danych. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw z zz eff d aa 7 31 2 75 ah b nh kk e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej...
Dobry wieczór, Do tego trzeba zaangażować Visual Basic, bo w samym Excelu są ograniczone możliwości sterowania treścią komentarzy. W załączniku jest propozycja rozwiązania, ale musi Pan ją zaadaptować do swoich potrzeb. Jeśli danych jest dużo trzeba zastanowić się nad optymalizacją, bo działanie może być powolne. Podstawą rozwiązania jest procedura...
1. Załóż filtr w oryginalnej tabeli (niepuste) -> zaznacz całą tabelę i wtedy dopiero kopiuj dane . Może nawet lepiej wklejać "tylko wartości" niż dane z pełnym formatem każdej kopiowanej komórki. Zrobisz to w jednym ruchu zamiast korzystać z pętli (2000 razy). Po nagraniu makra można edytować zaznaczony zakres tak, żeby najlepiej nam odpowiadał. 2....
Pomijam sensowność wybierania numeru kolejnego z listy, bo to w sumie Twoja sprawa co chcesz osiągnąć, ale usuwane samych wartości z komórek zakresu listy spowoduje, że u góry rozwijanej listy będą figurować puste pozycje. Jeżeli już coś takiego chcesz aby lista byłą pełna, ale od jakieś kolejnej wartości do maksimum, to raczej przy ustawianiu zakresu...
Logika mogłaby wyglądać następująco: w kolumnie masz kolejne numery raportów dotychczas wydrukowanych sprawdzasz ile kolejnych wierszy w tej kolumnie jest niepustych, dodajesz kolejny wpis w pierwszym wierszu pod spodem o wartości n_1
czyli aby bylo 21111 10 aaa 5 bbb 3 ccc 2. Nie wiem czy takie cos jest mozliwe Hmmm, teraz już będzie trudniej ;) Na szczęście Excel i VBA oferują coś a'la tabelki przestawne. Zmień zapytanie SQL na Sql = "TRANSFORM [SIGN] & "" "" & Sum([hours]) " & _ "SELECT [Activity],...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Witam Napisz jeszcze raz w zrozumiałym języku, to postaram się pomoc. Nie wiem czy dobrze zrozumiałem, ale czy nie chodzi Ci przypadkiem o usunięcie pustych komórek? Jeżeli tak i nie upierasz się przy makrze, to możesz zrobić tak: - Ustawić na kolumnie B autofiltr - ustawić filtr na "niepuste" - skopiować przefiltrowane dane - wyłączyć filtr - użyć...
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...
Proszę o pomoc. Mam nowego, legalnego Ms Excel'a 2010 i nowego, legalnego Windows'a 7. Przetwarzam duże ilości danych, obecnie porównuję wartości tej samej zmiennej z dwóch różnych źródeł i jeżeli są braki w jednym źródle, nadpisuję wartościami z drugiego źródła. Używam do tego prostej funkcji (pokazuję poniżej). Potem taką kolumnę zawierającą wartości...
Próbowałem już wcześniej zastosować Wyszukaj.pionowo, ale bez skutku, tzn. stało się to: Jeżeli w tabeli znajdzie się więcej niż jeden rekord spełniający wszystkie kryteria zostanie zwrócona wartość pierwsza wartość z listy, jeżeli brak rekordu spełnijącego kryteria zostanie zwrócony błąd. Natomiast mnie są potrzebne WSZYSTKIE niepuste rekordy spełniające...
Witam, Z pozoru łatwe zadanie ale nie daję rady: chodzi o zliczenie ilości pustych komórek (+1 startowa-niepusta) aż do momentu pojawienia się wartości i wyrzucenia wartości ilości niepustych (+1 niepusta) w kolumnie obok wg schematu z poniższego obrazka. Pozdrawiam http://obrazki.elektroda.pl/2843412900_1...
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
Witam, zgodnie z przykładem z załącznika chciałbym zliczyć wartość niepuste między aaa bbb ccc wyszukując je w tabeli obok a przy okazji sumując na tej samej podstawie kwoty obok Chodzi o to ze wartość szukana (aaa, bbb, ccc) występuje raz w tabeli a odległości między nimi mogę być różne, mogą również występować między nimi puste pola których nie chcę...
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...
Co zrobić, aby po po zmianie wartości w kolumnach 5,6,7,8; Data i godzina w kolumnach B i C pozostała niezmieniona. Odpowiadając tak na "sucho" ... trzeba do kodu dodać coś takiego: Wariant I If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then " można skrócić do " If Target.Column >= 5 And Target.Column <=...
To nie jest podpucha ,łatwo policzyć ile niepustych lub pustych,natomiast nie mogę sobie poradzić z liczeniem np: ile jest wartości "1" w kolumnie A = 0 w kolumnie C ILE.NIEPUSTYCH(Arkusz1!A1:A15;"1")+LICZ....
Szukam rozwiązania dla formularza. Chciałbym by w Arkuszu2 automatycznie pojawiały się wiersze z Arkusza1, ale tylko spełniające warunek, w którym wartość w kolumnie F >0. Dodatkowo miedzy kolejnymi wierszami w arkuszu2 nie mogą pojawiać się puste przestrzenie. Ilość wierszy w arkuszu będzie różna w dalszej części tabeli i będzie podlegać stałym modyfikacją...
Witam, chciałbym uzyskać następujący efekt. Pierwszego dnia każdego miesiąca excel automatycznie zlicza ilość niepustych wierszy w kolumnie A. Następnie zachowuje tą wartość w innej komórce. Na koniec roku jest 12 komórek zawierających wartości ze wszystkich miesięcy. Proszę o pomoc w wykonaniu formuły lub makra.
Poszedłbym w pętlę. Szukam pierwszej niepustej (komórka=<>"" albo 'not isempty(komórka)) z 'interior.colorindex' < -1, następnie Find do końca zakresu. Jeśli próba/próby (patrz pyt. dodatkowe) zakończy się fałszem, masz swoją wartość. Pytanie dodatkowe: Czy te ewentualne duble też bez koloru wypełnienia (jeśli pokolorowana, nie liczy się)?
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...
to makro do "zabawy" Dodano po 2 jeszcze dwie wersje.... Pierwsza ile_wierszy, to może być niemal dowolna liczba sprawdzonych wierszy , można wpisać nawet tyle ile wierszy ma cała kolumna (zależy od wersji Excela) Chodzi o to by nie sprawdzać całej kolumny bo to może potrwać.... Skopiowane zostaną tylko niepuste komórki. [syntax=vba] Sub copy_cells()...
Witam Mam taki trywialny dla większości z Was problem. Potrzebuję zrobić import wartości z kilku kolumn z jednego skoroszytu (powiedzmy kolumn A, C, G) - ale od wiersza nr 8 do ostatniego niepustego- do drugiego skoroszytu. Plik, z którego pobieram dane każdorazowo ma inną nazwę, więc niezbędne pewnie będzie wskazanie pliku na komputerze. Idealnie byłoby,...
p.Macieju właśnie oto mi chodziło, "śmiga jak ta lala" Mam jeszcze jedno pytanie. mając takie makro które czyści cały zakres i pokazuje wszystkie wartości [syntax=text]Sub czysc() On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 End Sub[/syntax] mam problem kiedy włączę ochronę arkusza nie mogę z niego korzystać czy można to jakoś obejść...
po wpisaniu cyfry 1, komórki kolorowały się w lewo a nie w prawo tak jak jest teraz Kolega Maciej Gonet przygotował Ci specjalną formułę do planowania produkcji, która w zależności od wartości w kolumnie I , koloruje po wstawieniu jakiejkolwiek liczby (nawet "0") do którejś komórki - zarówno tą pierwszą niepustą jak i odpowiednią liczbę następnych...
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
To jest Excel czy Access? Jeśli Access to coś tu jest nie tak - baza danych to nie Excel, nie ma tam "pierwszej" i "ostatniej" kolumny - a przynajmniej nie powinno się ich tak traktować. Do kolumn odwołujesz się po nazwach, więc, może poza paroma wyjątkami, nie ma prawa być sytuacji, że "Liczba kolumn jest nieokreślona". Jeżeli tak masz, to jest to...
Potrzebuję pomocy w napisaniu zdarzenia działającego następująco: Użytkownik wybiera z listy wartość w kolumnach od I do FK, w wierszach NIEPARZYSTYCH (lista już zdefiniowana). I teraz: jeśli wartość zostanie wybrana, to pod nią automatycznie pojawi się dzisiejsza data. Czyli np. jeśli pojawi się wartość z listy w komórce I3, to zdarzenia ma działać...
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...
Cześć, potrzebuję pomocy w przetłumaczeniu procedury na język VBA. Mam 2 arkusze: Arkusz1 i Arkusz2. W Arkusz2 użytkownik wpisuje w komórkę B2 liczbę całkowitą. Następnie w wybranych komórkach zakresu D7:D100 również Arkusz2 wpisuje dane. Wpisane dane (i tylko te wpisane) mają się po naciśnięciu na przycisk (przycisk i podpięcie akcji sobie ogarnę)...
Super! Dokładnie o to chodziło! Tabela przestawna rozwiązuje sytuację. Ale żeby ją utowrzyć, trzeba mieć zbiorczo podsumowane wszystkie faktury, bez pustych wierszy. Jak to zrobić automatycznie dla wszystkich arkuszy? Żeby było tak jak na screenie :) https://obrazki.elektroda.pl/1574377400_... EDIT: nie trzeba mieć pustych wierszy -...
Funkcja WYSZUKAJ zwróci wynik przybliżony, czyt. nie zawsze prawdziwy. Precyzyjniej działa funkcja WYSZUKAJ.PIONOWO. W Twoim przypadku formuła umieszczona w 'Arkusz3' powinna wyglądać tak: WYSZUKAJ.PIONOWO(Arkusz1!A1;Arkusz2!A1;1... Funkcja zwróci: 'ND' w przypadku niepasujących wartości. Można to zastąpić dowolnym tekstem stosując: JEŻELI i CZY.BŁĄD....
Widać jakie wartości przyjmują poszczególne zmienne Filmik ma 60 MB - w stosunku do poprzednich maks. 1 MB-owych, to "sporo - i prawie "nie chodzi" ... (?) ... coś tam niby widać ... ale nie za bardzo ... :?: Spróbuj zmienić deklarację zmiennych obiektowych: dane " - pisane z małej litery i bez żadnych odstępów ? Możesz ewentualnie zmienić ' ost_w_pb...
Jestem początkującym użytkownikiem VBA Mam następujący problem: Chciałbym skopiować wybrane wiersze plików excela do jednego zbiorczego excela. Pliki Excel z którego chce pobierać dane mają zawsze taki sam format. Chce kopiować wszystkie niepuste wiersze które znajdują się pod stałą wartością w konkretnej komórce. Makro, które zasysa lokalizację plików...
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...
(...) lko wartości liczbowe, czy również daty? Są tam wartości liczbowe. AI: Z jakiej wersji programu Excel korzystasz? Czy używasz jakichś dodatkowych narzędzi lub dodatków, które mogą wpływać na formuły? Nie używam żadnych dodatków. Jeśli jakieś byłyby potrzebne do rozwiązania zadania proszę o informacje. Bezpośrednia odpowiedź na pytanie Aby stworzyć...
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
no tak w przypadku zbioru 10 pól to można by zaakceptować ale jeśłi zakres jest znacznie więkrzy to już podliczenie ile "sztuk" jest danej liczby nie wystarczy... Po to jest funkcja licz.jeżeli(zakres;kryterium) czyli np licz.jeżeli(a:a;2) zliczy wszystkie 2 w całej kolumnie A Ilość wszystkich liczb określi ile.niepystych czyli np ile.niepustych(A:A)...
Witam, mam ogromna prosbe czy mógłby ktoś mi pomóc/podpowiedzieć w zmodyfikowaniu makr. 1. W załączonym skoroszycie jest jeden arkusz główny <BAZA> i kilka arkuszy pomocniczych np <SM_S_M>, (ich liczba lub nazwy moga się zmieniać). Do każdego z "Arkusza pomocniczego" podpiete są makra które mają za zadanie skopiować zawartość zamknietych...
Zakładam, że chodzi o zajęcia w liceum albo na studiach? Należy zastosować narzędzia programowania języka VBA w Excelu. Dokładny kod skryptu zależy od tego jak procedura ma działać. Czy ma działać na wyeksportowanym pliku czy też ma działać w czasie eksportu. Jeżeli procedura ma działać na gotowym pliku Excelowskim to kolejne pytanie jest takie, czy...
... wartosc2 = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N") '14 wpisów Te wartości trzeba wprowadzać ręcznie ? Mam ich w bazie ponad 30 - numerów oraz nazw ... Przecież miał to być tylko przykład :D ... pewnie że nie trzeba ... :D Do przejrzenia zmiany w " ini ", " dopisz_do_bazy " oraz " usun_z_bazy " 828986 :D Dla wielu...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
Zamieść ten arkusz, bo nikt nie zgadnie co ty tam robisz... Kolega ' lesławek ' ma słuszny pogląd na tę sprawę ... :) ...wstawiłem kod pozmieniałem wszędzie wartość na TRUE i wyrzuca mi nadal błąd " Nie można użyć tego polecenia w chronionym arkuszu, Aby użyć tego polecenia, należy najpierw usunąć ochronę arkusza .... " dodatkowo wskazuje na ActiveSheet.Range("$D$1:$E$20001").AutoF...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
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")...
Nie podałeś wersji Excela, więc nie wiem, czy możesz używać wszystkich funkcji. Ale zakładając, że masz dostęp do funkcji UNIKATOWE, możesz zastosować taką regułę FW: [syntax=text]=CZY.PARZYSTE(ILE.NIEPUSTYC... zakres pomaluj sobie najpierw ręcznie na żółto, a później formatowaniem warunkowym zrobisz zielone pasy. Adresy...
Dzięki za wskazówkę. Działa do wysłania pierwszego maila, w kolejnej pętli pojawia się komunikat o błędzie dotyczącym linii: .To = "piotr(at)mail.pl" a mianowicie: "Run-time error '-214221238 (8004010a)': Ten element został przeniesiony lub usunięty." Jak to "wyprostować"? Dodano po 1 spróbowałem jeszcze z kodem, który znalazłem w sieci i dostosowałem...
Do wywołania reakcji na wprowadzane do arkusza dane (odpowiedzi na pytania) wykorzystaj procedurę zdarzeniową arkusza: Target - Komórka podlegająca zmianie. W konstrukcji z ".Cells(1,1)" odnosi się do komórek scalonych Intersect - Sprawdza czy "Target" i komórka mająca wywoływać określoną reakcję, to jedna i ta sama komórk, czy też nie Jeśli ta sama...
Alternatywnie kryterium dla koloru zielonego może być: [syntax=text]=ILE.NIEPUSTYCH($B6:$C6;$E6... a dla żółtego: [syntax=text]=ILE.NIEPUSTYCH($B6:$C6;$E6... kryteriów jest istotna - jak w poprzedniej propozycji: wyżej zielony, niżej żółty. Zakres formatowania: D6:D9
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....
A nie możesz skopiować tego do Excela? :) Potem w kolumnie obok zrób prostą funkcję łączącą trzy wiersze w jeden (zlepienie znaczkiem & + funkcja, coś w stylu: =JEŻELI(MOD(WIERSZ(F6);3) = 0;E6&E5&E4;"")). Wynik przefiltruj po niepustych i przekopiuj do osobnego arkusza żeby mieć jeden pod drugim, potem użyj filtru: zawiera teryt="0000000" i funkcji...
Prośba o sprawdzenie kodu. Kod składa się z 5 "oddzielnych" programów, które pojedynczo (1 z nich zostawiam, a resztę zakomentuję) działają. Problem pojawia się, gdy chcę go uruchomić jako całość. W 60% przypadkach coś nie działa. Program wykona się cały bez errorów, ale 1) często wczytuje dane, a potem nie usuwa pustych wierszy 2) źle porównuje obie...
Witam Chciałbym Was bardzo prosić o pomoc w napisaniu algorytm/sposobu, który wydaję się w miarę logiczny i prosty do wykonania…Szukałem rozwiązania jednak nie mogę znaleźć nic podobnego. Poza tym moją wiedza z zakresu VBA jest chyba zbyt skromna. Dane, którymi muszę się zając to kilkaset wierszy wpisów w tabeli. Dane źródłowe wyglądają jak w...
Dzięki, naniosłem poprawki i makro wygląda w ten sposób: 1 czesc: jest ktoś w stanie zobaczyć i ewentualnie poprawić '2 część' makra?
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation = ... Przez to na pewno wolniej działa. Wyrób sobie dobry...
Nie umiem jednak stworzyć szablonu(a w zasadzie wykresu), dzięki któremu mogę zmienić zakres danych, który odpowiada faktycznemu wypełnieniu komórek. Ale to już jest sama sprawa excela a nie c#. O, na to też są metody... Można np. użyć dynamicznego zakresu. Zakładając, że masz nagłówek w pierwszym wierszu, w komórkach A2...Ax masz etykiety, a w C2...cx...
Hej, Chodzi o to, że komórka A1 może zawierać jedną z dwóch wartości: 1 albo 2. I teraz chciałbym, aby w komórce B1 wyświetlała się np. wartość 10 jeżeli w A1=1, ale jeżeli A1=2 wtedy w B1 wyświetlała się lista rozwijana z wartościami do wyboru np 11, 12, 13. W załączeniu przesyłam plik, w którym PRAWIE to działa. W Dane -> Poprawność danych wybrałem...
Załóżmy że masz dwa arkusze: Arkusz1 i Listy. W arkuszu Listy w kolumnie A definiujesz pierwszą listę z nagłówkiem, czyli: Miasta Gdańsk Gdynia Kołobrzeg Poznań Wrocław Warszawa i teraz są dwie opcje: 1. Wersja prosta (lista stała, nie rozszerza się): - zaznacz wszystkie miasta bez nagłówka, - wstaw->nazwa->definiuj, nazwę nadaj ListaMiast, zakres odwołuje...
Brak jeszcze istotnej informacji o wersji używanego programu Excel. Jeśli to bieżąca wersja (365), to można użyć np. takiej formuły: [syntax=text]=ILE.NIEPUSTYCH(LET(dane;PO... formuła zlicza każde wystąpienie ciągu "0001" oddzielone separatorem (lub na końcu komórki),...
Tak jak wspomniałem, ekspertem z excela nie jestem. Ale jak widać, na problemie innych można się czegoś nauczyć, dzięki za sprostowanie. Rzeczywiście nie trzeba sobie utrudniać życia aż tak bardzo, jak zakładałem ;) A jeśli chodzi o funkcję Jeżeli - chciałem osiągnąć coś w rodzaju funkcji CZY.NIEPUSTA raczej (której nie mam w swoim excelu 2003), czyli...
[syntax=vbscript] 1.=WYSZUKAJ(2^99;B:B) 2.=WYSZUKAJ("ŻŻŻŻ";$B:$B) [/syntax] Witam, Koledzy,potrzebuję pomocy odnośnie wyszukania ostatniej niepustej komórki w kolumnie. Podane przykłady formuł dają taką możliwość,pierwsza na cyfry,druga na wartość tekstową,aleee. Ale,gdy przefiltruję kolumnę pod kątem danej ,potrzebnej nazwy,wartość wyszukana pokazuje...
To bardzo piękna lista dynamiczna. Odejmij sobie w formule nazwy ILE.NIEPUSTYCH(coś tam) -1 i nie będzie tej pustej pozycji na końcu. Co chcesz tu jeszcze "ulepszać"?
Jeśli dobrze zrozumiałem problem to można go rozwiązać na wiele sposobów np tak: zakładając ze w komórkach A1, B1, C1 mam jakieś wartości liczbowe i chce z nich policzyć średnia ale tylko wtedy gdy te wartości faktycznie sie pojawiają można napisać =JEŻELI(ILE.NIEPUSTYCH(A1:C1... ŚREDNIA(A1:C1); 0) jest jeszcze parę...
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.
Ponieważ nie wiadomo nazwy zakładek, Formuła dla bieżącego arkusza F1 - nazwę klienta =INDEKS(B:B; PODAJ.POZYCJĘ(MAX(B:B);B:B;0)+PODAJ.POZY...
I chodzi o to żeby komórki od 2 wiersza (pierwszy jest tytułowy) do wiersza, w którym został wpisany numer zlecenia wypełniły się na szaro Proponuję do formatowania warunkowego zastosować formułę [syntax=vbscript]=ILE.NIEPUSTYCH(1:100)>... Oczywiście trzeba określić zakres formatowania na co najmniej te 100 wierszy (z formuły i bez wiersza 1)....
Nadpisz trzecią linię Sub p0() For Each element In Range("i4:i83") If IsNumeric(element.Value) = True And IsEmpty(Cells(element.Row, 17)) = False And Cells(element.Row, 17) = 0 Then If element.Value <= [25%] Then element.Interior.ColorIndex = 43 Else element.Interior.ColorIndex...
Hmm.....nie znam się za mocno na exelu...tylko tyle co ze szkoły(liceum).... czy można zastosować zamiast cyfr 600 dane pole w tym przypadku C20 poprawiona formuła: =JEŻELI(C2>=WARTOŚĆ(PRAWY(B$20;3));"wyso... i jeszcze może jak policzyć studentów Najprościej? =ILE.NIEPUSTYCH(A2:A8) za okularami...
Rzeczywiście - może masz rację Marku. Przemyślałem temat i podaję przykład maksymalnie uproszczony: Dwie kolumny. W pierwszej ( C ) wstawiane są wartości z kolumny ( G ). W drugiej ( D ) są wartości liczbowe. W tym układzie codziennie zaczynamy pracę na naszym arkuszu. Zadanie : Formuła formatowania warunkowego, ulokowana w kolumnie ( D ) ma wyróżnić...
Dla układu danych pokazanego przez autora wątku w pierszym poście. Wstaw do komórki B2 arkusza "Arkusz1" następującą formułę =SUMA.JEŻELI(ADR.POŚR(ADRES(... "&B$1;Arkusz2!$1:$1;0)-1;4;...
Dobrze to spróbuje troszkę jaśniej z użyciem screenów:) http://obrazki.elektroda.pl/1620181800_1... Na pierwszym screenie mamy aktywność z dnia 19.08. W wierszu 240 jest wszystko sumowane np. 19 osób - komórka B240. Sumowanie odbywa się poprzez funkcję ILE.NIEPUSTYCH, której zakres jest dość spory ponieważ nie jestem w stanie przewidzieć...
Dzień dobry, Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.N... ]. Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox: [syntax=vbscript]...
Dzień dobry, Nie można było z tym przykładem od razu? Po pierwsze - w funkcji WYSZUKAJ.PIONOWO drugim argumentem jest zakres danych. W tym zakresie danych w pierwszej kolumnie szukamy nazwy towaru, a z drugiej kolumny odczytujemy jego cenę. Zakres danych znajduje się w innym arkuszu, dlatego do jego zdefiniowania wygodnie posłużyć się nazwą, która będzie...
Witam, próbowałem rozpisać kod na generowanie tabel przestawnych w Excelu (zależy mi na automatyzacji mojej pracy), który wygląda następująco : Sub GenerujTP() If NienormalnyArkusz Then Exit Sub If NienormalneOkno Then Exit Sub If BrakZakresu Then Exit Sub If JestTP Then Exit Sub Dim zakres As Range Set zakres = ActiveCell.CurrentRegion Dim SkorTP As...
Witam serdecznie, potrzebuje pomocy w stworzeniu makra służącemu skopiowaniu określonego zakresu komórek (zawsze inny) w jednym arkuszu i specjalnego wklejenia (jako zdjęcie)do drugiego arkusza. Zdjęcia będą trzy ( z trzech różnych arkuszy) zawsze zakres zaznaczonych i kopiowanych komórek zawierał będzie się od komórki A1 do komórki o wartości słowo...
Witam. Widziałem podobny temat ale odnośnie MS Excell. Link do tematu: http://www.elektroda.pl/rtvforum/topic24... Ja mam pytanie o darmowy arkusz kalkulacyjny z Google drive więc założyłem nowy temat. Mam w jednej kolumnie dane aktualizowane poprzez formularz. W jednej komórce np. G3 chciałbym otrzymywać zawsze aktualne dane z formularza -czyli...
Witam, mam problem tworze etykiety w Excelu i mam taki problem w jednym arkuszu mam dane do etykiet w drugim projekt etykiety, do komórki a5 przypisana mam wartość z arkusza 1 np a1, jak sprawnie się za to zabrać, by poprzez przeciąganie moich etykiet (kopiowanie) dane były pobierane kolejno a nie tak jak jest teraz co piąta komórka? nie wiem czy dobrze...
Witam wszystkich - to mój pierwszy post i miło mi znaleźć się na tym forum. Mam problem następującej treści. Codziennie eksportuję dane do pliku .csv, np. eksport.csv. Dane zapisywane są w 3 kolumnach. Stworzyłem drugi plik (np. drukuj.xls), który ma konkretnie wyglądać - mieć zmienioną orientację strony na poziomą i powiększoną czcionkę, ale te same...
excel pierwsza niepusta komórka excel ostatnia niepusta komórka excel liczba pierwsza
zmniejszanie obrotów silnika pasek pralka spada gąsienica czołg
Grzałka górna piekarnika Bosch Electrolux opada – naprawa mocowań, wymiana uchwytów Xerox WorkCentre 6605 – komputer widzi drukarkę, ale nie widzi skanera po instalacji sterowników
