Chyba nie działa tak jak chciałam :( Ukrywa mi owszem ale wiersz 3 w arkuszu info. Mi zaś chodziło, aby ukrywał wiersz 2 w arkuszu podsumowanie jak nacisnę "nie". Jeszcze raz prośba o pomoc.
Są dwa typy userów - administrator który widzi wszystkie arkusze i user szeregowy, czyli sprzedawca (Basia/Ania itp), który widzi tylko swój arkusz z klientami oraz arkusz z raportami. Po uruchomieniu skoroszytu Excel pyta o login i hasło, na tej podstawie makro ukrywa niektóre arkusze, zależnie od tego kto się zaloguje. Arkusz z klientami "wolnymi",...
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", ""False"")" Przecież wiersz z tą funkcją znajduje się w procedurze którą zamieściłem w moim poście. Napisałem też, że makro ukrywa to co ma ukryć, natomiast szukam rozwiązania problemu powstającego wtedy, kiedy użytkownik podwójnie kliknie na pasek tytułu Excela - wtedy się wstążka "odkrywa", mimo iż programowo...
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...
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...
W takim przypadku zastosuj to co napisałem wcześniej.
Cześć, Chciałbym w pliku excela osiągnąć taki efekt, że puste wiersze są automatycznie ukrywane, ale jednocześnie odkrywa się po kolei każdy kolejny wiersz gdy w jednej z komórek w wierszu wyżej (nad nim) pojawi się cokolwiek. Chodzi o to, że użytkownik pliku ma wiele wierszy do wypełnienia, ale nie zawsze musi wypełnić je wszystkie. Na końcu tabeli...
takie zadanie dostałem A są wakacje. [syntax=vbscript]Const w As Long = 8 Sub Ukryj() If Cells(w, 1).EntireRow.Hidden Then For x = w To 1 Step -1 If Cells(x, 1).EntireRow.Hidden = False Then Cells(x, 1).EntireRow.Hidden = True Exit Sub End If Next Else Cells(w, 1).EntireRow.Hidden = True End If End Sub Sub Odkryj() For x = 1 To w If Cells(x, 1).EntireRow.Hidden...
Dane - Filter nie dziala ?
W załączniku, wartość z D41 jest przenoszona do AK1
[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
Na początku procedury wyłącz odświeżanie (1), na końcu włącz. Jeśli masz oprogramowane zdarzenia arkusza lub funkcje użytkownika w arkuszu, to wyłącz także zdarzenia (2). [syntax=vb]Application.ScreenUpdating = False '1 Application.EnableEvents = False '2 i = 1 Do ... Loop Application.EnableEvents = True Application.ScreenUpdating = True[/syntax]
Jeżeli CheckBox=True warunkowo ukrywa wiersze, =False odkrywa, to [syntax=vbscript] If CheckBox1 = True Then For i = 1 To lastRow If (StrComp(Cells(i, v_column).Value, "Scrap", vbTextCompare) = 0) Then Cells(i, v_column).EntireRow.Hidden = True End If Next i Else rows.EntireRow.Hidden = False End If[/syntax]
Problemem w Twoim załączniku był wiersz z datami. Musisz je odpowiednio sformatować.
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...
Sorki nie dopisałem chodzi mi o programowanie Excela w VBA!!! te uwagi będą również trafne w tym przypadku.
http://obrazki.elektroda.net/93_12897560... Coś takiego?
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"...
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/...
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?
może źle się wyraziłem chodzi mi o obszar roboczy widocznych będzie tylko część wierszy po odfiltrowaniu reszta jest ukryta jak w nowym załączniku czy da się coś takiego zrobić podejrzewam że będzie potrzebne makro, ale pewności nie mam. nowy załącznik raz jeszcze nie chce w filtrze odznaczać pozycji których ma nie wyświetlać bo musiałbym "odptaszkować"...
Witam, Mam problem z wolnym działaniem makra ukrywającego niepotrzebne komórki, przejście makra przez ok 300 wierszy zajmuje ok 10 sekund, niestety jest to za długo. Kod Sub Rozwiñ6_Zmienianie() Dim rn As Range Application.ScreenUpdating = False 'Range("a1").Value = InputBox("które dane pokazac") 'Range("a1").Value...
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
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...
Formatowanie na biało dotyczyło wyłącznie kolumny z filtrem - no ale jak sobie poradziłeś to nie ma tematu.
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,...
Hej, Mam taki problem z macrem ukrywajacym wiesze jezeli komorki w kolumnie 5 sa puste. Zawiesza on calego excela, dziala bardzo powoli. Dodam ze w innym workbooku mam ten sam kod w analogicznej tabeli z analogicznymi formulami i dziala jak burza. Kod jest nastepujacy: Sub HideEmptyRows() Application.ScreenUpdating = False Application.EnableEvents =...
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...
(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...
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_...
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...
Nie rozwiązano na forum
Cześć Jestem początkującym i mam problem w napisaniu makra który by mi chował parenaście wierszy. W chwili obecnej mam napisane takie makro Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Cells(3, 4) = "Badanie wstępne" Then Rows("42:47").Select Selection.EntireRow.Hidden = True Else Rows("42:47").Select Selection.EntireRow.Hidden = False...
"szukasz makra" tzn sugerujesz, że ono gdzieś istnieje? Pachnie jak zadanie szkolne. Nie na Elektrodzie wykonujemy zadań szkolnych. Zacząłeś już robić? Na konkretny problem można liczyć na pomoc.
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...
Funkcja SUMY.CZĘŚCIOWE nie powinna wymagać żadnej aktywacji, żeby się przeliczyła po ukryciu lub odkryciu wierszy. W Excelu 2007 funkcja przelicza się poprawnie. Może w nowych wersjach wprowadzili jakieś zmiany, które mają wpływ na przeliczanie. W której wersji Excela funkcja się nie przelicza? Czy na pewno jest włączone automatyczne przeliczanie skoroszytu?
1. Masz załączony pusty archiwum 2. Niech wszystkie checkboxy odpalają tą samą procedurę w zdarzeniu zmiany. Dalej to chyba jasne.
Pokaż jak "załadowany" masz cboCostCenter.Value (i jak wartości) to [syntax=vbscript]Val(cboCostCenter.Value...
Nie powiem, żeby to było jasno napisane. Co z tego zrozumiałem. Numery stron nie mają pochodzić od Excela, tylko mają być wyliczone w arkuszu (w żółtych polach). Obszar wydruku może być określony makrem na podstawie widocznych wierszy, ale należy zadbać o przerwy między stronami do druku. Jeśli tak, to propozycja byłaby taka: 1) ukrywamy ręcznie wiersze,...
Cześć, chciałbym się podłączyć pod temat chyba z podobnym problemem. Posiadam arkusz excel gdzie osoba trzecia będzie wprowadzać nowe pozycje (wiersze) i uzupełniała do każdej pozycje dane w kolumnach. Każdy wiersz posiada 10 kolumn z czego kolumny 2-3 (trzy) posiadają skomplikowane formuły dot. auto-uzupełnienia. Excel jest tak zrobiony, że jak ta...
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
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...
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...
Posiadam działającą wyszukiwarkę w Excelu, która działa tylko dla jednej kolumny [syntax=vbscript]Private Sub TextBox1_Change() ActiveSheet.ListObjects("Data1").RANGE.A... field:=2, Criteria1:="*" & [a2] & "*", Operator:=xlFilterValues End Sub[/syntax], jak zmodyfikować makro bądź utworzyć całkowicie nowe, aby działało dla wielu kolumn....
nie wiem co dalej czegoś brakuje :) wiedzy zapewne. Poszukaj trochę i przyjrzyj się jak to zrobili inii. Po mojemu spokojnie obejdzie się bez makr. 1. Znajdź pozycję wybranych z list wartości. funkcja wiersz podstawiasz wynik funkcji z pkt.1 3, Kolorowanie wierszy zrealizujesz przez formatowanie warunkowe. Formuła: =$A6=1 zakres: =$B$6:$O$36 4. Zamiast...
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 zapytanie dotyczące tego czy w ogóle istnieje coś takiego, a następnie jeżeli istnieje możliwość stworzenia czegoś takiego wytłumaczenie jak to zrobić. Mianowicie mam taki problem, żę: Mam bazę danych w moim projekcie firmowym w Excelu, gdzie istnieje tabela z kursami, które wykonały moje auta w ostatnim czasie. Jest rozdzielenie na takie...
Nie wiem, czy dobrze zrozumiałem. Filtrowane mają być tylko kolumny, czy również wiersze? Najlepiej zawsze pokazać w załączniku oczekiwany wynik. Napisałem makro zdarzeniowe ukrywające kolumny z tygodniami z wyjątkiem tej wpisanej w polu "LICZBA TYGODNIA". Makro jest umieszczone w module arkusza. Pusta komórka w polu "LICZBA TYGODNIA" odkrywa wszystkie...
Mam pytanie związane z formatowaniem warunkowym w excelu 2007. Mam już wykonaną pewną formułę w excelu która działa następująco: 1. Na podstawie daty w kolumnie G informuje w kolumnach H-I-J o statusie (PO TERMINIE, WYKONAJ SERWIS, JESZCZE CZAS) wykonania serwisu, a w kolumnie K termin wykonania następnego serwisu. Potrzebowałbym pomocy bo nie ukrywam,...
ukrywa wiersz excel ukrywa wiersz makro ukrywa wiersz
wskaźnik paliwo oznaczenie miernik uniwersalny naprawa nagrywanie plików
Ariston Clas X CF – błędy 102, 105, 101: ciśnienie, cyrkulacja, przegrzanie, diagnostyka Ariston BCH 120 l – wymiana grzałki 2,2 kW krok po kroku, uszczelka, anoda, montaż
