Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
Dane - Filter nie dziala ?
[syntax=vbscript]Sub UkryjOdkryj() If [ZZ1] = 0 Then For x = 32 To 52 If Cells(x, "B") <> "" And Cells(x, "B") = 0 Then Rows(x).Hidden = True Next [ZZ1] = 1 Else For x = 32 To 52 If Rows(x).Hidden Then Rows(x).Hidden = False Next [ZZ1] = 0 End If End Sub [/syntax]
Private Sub Worksheet_Calculate() Rows("6:12").Entir... = Not Range("B1") End Sub Dodano po 56 Private Sub Worksheet_Change(ByVal Target As Range) - nie trzeba
Znalazłem rozwiązanie mojego problemu. Z niewiadomych przyczyn w ustawieniach zwykłego formantu pola wyboru, czyli klikając 'Formatuj formant' w zakładce 'Właściwości' nie ma możliwości zaznaczenia opcji 'Przenieś i zmieniaj rozmiar wraz z komórkami', co jest wymagane w przypadku ukrywania komórek w których te pola się znajdują. Rozwiązaniem jest obejście...
Generalnie Excel tak już ma, że zakres złożony traktuje jak osobne zakresy i drukuje je na osobnych stronach. "Rozumie" natomiast ukrywanie wierszy. Wierszy ukrytych nie drukuje, pomimo że są zawarte w obszarze wydruku. Wiersze można ukrywać ręcznie, za pomocą filtra lub za pomocą grupowania. Nie pokazałeś żadnego konkretnego przykładu, więc trudno...
W zasadzie mozna to zrobić na trzy sposoby, mowa jest o drukowaniu arkusza bez "niechcianych" wierszy. 1. uzyć narzędzia Aparat fotograficzny 2. zastosować Grupy i konspekty 3. ukrywać wiersze niechciane Pozdrówka
Musisz trochę poczytać n/t VBA szczególnie o procedurach zdarzeniowych Przy zdarzeniach typu Change wywoływana jest automatycznie procedura w momencie zmiany stanu (tj. wartości) Bardziej chodzi tu, przez co te zmiany się dokonały niż o samą zmianę, bo u (at)jahol zmiana wartości się dokonała przez funkcję. https://docs.microsoft.com/en-us/office/...
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
Witam forumowiczów, Potrzebuje pomocy w napisaniu programy w VBA. Mianowicie: w excel-u mam listę produktów(kolumna 'b') i ilość(kolumna 'c') Potrzebuje wydrukować tylko wiersze zawierające jakąś liczbę w kolumnie ilość oraz kolumnę SKLEP i DZIEŃ, DATA. Proszę o pomoc - jeżeli będą to komendy proszę podajcie jak ich używać http://img714.imageshack.us/img714/9899/...
Mam listę w arkuszu excel-a (wersja 2016) która zajmuje kilka stron. Chciałbym żeby na każdej stronie powtarzały się wiersze u góry i u dołu strony (coś w stylu nagłówek i stopka). Z górą nie ma problemu (ustawienia strony / u góry powtarzaj wiersze), ale jak to zrobić na dole ?
Mam plik csv do importu do sklepu no i powinien on posiadać ID numer, ale trzeba go dopisać. Otwieram plik w excelu i mogę tam dopisać na początku każdego wiersza te numery jednak to nie o to chodzi żeby robić to ręcznie prawda? jakiej komendy itd użyć żeby excel dopisał do początku każdego wiersza "1|" ? Dla wyjadaczy to prościzna, ja sie na tym nie...
Nie mogę edytowac tabeli w poniższym pliku, tam jak widzicie jest poz. nr 1 zawiera ona przykładowy opis, ale wiersz jest zbyt wąski i na wydruku nie widać wszystkiego, może ktoś pomóc?
Temat prosty, ale mało znany, dlatego pozwalam sobie na prościutki wywód, ta funkcja jest często bardzo przydatna. Mamy dane w dwóch kolumnach, zaznaczamy je jako blok, kopijuemy do bufora, klikamy na komórkę, do której będziemy wklejać i wklejamy specjalnie - zaznaczając opcję http://obrazki.elektroda.net/25_12682625... Pozdrowionka
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel (at)ElektrodaBot
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
Witam, mam następujący problem. Mam arkusz Zakupy Vat. Do niego dodałem kolumnę z wartościami (in jak inwestycje itd). Zastanawiam się czy za pomocą funkcji wyszukaj pionowo uda mi się rozpoznać komórkę z wartością in i skopiować cały wiersz do kolejnego arkuszu o nazwie Inwestycje. Czy to już trzeba będzie pisać makro? Najłatwiej będzie mi opisać mój...
Witam, potrzebuje stworzenia makra dla ponizszego problemu. Chce skopiowac kilka wierszy z danego arkusza, jezeli dana wartosc wystepuje w pierwszej kolumnie tychze wierszy. Skopiowane komorki a najlepiej tylko wartosci bez formatowania, chcialbym dodac do bazy danych juz istaniejacej w tym samym arkuszu na samym dole. Dla uproszczenia: szukamy w kolumnie...
Witam, Nieczęsto zwracam się z prośbą na forum, ponieważ wynajduję informację w innych tematach. Z dzisiejszym problemem nie mogę sobie poradzić, nie wiem nawet przy pomocy czego można to ugryźć. Polega to na tym, że mam Arkusz1, a w nim ok 10-15 kolumn, A Lp., B Zadanie (w niej stałe wartości I, II, I-II), C Nazwa, itd. Chciałbym aby na podstawie kol....
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
Witam! temat wałkowany po tysiąckroć ale cóż począć skoro im więcej czytam tym mniej rozumiem. Proszę więc o idiotoodporną podpowiedź jak skonstruować makro przenoszące wiersz zawierający 17 wartości (17 kolumn) do nowego arkusza w tym samym układzie wg kryterium z kolumny A, wybieranego z listy rozwijanej ( pusta i dwie pozycje tekstowe). Warunkiem...
Witam! Przyznam, że nie jestem nawet średniozaawansowany w Excelu. Muszę utworzyć kilkaset nowych wierszy w arkuszu. Posiadam plik z około 22000 wierszy. Na nowym arkuszu chciałem utworzyć jedną komórkę, w którą podawałbym wartość. Ta wartość miałby być odszukana w tym wielkim pliku (arkuszu) i miałaby pociągnąć wartości z kilku komórek (np. G,H,Z)...
Spróbuj z autofiltrem (makro nagrane rejestratorem i zmodyfikowane) Sub filtruj() Range("C5:C69").Au... ActiveSheet.Range("$C$5:$C$... _ Field:=1, Criteria1:=Array([d3], [e3], [f3], [g3]), Operator:=xlFilterValues End Sub Aby zupełnie...
No to tylko makro np: Sub Makro1() Dim x As Integer Cells.EntireRow.Hidden = False x = WorksheetFunction.Match("C"... Columns("J"), 0) Do While Cells(x + 1, 10).Value = "C" x = x + 1 Loop Rows(x + 1 & ":65536").Hidden = True End Sub Nie robiłem zabezpieczenia dotyczącego...
1. Masz załączony pusty archiwum 2. Niech wszystkie checkboxy odpalają tą samą procedurę w zdarzeniu zmiany. Dalej to chyba jasne.
witam jestem początkujący jeśli chodzi o VBA, w załączniku jest plik, w którym mam użyty kod do ukrywania / odkrywania wierszy na podstawie zawartości kolumny 9 i checkboxa [syntax=vbscript]Private Sub CheckBox1_Click() Dim lastRow lastRow = Cells.SpecialCells(xlCellTypeLastCell).R... Dim v_column v_column = 9 If CheckBox1 = True Then For i = 1 To lastRow...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
W załączniku, wartość z D41 jest przenoszona do AK1
Wydaje mi się, że najlepszym rozwiązaniem w przypadku wartości stałych, wpisywanych z klawiatury jest stosowanie grupowania arkuszy. Wtedy w obu arkuszach jest dokładnie ta sama zawartość. Pozwala to również na formatowanie komórek, ukrywanie i odkrywanie wierszy, usuwanie i wstawianie wierszy. Trzeba tylko zadbać, żeby wiersze sobie odpowiadały. Poprawki...
Witaj Zdaje się że ukrywanie wierszy to tylko przez VBA można zrealizować. Niestety nie jestem specem od VBA, dlatego tylko tyle udało mi się wykombinować. Połączenie VBA z dodatkowymi dwoma kolumnami pomocniczymi. Ktoś bieglejszy w VBA pewnie by to zrobił lepiej i mniej łopatologicznie ;) W tych dodatkowych kolumnach szukamy poszczególnych miast, czy...
dla przycisku tak daj takie samo makro tylko zamień True na False
Jeśli chodzi o moją znajomość VBA to dno i 2 metry mułu To może jednak zamiast wchodzić w VBA zastosuj zwykły filtr. Tekst w komórkach w kolumnie "pokaż" możesz sformatować na biało i nie będzie ich widać. Ewentualnie zmień nazewnictwo żeby to było może trochę bardziej logiczniejsze z tym filtrem.
http://obrazki.elektroda.net/93_12897560... Coś takiego?
1) Lista musi mieć ciągły zakres. Najlepiej wykorzystać do tego osobny arkusz. Trochę można zautomatyzować (patrz załącznik). Założyłem, że nazwa firmy w Arkusz1 występuje co 13 wierszy. 2) W przykładzie wykorzystałem VBA (Select Case) i ukrywanie/odkrywanie wierszy 3) j.w.
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
Cześć. Pojawił sie dodatkowy problem. Potrzebuje filtrować produkty do których podpinam zdjęcia. Robie to na bazie filtra zaawansowanego, niestety w przypadku gdy ukrywane sa wiersze, zdjecia z ukrytych wierszy nachodzą na odkryty nastepny wiersz. Czy jest jakis sposób alby zdjęcia ukrywały sie razem z wierszami?
Ciekawa kombinacja :) Trochę nad tym pomyślałem ale wyszło (choć dziwie się że excel nie zgłasza odwołań cyklicznych). Zapewne można to uprościć ale już nie mam czasu. Nie przeraź się :) W c2 wpisz: =JEŻELI(E2="";MAX($C$1:C1)+1;JEŻELI(E2>0...
Wklej w kod arkusza :[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "C47" Then If LCase(Target.Text) = "przelew" Then 'Przelew, PRZELEW, przelew Rows("48:49").EntireRow.Hidden = False Else Rows("48:49").EntireRow.Hidden = True End If ElseIf Target.Address(0, 0) = "C47:E47" Then 'jeśli pusta też ma odkrywać to...
chodzi o to, żeby z 1 i 2 (i innych których nie ma we wzorze) arkusza z danej kolumny konkretnego pracownika na ostatni arkusz przenosiły się w osobną tablkę Jeżeli posiadasz Excela powyżej wersji 10 :?: to tego typu efekt jak na zrzucie 1047238 możesz uzyskać poprzez utworzenie tabelki połączonej (łącza z danymi z tabelek "kierunkowych" np w ukrytym...
Witam. :arrow: Korek_123 Ponieważ Excel >=2007 zapisuje w formacie xml, następnie ukrytych wierszy i kolumn dla każdej linii ponad milion jest zapis "ukryte = 1 " i jest coś innego. Spróbuj zapisać w formacie binarnym. Ale różnica jest mała. P.S. Osobiście używam Excel97, maksymalno 2003. W każdym razie mój projekt, inny Excel otworzy. Edit: Ale spójrz...
Dodałem jeszcze możliwość ukrywania kolumn z niepotrzebnymi dniami w miesiącu, aktualizację dni miesiąca na pasku jak również zmiana koloru na szary dni sobota i niedziela. UWAGA!, nie zmieniaj (nie dodawaj nie usuwaj żadnych kolumn i wierszy) bo to spowoduje że makro będzie niepoprawnie działać
https://support.office.com/pl-pl/article...
Powrócę do tematu. :-( Zrobiłem takie ukrywanie na arkuszu, w którym wprowadzam dane. Wydruk natomiast 'wychodzi' z innego arkusza, do którego przenoszą się dane. Potrzebuję też żeby i tam się ukrywały/pojawiały wiersze na podstawie wprowadzonych danych w tym pierwszym arkuszu. O ile temat jest prosty w aktywnym arkuszu, to po automatycznym przeniesieniu...
O to ciekawe rozwiązanie. O ukrywaniu wierszy nie pomyślałem. To rozwiązanie mi się przyda. Dzięki.
Zaznaczamy wybrane kolumny (lub wiersze) klikamy na : Dane/Grupy i konspekty/Grupuj.. I gotowe
Szanowni Państwo, Niestety nie znam się na makrach i nie potrafię zmodyfikować podanych wcześniej rozwiązań, a chciałabym dorzucić jedną opcję. Chciałabym, aby wiersze z określonego zakresu (np od 60-70 wiersza) ukrywały się, jeżeli pierwsza komórka w wierszu ma wartość 0. Będę bardzo wdzięczna za pomoc. Pozdrawiam, Dominika
Przepisałem tylko, bez sprawdzenia. Zmiennej "kol" przypisz Nr kolumny, w której wyliczasz dni miesiąca. [syntax=vb]kol = 2 'kolumna, odpowiadająca wierszowi Nr.2 w "Szychtownicy" 'zawierająca dni miesiąca 'Jeśli "Kalendarz" ma indeks 1 to licznik od 2 i wtedy zbędny drugi argument If'a For sht = 1 To Sheets.Count If Sheets(sht).Name <> "Podsumowanie"...
ponownie dziękuję za pomoc :) Mam jeszcze pytanie, czy korzystając ze sprawdzania poprawności danych jest jakiś sposób, żeby nie pozwalał zostawiać pustych pół. Chodzi o to, że jak inne komórki w wierszu są puste to komórka w kolumnie H też może być pusta, ale jeżeli inne komórki w wierszu są wypełnione, to komórka w kolumnie H nie może być pusta i...
uzupełniam kolumnę C i poniżej w tabelach automatycznie dodają się wiersze z tym tekstem co powyżej. Dokładnie podobny mechanizm mam na myśli :D , ale oparty na formułach, oraz na automatycznym ukrywaniu pustych wierszy (realizowane prostym makrem Worksheet_Change) :idea: 989747 Jak widać na zrzucie wstawiam pierwszą literę nowego surowca, zatwierdzam...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
Masz literówkę, powinno być: "delete". Dla ukrywania nagraj sobie makro i podstaw, zamiast delete, polecenie nagrane przez rejestrator (ciąg po selection).
Witam, Może ktoś pomoże z taką zagwozdką związaną z autofiltrem: Chciałbym za pomocą funkcji inputbox działającą w pętli wprowadzać kolejne kryteria autofiltra i na koniec uruchomić jednokolumnowy autofiltr z tymi kryteriami. Kod wygenerowany rejestratorem: ActiveSheet.Range("A4:O19... Field:=2, Criteria1:=Array("038/WD", "143/WD", "450/WD",...
Witam, Proszę o pomoc w rozwiązaniu problemu. O ile poradziłem sobie z automatycznym ukrywaniem wierszy: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Application.Intersect(Target, Range("F11:Z11")&#... Is Nothing Then Range("A29:A74").A... ActiveSheet.Range("$A$29:$A...
(at)adamas_nt dzięki za pomoc, plik działa wyśmienicie. Jednak mam jeszcze jedną małą prośbę o pomoc w rozbudowaniu a dokładnie dodaniu jeszcze jednej opcji do kodu, niestety nie mam pojęcia jak to zrobić. W załączonym pliku pokazałem o co mi chodzi. Podam może parę szczegółów. W pliku dodałem parę arkuszy które ściśle odpowiadają swoją nazwą w odpowiednich...
Z wcześniejszego twojego postu: Rozumiem że ma się kopiować w te same wiersze w arkuszu2 (jeżeli od początku [pierwszego wiersza] arkusza 2 to kod będzie trochę inny.) [syntax=vb]Sub cos() Dim x As Integer For x = 12 To 111 If Worksheets("Arkusz1").Cells(x, 16) <> 0 Then Worksheets("Arkusz2").Cells(x, 2) = Worksheets("Arkusz1").Cells(x, 2) Worksheets("Arkusz2").Cells(x,...
Funkcja SUMA działa także na ukrytych komórkach. Może użyć funkcji MIESIĄC() i sumować kolumnę jeżeli wynik jest większy od bieżącego miesiąca ( MIESIĄC(DZIŚ()) ). Albo oprócz ukrywania kolumny dodatkowo wstawić jakiś znacznik np. w pierwszym wierszu, następnie sumować tylko kolumny, które nie mają tego znacznika w pierwszym wierszu.
To proste, mam arkusz w którym dość często wprowadzam zmiany, ale w normalnym trybie w arkuszu działają różne makra które miedzy innymi ukrywają wedle potrzeby wiersze i kolumny. Kiedy potrzebuję wprowadzić w arkuszu zmiany to mam jeden przycisk którym w arkuszu odkrywam wszystkie wiersze i kolumny, ale w tej sytuacji muszę włączyć tryb projektowania...
Witam wszystkich! Mój problem jest następujący. Arkusz Excel zawiera 65 kolumn z tytułami i ponad 6000 wierszy. Chciałbym stworzyć okno checkboxów lub ich listę, gdzie mogę zaznaczyć checkboxy pokazujące/ukrywające określone kolumny. Potrafię stworzyć pojedynczego checkboxa który mi ukryje/pokaże żądaną kolumnę, ale nie uśmiecha mi się robienie tego...
Witam Mam takie zapytanie w arkuszu jest utworzona baza pracowników z podziałem na działy. Czy jest możliwość ukrywania odpowiednich kolumn w zależności od zaznaczonego czekboksa i wartości w komórce. Chodzi o to że jak zaznaczę czeka umieszczanego w komórce d8, będą widoczne tylko kolumny Q, AD, AQ i tak dalej. Zrobiłem to ręcznie ale jest to po pierwsze...
Hej, potrzebuje makro w excelu, które ukryje mi wiersze 7 i 8 gdy w komórkach B4 i B5 pojawi się wartość większą niż 85. Próbowałem przerobić kilka makr które tu znalazłem jednak nie są to zadowalające efekty. [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B4:B5" Then If Target.Value > 85 Then Rows("7:8").EntireRow.Hidden...
Teraz kolego to ładnie kopiuje wszystkie wystąpienia. Bardzo Ci dziękuję za Twą pomoc. Próbuję jeszcze zmienić coś w kodzie ponieważ po zakończeniu instrukcji w arkusz1 zostaje tylko jeden wiersz ( ostatni ) a reszta jest ukrywana. Może mi się uda doczytać jak to zmienić. tak to wygląda : https://obrazki.elektroda.pl/2877661100_...
Mam taki problem z macrem ukrywajacym wiesze jezeli komorki w kolumnie 5 sa puste. Makro tego typu musi być umieszczone w module arkusza , a nie w module ogólnym :cry: Dla uniknięcia problemów (np. tekstowego formatowania komórek w kolumnie 5 ) proponuję zmianę warunku ukrywania wierszy :D [syntax=vbscript]If Cells(RowCnt, ChkCol).Value = "" Then[/syntax]
I znowu mogłem powiedzieć o czymś o czym nie pomyślałem. Jak już wspomniałem w moim pliku korzystam z pomocniczego wiersza z którego kod pobiera dane a dokładnie to: 1 a w dniach których jeszcze nie było komórka jest pusta. W komórkach w drugim wierszu są takie wzorce jak poniżej ale ja chcę z nich zrezygnować dlatego chciałem zmodernizować kod tak...
ukrywanie wierszy excel ukrywanie wierszy kolumn automatyczne ukrywanie wierszy
lampy operacyjne peugeot nierówno uciekać powiatr
suszarka electrolux ew8h458bp suszarka electrolux ew8h458bp
Redukcja szumu w przetwornikach gitarowych Fender, DiMarzio, Fishman – ekranowanie, noiseless, humbucker Mercedes W140 – schemat wiązki alternatora, trasa kabli, zdjęcia, typowe usterki
