Trzeba dodać warunek na długość zawartości komórki: [syntax=text]=ORAZ(KOMÓRKA("wiersz")=WIE... >0 będzie interpretowana jako PRAWDA.
[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...
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...
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
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)...
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...
licz niepuste nie może być zastosowana by mam więcej niż 255 rekordów Masz na mysli ILE.NIEPUSTYCH ? Jest to dziwne...
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...
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)
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.
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
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;...
...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.
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.
Dziękuję za szybką pomoc.
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...
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?
Jak już zrobiłeś taką ładną tabelkę, to pomyśl, czy nie lepiej, zamiast zagnieżdżać wiele razy funkcję jeżeli(), dać sumowanie warunkowe albo liczbę komórek niepustych z zakresu od podanego dnia do końca miesiąca. Jedynym tematem będzie eleganckie podstawienie adresu początku zakresu do funkcji. Osobiście zaznaczyłbym dni robocze jako niepuste (dowolny...
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")
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.
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...
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...
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...
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...
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?
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...
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...
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.
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...
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....
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.
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.
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...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
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...
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ć...
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 <=...
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...
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
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,...
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&"!...
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?...
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
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...
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...
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 -...
Da się Robisz sobie funkcje która przyjmuje jako parametr zakres komórek. Sprawdzasz w pętli jak w przykładzie wyżej czy czy niepusta i czy występuje w komórce litera M. W zasadzie starczy sprawdzić czy występuje litera M bo jak występuje to znaczy ze jest nie pusata a inne niepuste Cie nie interesują. http://www.e-programme.info/index.php?sh...
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...
Każdy wiersz w bazie OUTPUT odpowiada innemu plikowi (dla przykładu załączyłem tylko jeden) Makro powinno pobrać zakres z kolumny D z pliku 1 671 913 2.xlsx i porównać go z wierszem 2 w pliku Input_Output_813_804_823_824_v11.xlsx Jeśli np. "EW2 "= D2 to w arkuszu OUTPUT kolor tła w danej komórce powinien zmienić się na zielony, a jeśli dane się nie...
Stworzyłem procedurę która wysyła na adresy zawarte w excelu w kolumnie A maile z outlooka i wszystko działa tylko dla jednej komórki .to=range("a1"), nie wiem jak zrobić żeby działał na wszystkie niepuste komórki z kolumny A czy ktoś ma jakiś pomysł? I jeszcze jeden problem... z VBA jestem zielony jak trawka na wiosnę, to moja druga procedura w życiu...proszę...
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ę)...
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...
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 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...
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()...
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....
czy jest ktoś w stanie pomóc mi stworzyć tablice której liczba wierszy to liczba niepustych komórek a liczba kolumn jest równa 5? Tak. [syntax=vb]Option Base 1 Sub moja_tablica() Set zakres = ActiveSheet.Range("A1:E10") komorki_niepuste = Application.WorksheetFunction.CountIf(za... "*") ReDim tablica(komorki_niepuste, 5) As Variant End Sub[/syntax]...
Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Takie makro można zarejestrować, nawet nie trzeba używać do tego VBA. Zwróć uwagę na to, że wciskając END a potem strzałka - skaczemy do końca(początku/następnej zmiany) zapełnionego...
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...
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...
Witajcie, Potrzebuje wykonać makro które: Będąc w Arkuszu1 po zastosowaniu makra, zapisywało wszystkie niepuste komórki Arkusza2 (zakres A:A) o nazwie pobranej z komórki (B3) Arkusza3 do pliku tekstowego który zostanie utworzony w tej samej lokalizacji co otwarty dokument excela z obsługą makra. Po wykonaniu makra w Arkuszu1 np. w komórce C5 pojawia...
W oryginalnym pliku Prot_plik.xls zastosowany jest m.innymi kod: Jeśli zmieniana komórka jest niepusta to wypełnienie ustaw na szary i kolor czcionki na szary, jeśli inaczej to kolor wypełnienia ustaw na niebieski" . Nie wiem co zmieniłeś w kodzie lub arkuszu, żeby uzyskać taki efekt jak na Twoim zrzucie ? Proponuję wróć do oryginału :D
Możesz dokładniej wytłumaczyć (może załącznik zamieścić?) co chcesz osiągnąć, bo nie rozumiem? :) Jeżeli wyszukać ostatni niepusty wiersz w kolumnie z formułami, to np.: ost_wiersz = ActiveSheet.Columns(2).Find(... After:=ActiveSheet.Cells(1, 2), _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
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...
Cześć, mam duży problem z VBA w Excelu... Muszę coś zrobić, a nie potrafię. Przesiedziałam już mnóstwo godzin, przejrzałam kilka tutoriali, ale dalej jest to dla mnie czarna magia... Czy ktoś mógłby mi pomóc? Dołączam plik z przykładem oraz opis jak powinno to działać. Mam dwie tabele (A i B), które są wypełniane danymi ręcznie, chcę aby trzecia tabela...
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...
Dziękuję za propozycje. Skorzystałem po części z rozwiązania adamas_nt i dodałem kolumnę oznaczoną jako LP, która zachowuje się tak jak to było opisane. Dostosowałem resztę do swojego arkusza i rezultat mnie w pełni zadowala. Dziękuję, temat do zamknięcia. Dodano po 6 Dodano kolumnę zliczającą niepuste formułą =ILE.NIEPUSTYCH($D$2:D2) Następnie...
Cześć, W jaki sposób mógłbym przenieść dane z jednego arkusza w tym wypadku Nowe dane do arkusza obliczenia odpowiednio dostosowując formatowanie komórek do arkusza docelowego i ustawiając odpowiednią kolejność danych. W arkuszu Obliczenia w kolumnie rachunek dane są przechowywane jako tekst natomiast w Nowych danych jako numer lub ogólne. Dodam, że...
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...
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...
ja też mam pytanie. potrzebuję stworzyć makro które będzie przeciągało formuły w dół. problem polega na tym, że nie wiem ile wierszy w dół. potrzebuję żeby makro sprawdzało ile komórek w wierszach jest "niepustych" np w kolumnie "A" i o tyle własnie przeciągnął formuły. plik działa tak, że co jakiś czas doklejam dane do poprzednich (tworzy się baza...
Zrobiłbym to tak: Zastosowałbym pętlę Do While, gdzie warunkiem będzie niepusta komórka w kolumnie D arkusza "Raport" w pliku "test". Obszukujemy kolumnę C w pliku "alredy..." Metoda Find wygeneruje błąd jeśli nie znajdzie szukanej frazy. Czyli jeśli błędu nie ma - pracownik jest. Jeśli błąd - pracownik zwolniony, można usunąć wiersz wg schematu (oczywiście...
Czemu nie załączyłeś pliku, tylko obrazek, na którym niewiele widać? Generalnie formuły formatowania warunkowego w Excelu pisze się z punktu widzenia pierwszej (dokładniej aktywnej) komórki formatowanego zakresu, a zatem raczej nie będzie tam odwołań do zakresów, chyba, że są to odwołania do zakresów zewnętrznych w stosunku do zakresu formatowanego....
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...
(...) 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ć...
Jak wiadomo, arkusz kalkulacyjny posiada cały szereg ciekawych funkcji, których inteligentne użycie pozwala rozwiązać wiele codziennych, praktycznych problemów napotykanych podczas pracy z tabelami. Dzisiaj mały przykład. Mamy dowolną tabelę, w której są zapisane kolejne wiersze danych, chcemy je elegancko ponumerować (najlepiej, żeby numeracja była...
Zgodnie z sugestią zrobiłem każdy dzień tygodnia w osobnym arkuszu, dane zawsze w wierszu A - niestety nie mam wiedzy w jaki sposób zrobić aby w docelowym arkuszu automatycznie w poniedziałek na liście nie było nic, we wtorek pokazywało tylko pozycje zakończone w poniedziałek, w środę aby pokazywało pozycje zakończone w poniedziałek oraz we wtorek itd....
Ktoś musi je wpisać :) Wklepanie dwóch prostych formuł, skopiowanie jednej z nich przy użyciu kombinacji skrótów klawiszowych w dowolną ilość komórek w kolumnie zajmuje <5 sekund. O takim zautomatyzowaniu myślimy? Przydatne skróty: 1. Ctrl+strzałka w dół - przejście do ostatniej niepustej (Np w kolumnie D) 2. Ctrl+Shift+Strzałka w górę - zaznaczenie...
Nic tak nie uczy jak przykłady, a tych jest na forum dostatek. Szukaj pod hasłem "Excel Dir", "Excel lista plików" i coś na temat pętli. Np For Each element In kolekcja , gdzie kolekcja to zakres komórek z nazwami katalogów. Np coś takiego [syntax=vb]Sub bla() Dim zakres As Range, kom As Range Dim kat As String, sKat As String, plik As String Set zakres...
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...
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...
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)...
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")...
[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...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
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...
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...
... 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...
Witam. Mam trzy kolumny A, B i C. Z kolumny A kopiuję dane do komórki C1 za pomocą formuły =A3&","&A4&", "&A5&","&A6&","&A7 . Teraz uruchamiam autofiltr na kolumnie B z parametrem "niepuste". Dane przefiltrowane, jednakże W komórce C1 pojawiają się także dane niewidoczne po użyciu filtra. Jakiej użyć formuły aby do komórki C1 wpisane były tylko przefiltrowane...
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...
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...
excel wartość pierwsza niepusta excel ostatnia niepusta komórka excel pierwsza pusty komórka
konto allegro alpine kostki głośnik wymiana magnesu
panasonic tx21s1tcp schemat wentylator dospel
Schemat elektryczny lusterka lewego Renault Trafic 2015 – pinout, kolory przewodów, bezpieczniki Nivona CafeRomatica 752, 572 – gdzie kupić i jak rozebrać górny tłok zaparzacza
