Wiersz niezmiennie jest nr 4, tylko kolumny się zmieniają, więc chyba jest ok
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.
(at)ElektrodaBot ...niezły bot! ;) Jakie są podstawowe różnice w funkcjonalności, budowie struktur runtime i komponentów między firmware OpenBeken i ESPHome? Wstępna ocena dostępnych informacji Chcesz porównać oprogramowanie układowe OpenBeken i ESPHome pod względem podstawowej funkcjonalności, struktur kompilacji, środowiska wykonawczego i obsługi...
Ok dzięki jeszcze jedno. Jak wchodze na C: oraz np. Program files to za każdym razem ukrywa zawartość folderu. Jak to wyłączyć?
Witam, Proszę o pomoc, Potrzebuję makro w Arkuszu Google które usuwa lub ukrywa wiersz, w którym pole wyboru jest zaznaczone. W wierszach mam pole wyboru, zaznaczam niektóre z nich i wciskam button, który ukrywa lub usuwa zaznaczone wiersze. Fajnie jakby wyskoczył komunikat "czy na pewno chcesz ukryć/usunąć zaznaczone wiersze" Tabela jest w załaczonym...
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",...
Niestety kodu makra podać nie mogę, ale pod spodem ten sam problem na abstrakcyjnym przykładzie [code][syntax=vb] Private Sub CheckBox_one_Click() If CheckBox_one = True Then Rows("36:36").EntireRow.Hidden = False Else Rows("36:36").EntireRow.Hidden = True End If End Sub Private Sub CheckBox_two_Click() If CheckBox_two = True Then If CheckBox_one =...
Witam, Bardzo bym prosił o pomoc w rozwiązaniu problemu. Wiem, że nie można filtrować 2 kolorów na raz. Mój problem wygląda następująco. Mam spis firm, wraz z pracownikami zapisanymi normalnie klasycznie wiersz po wierszu. Czyli nazwa firmy kilku pracowników itd. w kolumnach mam pozapisywane pewne daty dotyczące tych pracowników i mam dla nich przypisane...
Coś w rodzaju Range("A" & s & ":E" & s).PrintOut Cały wiersz (Rows(s)) może nie zmieścić się na jednej stronie...
.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...
Czy SalityKiller wcześniej był użyty ? Jeśli nie to proszę go użyć w pierwszej kolejności i skanować tyle razy aż nic nie znajdzie. Jeśli był użyty to: Na początek użyj adwcleaner opcja DELETE, zrób backup firefoxa zakładek i ustawień odinstaluj go, następnie Własne opcje skanowania i wklej: :OTL DRV - File not found [File_System | On_Demand...
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...
Witam wszystkich, Od razu zaznaczam, że nie liczę na gotowca. Chciałbym poprosić Was o wskazówki / małe podpowiedzi jak napisać makro które : zakładając, że arkusz jest posortowany wg numeru zamówień Sprawdza kolumnę nazwaną " Order-ID " i jeśli Id jest np 000223 to patrzy w kolumnę klient widzi 17 , sprawdza kolumnę niżej gdzie znów jest ID 000223...
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...
Faktycznie w MS Windows XP Home nie ma gpedit.msc. W takim razie możesz użyć [url=http://www.dougknox.com/xp/utils/xp... programu. Tu też możesz wyłączyć panel sterowania, wiersz polecenia i jeszcze kilka innych rzeczy. Po dokonaniu zmian należy komputer uruchomić komputer ponownie. Program działa na zasadzie modyfikacji odpowiednich...
Nigdzie nie mogę znaleźć analogicznego (prawie analogicznego) rozwiązania dla kolumn . To zawsze możesz sobie przekształcić :D np. jeśli wypełnione są wszystkie komórki wiersza "E" to cały wiersz automatycznie się ukrywał. Trzeba by jednoznacznie zdefiniować planowane modyfikacje widoku tabeli :cunning:
Dane - Filter nie dziala ?
W załączniku, wartość z D41 jest przenoszona do AK1
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.
[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
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
Bardzo ładny obrazek. Mój ładniejszy... https://obrazki.elektroda.pl/3545762400_...
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]
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...
Najprościej będzie z przekazaniem Nr wiersza: [syntax=vbscript]Sub Makro1(w As Long) Dim MyCell As Range For Each MyCell In Range("B" & w & ":Z" & w).Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Address(0, 0) = "A2" Then If Target.Column...
Niestety nie działa powyższe makro Jakiś komunikat czy co? Pokaż załącznik
Witam. Próbuję to jakoś wykombinować ale nie idzie mi. Czy można zrobić w excelu tak, żeby kliknięciem w dany wiersz ukrywały/odkrywały się konkretne wiersze? Na przykład: w wierszu pierwszym mam "Jan Kowalski", a w 10-ciu kolejnych wierszach jakieś dane dotyczące Kowalskiego. w wierszu dwunastym "Jerzy Nowak" a w 10-ciu kolejnych znów dane dot. Nowaka...
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]
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...
A tak w ogóle, to poczytaj o [url=https://learn.microsoft.com/pl-pl/d... podzielić pojedynczą instrukcję na wiele wierszy, bo takiego kodu w jednej linii, jaki zamieściłeś, nikt nie ogarnie.
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"...
Szukam makra, które: gdy wartość w kolumnie M="tak" ukryje komórki z kolumn A:R w danym wierszu i przesunie dane do góry o wszystkie scalowane wiersze, czyli jeśli np. wiersz 1 i 2 , w kolumnie M jest scalowny i jeśli w tej komórce widnieje opis "Tak" to oba wiersze (1 i 2) przesuną się do góry
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?
Wkradł się mały błąd. Sumujesz komórki z zakresu A:AD i sprawdzasz, czy wynik = 0. Jak będą 2 komórki '-1' i '1', to też wiersz zostanie ukryty, a tak nie powinno być. Proponuję zliczyć wszystkie komórki zawierające zero w tym zakresie: [syntax=vb]Sub Ukryj_Zerowe() For x = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Application.CountIf(Cells(x, 4).Resize(1,...
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
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...
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ć"...
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_...
Dziękuje bardzo za zainteresowanie tematem. Próbowałem jeszcze raz sam coś zdziałać na podstawie waszych sugestii ale poległem. Przesyłam w załączeniu arkusz z problemem. Sposób działania arkusza przedstawia się następująco: W zakładce DANE wklejany jest wiersz z innego pliku, w którym są wprowadzane pewne wartości na Stanowiskach nr 1-7. Jeżeli nie...
Formatowanie na biało dotyczyło wyłącznie kolumny z filtrem - no ale jak sobie poradziłeś to nie ma tematu.
Rozumiem że logujesz się na konto ATK bo to jedyne z hasłem. Proponuję na początek ukryć konto Administrator, domyślnie jest ono ukrywane w systemach. Uruchom wiersz polecenia (cmd) z prawami administratora i wklej komendę, " net user administrator /active:no ", enter i reset komputera. Opisz procedurę logowania.
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...
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...
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...
(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...
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...
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]
ukrywa wiersz excel makro ukrywa wiersz excel ukrywa wiersz
podstawki procesor lądowanie akumulatora awaryjnego aparat cyfrowy komputerem
Zielony ekran na programach 1 i 2 po podłączeniu dekodera Jak założyć blaszki antywibracyjne na klocki hamulcowe Passata B5 1.9 TDI
