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...
Witam serdecznie, mam podobny problem lecz jednak inny "...chciałbym aby excel zwracał mi wartość pierwszej i ostatniej (w osobnych komórkach) niepustej komórki w danej kolumnie." Ten problem jest rozwiązany lecz mam problem z tym, że kolumna jest w tablicy z której tworzone są wykresy dynamiczne bazujące na pierwszej i ostatniej niepustej komórki w...
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...
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;...
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...
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...
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...
B1 = WARTOŚĆ(ZŁĄCZ.TEKSTY("99"; A1))
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.
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! :)
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 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...
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...
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]
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...
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, 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.
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.
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
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...
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 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...
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...
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
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...
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...
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...
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...
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...
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...
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...
excel pierwsza niepusta komórka excel ostatnia niepusta komórka excel liczba pierwsza
drugi pilot samochodu zwiększenie przyłącza zasięg telewizji naziemnej
mikrokomputer cobra1 deawoo lanos
Przekłamanie wskazań temperatury w BMW - przyczyny Zakres korekt w mikrosekundach w układach wtryskowych i systemach GPS