Trzeba dodać warunek na długość zawartości komórki: [syntax=text]=ORAZ(KOMÓRKA("wiersz")=WIE... >0 będzie interpretowana jako PRAWDA.
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...
[syntax=vbscript]Sub Niepuste() Sheets("Arkusz1").Select ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow If Left(Cells(x, 1), 13) = "Pomieszczenie" Or Cells(x, 1) <> "" And Cells(x, "F") > 0 Then y = y + 1 Rows(x).Copy Sheets("Arkusz2").Cells(y, 1) End If Next Sheets("Arkusz2").Select End Sub [/syntax] Masz błąd w nazwie pomieszczenia...
Jeśli zmiana nieparzystego wiersza ma wywoływać "timestamp" to proponuję raczej :D kod typu: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Set Zak = Intersect(Target, Range("I1:FK100")) If Not Zak Is Nothing Then Application.EnableEvents = False If Target.Row Mod 2 = 1 Then Target.Offset(1, 0) = Date End If End If Target.Columns.EntireColumn.AutoFit...
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...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
Może tak? [syntax=text]=INDEKS($A$2:$W$2;PODAJ.POZ...
Dzień dobry, Jeśli to ma być zrobione jednorazowo, można użyć Filtra zaawansowanego, jak w pliku przykładowym. Danym trzeba nadać nagłówek, potem taki sam musi być w zakresie kryterium. Jako kryterium wpisać gwiazdkę. Wybrać opcję filtrowania Kopiuj w inne miejsce. Jeśli lista nie zawiera duplikatów, można też użyć funkcjonalności Usuń duplikaty. Należy...
Dobry wieczór, Jeżeli w Arkuszu2 nie będzie niczego więcej poza tym kryterium i zakres kryterium będzie ciągły (bez pustych komórek), to chyba najprościej zamiast konkretnego zakresu napisać UsedRange, czyli w tym przypadku: [syntax=vb]CriteriaRange:= Sheets("Arkusz2").UsedRange[/syntax] Pozdrowienia
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)...
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 Poszukuje odpowiedzi na pytanie mam tabele i chciałbym by zliczało mi nie puste komórki bym wiedział ile ich jest. Niestety funkcja licz niepuste nie może być zastosowana by mam więcej niż 255 rekordów. Dlatego chciał bym że jezeli w kolumnie A znajduje sie cokolwiek zliczało mi od B5 do końca wszystkie wiersze w których coś jest. Prosty przykład...
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...
a jak niby inaczej? W obrębie formuł dodaje się np warunek typu czy.pusta
Takie coś mi wyszło w M2 i przeciągnij w dół [syntax=vbscript] =INDEKS(TEKST($A$1:$L$1;"rrrr-mm-dd");PO... do "&WYSZUKAJ(2;1/(A2:L2<>"");TEK...
dzięki. pewnie nie znam się na szczegółach ale u mnie zadziałało wstawienie do dowolnej komórki formuły: =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! :)
Witam Innymi słowy, w kolumnie C musi suma komórek z kolumn A i B?
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...
...kolego w Twoim wzorcu nawet jeśli zakres "E1:E9" jest całkowicie pusty to pokazuje wynik 3 Chyba u Ciebie... http://obrazki.elektroda.pl/9225081400_1... ">0" oznacza większe od zera Jeśli w komórce jest liczba ujemna lub tekst warunek nie jest spełniony "<>" oznacza niepusta spełniony zawsze jeśli komórka nie jest pusta.
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()...
Jeżeli w dokumencie w którym ma to podświetlenie działać układ tabeli jest taki sam, czyli dwie pierwsze kolumny to imiona i target a potem w czterech kolumnach są dane, to wystarczy wejść do edytora VBA, czyli Alt+F11, w oknie w lewym górnym rogu kliknąć nazwę arkusza w którym są dane (w załączonym przykładzie jest to Arkusz1 o nazwie Arkusz 1 i jak...
Listę, prawdopodobnie, można uznać za skończoną, jeśli ilość elementów z kolumny nazwisk będzie równa liczbie elementów kolumny karty ocen, tak więc przed wywołaniem formy porównaj liczbę niepustych komórek w obydwu kolumnach i jeżeli jest równa pomiń aktywowanie formy
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...
Przykładowo: W komórce A2 formuła: =JEŻELI(B2="";"";1) W komórce A3 formuła: =JEŻELI(B3="";"";MAX($A$2:A2)+1) Kopiujesz formułę z kom. A3 w dół i masz L.P. w kol. A. dla niepustych komórek w kol. B. Mogą być przerwy w kol. B.
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...
Bardzo dziękuję za odpowiedź i poświęcony czas! Działa! :) W zaproponowanej formule dorzuciłam jeszcze tylko jeden warunek oraz $C$4<>"", inaczej przy pustej komórce C4 podświetlały się wszystkie niepuste w całej kolumnie. Pozdrawiam i życzę miłego weekendu.
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) Niemniej jednak proponuję najpierw odfiltrować całą oryginalną kolumnę (niepuste) i skopiować wszystko za jednym zamachem do nowego arkusza - trwa jedno mrugnięcie okiem.
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...
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...
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...
Słuszna uwaga - dzięki za czujność - poprawiłem temat. Niemniej jednak, przy wpisywaniu w google zapytania czy z błędem czy bez, zwraca podobną ilość wyników. Problem mój można rozwiązać poprzez formatowanie warunkowe, ale trzeba wówczas wprowadzać dane z klawiatury (komórki puste/niepuste). Zależy mi natomiast, żeby właśnie tą część harmonogramu wprowadzać...
Błąd w nazwie tylko na forum. Wielkość tablicy może się zmieniać, sczytuje się ona z arkusza w zależności od ilości danych. Dopiero po sprawdzeniu liczby niepustych komórek wiadomo jakie są wymiary tablicy.
W Excel 2007 wykorzystuje w podobnej sytuacji drobne makro, które blokuje hasłem niepuste komórki przy zamykaniu skoroszytu :D [syntax=vbscript]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim cell As Range ActiveSheet.Unprotect Password:="haslo" For Each cell In ActiveSheet.UsedRange If IsEmpty(cell) Then cell.Locked = False Next cell ActiveSheet.Protect...
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...
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?
Ma i to duży. Ale my nadal nie wiemy jaki. Może zamiast dodawać dwie komórki sumuj (jeśli o to chodzi) od pierwszej do ostatniej niepustej w wierszu.
Plik co jest i pod spodem co bym chciał. Problem jest taki, że rozrzut danych w kolumnach jest bardzo duży ;) Chodziłoby o wyszukanie pierwszej niepustej komórki w wierszu i zwrócenie jej oraz kolejnych 12 komórek. Złączenie jest najmniejszym problemem.
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...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
makro, które po wypełnieniu komórki np. B2 (nazwisko) stworzy nowy arkusz nazwie go tak jak B2, zaś w komórce D2 utworzy hiperłącze do tego arkusza , ponadto nowo stworzony arkusz musiałby już zawierać określone tabele W Twoim pierwotnym opisie mowa była tylko o tworzeniu nowych arkuszy i hiperłączy do nich :cry: Dla uzyskania takiego pierwotnego efektu...
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.
Tak jak ci kolega Walek33 radzi - wykorzystaj licz.jeżeli() Założenie Nazwa arkusza w A1 i traktuje liczby jak tekst (innymi słowy zlicza mi w kolumnie od A1 do A100 z arkusza o nazwie wpisanej w komórkę A1 =LICZ.JEŻELI(ADR.POŚR(A1&"!...
Witam, próbuje stworzyć formułę która zwróci mi pozycję ostatniego wystąpienia 'x', czyli dla: 1 kolumny zwróci 5 2 zwróci 9 3 zwróci 10 itd. 4 zwróci 13 to uzyskuje dzięki formule PODAJ.POZYCJE wypełnianiem tej tabeli zajmują się inne formuły przez co wszystkie komórki są niepuste i PODAJ.POZYCJE wariuje, raz pokazuje dobrze a raz nie
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ć...
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...
Musisz kolego zastosować formuły :D (2 symetryczne :!: ) jak na zrzucie 990255 Dzięki, pasuje idealnie! Chciałem zrobić też automatyczną tabelę, która zlicza wszystkie zmienne. Myślałem o użyciu funkcji: =ILE.NIEPUSTYCH(PRZESUNIĘCIE(Koś... do sumowania rozegranych meczów (na podst. niepustej komórki z wynikiem), ale nie wiem,...
To może tak: - w ListoBoxie którego używasz nie można zastosować siatki, - siatkę można zastosować w komponencie ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Mam nadzieję że wstawiłeś ListView tak jak pisałem w poprzednim poście, a nie tylko zmieniłeś nazwy ListBoxów?? - ten kod który Ci podałem...
to akurat chyba ogarne najwiekszy problem mam z tym zeby pobierało tylko niepuste komórki i ustawiało je kolo siebie jak widzisz w kazdym wierszu jest 8 komórek w których scoś jest napisane i 2 które są puste...
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....
Efekt taki jak na zrzucie 910728 tzn. można wpisywać wszystko tylko w puste komórki, natomiast edycja niepustych jest zablokowana hasłem :D - można uzyskać poprzez kod VBA np taki jak w załączonym pliku :spoko: (hasło ustawione przykładowo 1234) 910729
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...
Ok dzięki :) Teraz coś trudniejszego: Mam dwa arkusze z danymi, w arkuszu 3 wpisałem formułę =JEŻELI(LICZ.JEŻELI(Arkusz1!$A$2:$A$10;A... czyli jeżeli (tutaj akurat nazwisko) powtarza się w arkuszu 1 i 2 to kopiujemy je do arkusza C. Później kopiuję resztę i poprzez wyciągnięcie niepustych komórek mam to co chciałem :) czy można...
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 -...
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...
Witajcie experci excelowi ponownie Kolejny raz potrzebuje Waszego wsparcia. Mam następujący problem do rozwiązania: Są kolumny z datami, wg poniższego przykładu: U V W X Z 2011-03-08 2011-03-08 2011-03-09 2011-05-20 2011-03-08 2011-01-10 2011-01-10 2011-05-10 2011-03-08 2011-01-07 2011-01-07 2011-02-01 2011-03-08 2011-02-10 2011-02-14 2011-03-04 i teraz...
A musi być makro? Bo najprościej to zrobić formatowaniem warunkowym, wybierając opcję "niepuste". Formatowanie warunkowe jest dynamiczne, więc zmiany zawartości komórek będą od razu uwzględnione. Tylko jeszcze kwestia formalna: co uważasz za puste komórki? W formatowaniu warunkowym Excel uważa za puste również komórki zawierające pusty tekst oraz same...
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...
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...
excel wartość pierwsza niepusta excel ostatnia niepusta komórka excel pierwsza pusty komórka
instrukcja magnetowid toshiba schemat zasilacz antenowy sonda paliwa wyłączenie
płyta indukcyjna zwarcie elektronika matrycy
Jak zamontować dysk HDD 2,5" w Zgemma H9 Twin? Kabel minusowy kierunkowskazów w skuterze 4T - kolor i lokalizacja