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...
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...
Proszę o pomoc. Chcę, by z arkusza pierwszego po wciśnięciu przycisku "add" cały dany wiersz kopiował się do czwartej zakładki "zamówienie". Plik ma mieć docelowo ok.200 wierszy, więc chodzi o to, żeby przekleić to makro do kolejnych wierszy. Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add, dlatego też program musi wiedzieć, że ma kopiować...
Proponuję rozwiązanie oparte na funkcjach UDF, które jest dość elastyczne. Nie wiem jak to ma działać - czy dane są wprowadzane i przeliczane jednorazowo, czy są potem zmieniane. Tu jest możliwość zmiany danych (z pewnymi ograniczeniami). Plik podstawowy (BAZA) musi zawierać makra, więc musi być zapisany w formacie wspierającym makra np. xlsm. Załącznik...
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
Witam Mam takie makro, które w zakresie kolumn B:Z, ukrywa kolumny jeżeli w wierszu 2 komórki są puste. [syntax=vbscript] Sub Makro1() Dim MyCell As Range For Each MyCell In Range("B2:Z2").Cells If MyCell = 0 Then MyCell.EntireColumn.Hidden = True Next MyCell End Sub [/syntax] Makro jest uruchamiane po kliknięciu komórki A2, dzięki wpisaniu kodu arkusza...
Niestety nie działa powyższe makro
W takim przypadku zastosuj to co napisałem wcześniej.
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]
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...
Witam wszystkich forumowiczów i specjalistów. Piszę, ponieważ potrzebuje pomocy w zapewne trywialnej sprawie... Otóż.. Stworzyłem makro do arkusza, które w momencie spełnienia określonych warunków ukrywa lub odkrywa poszczególne wiersze w arkuszu. W tych wierszach znajdują się m.in. pola wyboru, które w momencie ukrywania wierszy nie ukrywają się, tylko...
Witam, Prośba o pomoc mam trzy pola checkbox, każde z nich ukrywa lub odkrywa wiersze które mają określone wartości. Lepiej lub gorzej ale radzę sobie żeby każdy checkbox działał osobno, ale chciałbym jeszcze dorzucić warunek, że kiedy wszystkie trzy checkboxy są odznaczone (false) to żeby wszystkie wiersze były odkryte. W załączeniu również plik z...
Dobudowałem trochę - ale mimo kilkugodzinnych prób nie wyczaiłem gdzie w makrach są odpowiednie odnośniki aby coś pozmieniać. Pod przyciskiem OK formatki Świetnie działają przejścia i chciałem aby jeszcze w arkuszu WPIS w kolumnie D wpisywało cyfrę znajdującą się przy wybranej pozycji z SŁOWNIKA (kol A). W zależności od tej wartości wpłata będzie wpisywana...
dla przycisku tak daj takie samo makro tylko zamień True na False
[syntax=vb]Sub UkryjKolumny0() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow ok = Cells(x, Columns.Count).End(xlToLeft).Column If Application.CountIf(Cells(x, 1).Resize(x, ok), 0) > 0 Then Cells(x, 1).EntireRow.Hidden = True x = x + 1 End If Next End Sub [/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...
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]
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
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.
https://obrazki.elektroda.pl/4586766500_... Widzę, że się udało. W załączniku przykład tabeli Excela. Jeśli tabela ma wiersz podsumowania, to wstawianie nowych wierszy odbywa się tabulatorem w ostatniej kolumnie tabeli. Można też wstawiać wiersze w środku tabeli z menu podręcznego (PPM) lub ze wstążki. Filtry z tabeli można usunąć...
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
Mogłoby to być coś takiego: [syntax=text]Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$D$3" Then With Union(Rows("42:47"), Rows("56:76"), Rows("82:84"), Rows(91)) If Cells(3, 4) = "Badanie wstępne" Then .EntireRow.Hidden = True Else .EntireRow.Hidden = False End If End With End If End Sub [/syntax]Nie ma sensu, żeby...
Przypadkiem oznaczenie wiersza i kolumny nie powinno być odwrotnie?
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...
Cześć, mam napisane makro[syntax=vba] Sub Makro1() Const max As Integer = 10000 Dim i As Integer Application.ScreenUpdating = False i = 1 Do While i <> max If Cells(i, 6).Value = 0 And Cells(i, 7).Value = 0 And Cells(i, 8).Value = 0 And Cells(i, 9).Value = 0 And Cells(i, 10).Value = 0 Then Rows(i).Hidden = True End If i = i + 1 Loop Application.ScreenUpdating...
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...
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ć
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 potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
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...
Ahaaa, okej. Czyli makro będzie dla każdej pojedynczej linii najpierw ją archiwizowało i od razu ukrywało. Masz łeb :) Dziękuję!!
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...
W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn. Taki sam kod wykorzystuję w innym pliku i tam wszystko jest ok, tylko że ukrywanie wierszy jest przy pomocy filtra a w powyższym przypadku przy pomocy makra
Masz literówkę, powinno być: "delete". Dla ukrywania nagraj sobie makro i podstaw, zamiast delete, polecenie nagrane przez rejestrator (ciąg po selection).
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...
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...
Witam, Napisałem proste makro, które koloruje mi zaznaczone obszary i przechodzi dalej. Zamiast tego chciałbym żeby obszary te były ukrywane. Czy da się to jakoś zmodyfikować? [syntax=vbscript]Sub Makro1() ' ' Makro Dalej ' ' Klawisz skrótu: Ctrl+b ActiveCell.Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlToLeft)).Select...
Witam. Mam problem z napisaniem programu w VBA. Chciałbym by makro ukrywało kolumny w jeżeli w określonej komórce tego wiersza znajduje się zero (komórka ta odpowiada za sumę całej kolumny). Podczas próby odpalenia makra wyświetla się błąd : "Rune time error '1004' Method 'Range' of object ' _Global' failed". Kod programu poniżej. Sub UkryjZeroweKolumny()...
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
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,...
Witam, potrzebuje pomocy w stworzeniu makra ktore przy pierwszym kliknieciu na przycisk bedzie ukrywalo wiersze od 32 do 52 ktore w kolumnie B posiadaja 0 a po ponownym nacisnieciu wszystkie ukryte wiersze ponownie sie pokaza. Z gory dziekuje za pomoc. Pozdrawiam
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...
Moje pierwsze w zasadzie makro VBA w wordzie (pisałem kilka makr w Excelu, ale swój poziom szacuję na podstawowy). Tak więc trochę mojego niechlujnego kodu: Const ilePyt = 50 Const ileOdp = 4 Const pytWTescie = 15 Należy ustawić odpowiednio ilość wszystkich pytań, ilość odpowiedzi na każde z pytań, a także z ilu pytań ma się składać test. Dokument źródłowy...
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...
Sprawdziłem - z poziomu konsoli faktycznie można sprawnie łączyć pliki, ale niestety taka opcja wplata w tabele taką ilość wierszy nagłówkowych ile plików będzie w katalogu. Nie ukrywam że ułatwia to nieco pracę, ale może jest jakieś rozwiązanie które pozwoli osiągnąć dokładnie taki efekt jakiego szukam.
Dziękuję za szybką , nie ukrywam ,że nie jestem specjalistą w VBA :( i dopiero zaczynam swoją przygodę z makrami. Jestem w stanie wyznaczyć ścisły zakres właśnie od np. G6 do G45. Czyli probować czegoś z petla for? Udało się problem rozwiązac. Jeszcze raz dziękuję za pomoc:)
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_...
Witam wszystkich życzliwych, z góry bardzo dziękując za pomoc. Zasięgałem już porady na tym forum ale potrzebuję doprecyzować już na konkretnym przykładzie. W załączeniu zamieszczam projekt, który potrzebuję stworzyć. Do rzeczy, potrzebuję stworzyć makro, które będzie przeszukiwało folder z plikami w których będą dane źródłowe i przenosiło te dane do...
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,...
Witam Czy ktoś może wie dlaczego rozpatruje się tu tyle opcji (sortowanie, aparat foto, makra, ctrl+G) a Autor wątku jakby "nie chce" (może chce, tylko mi się wydaje, że nie chce) zastosować Autofiltrowania? Nie chodzi mi o Jego podejście do Excela, tylko o to czy są przypadki gdzie faktycznie autofiltrowanie nie spełnia warunków: 1. Ukrywa wiersze...
Witam, potrzebuję pomocy... Czy ktoś z Was podpowie jak powinno wyglądać makro, które namiesza mi w pliku Excelowskim :) ?? Mam 3 kolumny z danymi w osobnych wierszach. Zależy mi na tym, aby makro zgrupowało w jednym wierszu kolumny A te same wartości, w kolumnie B ustawiło wartości pod kątem godzin z kolumny D, zgrupowało tą samą wartość z kolumny...
ukrywanie wierszy makro ukrywanie ukrywanie wierszy excel
flash china zmywarka samsung wyświetlacz bateria ładować grzać
bateria macallister frania podgrzewanie
Realtek RTL8188ETV - Jak ponownie włączyć adapter? Kondensatory w sprzęcie elektronicznym po zalaniu fekaliami – czy wymiana jest konieczna?
