a potrzebuję szybko tego makra Na szybko, to można ukrywać bez makra...
Ok, już rozumiem. Mógłbym ewentualnie zrobić odwołanie w docelowym arkuszu na zasadzie komórka w arkuszu, gdzie kolumny mają się ukrywać = komórka z arkusza źródłowego. Macie może pomysł, jak to zapisać, żeby kod działał i żeby nie trzeba było robić tak ,,naokoło"?
Makro to się samo uruchamia, jeśli podłączysz je pod swój arkusz pod zdarzenie change - wtedy jest z automatu wykonywane gdy cokolwiek się w arkuszu zmieni. Moje makro używa tego samego mechanizmu, w załączniku masz gotowy przykład już z osadzonym makrem. W makro Kolegi PRL musisz zrobić więcej poprawek, żeby działało pod Ciebie - będzie ono jedynie...
Spróbuj czegoś takiego: [syntax=vbscript]Sub Rozwiñ6_Zmienianie() Dim rn As Range Application.ScreenUpdating = False 'Range("a1").Value = InputBox("które dane pokazac") 'Range("a1").Value = Range("b3").Value Range("c502:c800").EntireRow.Hidden = False Dim rng As Range For Each rn In Range("c502:c800") If rn = Range("A492") Then If Not rng Is Nothing...
Chcesz ukrywać całe wiersze zawierające zaznaczone komórki? To przecież wystarczy: [syntax=vbscript]Selection.EntireRow.Hid... = True[/syntax]niezależnie w jaki sposób te komórki zostały zaznaczone, więc kody można połączyć.
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...
Sam arkusz trochę dziwnie zaprojektowałeś. Przetestuj załączone rozwiązanie.
Jak nie będziesz w stanie działającego rozwiązania dopasować do swoich potrzeb to nigdy niczego nie napiszesz.
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....
Witam, mam taki problem a mianowicie: Potrzebuję makro, które po pojedynczym naciśnięciu na przycisk "UKRYJ" pozwoli mi ukrywać pojedynczo arkusz z wielu odkrytych arkuszy ( tj. jedno naciśnięcie - 1 ukrywany arkusz). To samo w przypadku odkrywania arkuszy. Po naciśnięciu na przycisk "ODKRYJ" również odkrywać pojedynczo arkusze. Oczywiście chodzi o...
Witaj. Spróbuj: If Range("B4").Value > 85 And Range("B5").Value > 85 Then na If Range("B4").Value > 85 Or Range("B5").Value > 85 Then
to wtedy mozesz pokombinowac w ten sposób: If Range("A1").Value = 1 Then Columns("C:G").Sel... Selection.EntireColumn.Hidden = False End If i tak dla 2 inne wartości itd, możesz też pokombinować że 1 odsłania DEF i jednocześnie zasłania GHI, 2 na odwrót, wszystko zależy od tego co ci jest potrzebne, pozdro:)
Rzeczywiście autor nie ma talentu do przekazywania informacji. Wydaje mi się że o to mu chodziło (załącznik). Do autora topiku: Nie da się funkcjami wydrukować tylko wybranych stron. Można ukrywać widoczność ale wtedy ostatecznie będą białe/czyste strony drukowane. Pozostaje makro - w sumie proste ale ... w makrach położenie poszczególnych komórek jest...
Zdejmuje haslo, wrzucam range w makro - chyba, że w złym miejscy ale wrzucam range po ponownym założeniu hasła w makrze. Możesz podpowiedzieć w którym miejscu powinien być range? Dane można wpisywać, gorzej, że np nie mogę ukrywać kolumn czy formatować np kolorami.
W takim przypadku zastosuj to co napisałem wcześniej.
Cześć, Wiem, że to nie ten wątek, ale nie chciałem tworzyć nowego tematu na taką bzdurkę (chyba bzdurkę). Stworzyłem makro (posklejałem ze znalezionych kodów w internecie), które ma za zadanie ukrywać te wiersze, które mają pustą komórkę w kolumnie A. Jest to kolejna część archiwizacji, z którą miałem problem wcześniej-> czyli makro najpierw archiwizuje...
Witam, potrzebuje pomocy w makrze, dużo już sam zrobiłem ale tego nie potrafię a raczej nie rozumiem. Makro ma za zadanie ukrywać dni miesiąca które nie występują w danym miesiącu czy może ktoś mi to pokazać co i jak
Dziękuje. Domyślam że tylko w taki sposób można rozwiązać mój problem. Wolałbym aby każdy arkusz który ma być ukryty i zabezpieczony hasłem, był ukryty i zabezpieczony hasłem. Natomiast makro nie otwierało arkusza ale "wykonało pracę" i nie musiało ukrywać z powrotem arkusza. Zasada działania jak funkcji excela. Czy jest to możliwe?
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...
Witam, mam arkusz, w którym muszę zastosować kilka makr, większość przeskoczyłem ale na dwóch się zawiesiłem i stąd mój wpis. 1. Czy w Excel2013 da się makrem ukrywać wstążkę tak jak dało się to zrobić w Excel2007 bo coś mi zadziałać makro, które kiedyś stworzyłem, a wiem że było sprawne oraz 2 ważniejsze: Mam tabelę i w kolumnie np. E11 mam wczytane...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
Mowiąc szczerze nie bardzo mi idze z tym makrem. Probowałem coś z waszymi częściami skryptu, ale ponieważ nie ma co ukrywać jestem zielony nie bardzo wychodzi mi tworzenie do tych skrawków "obudowy". Jeśli macie pomysł dlaczego moj kod działa tylko raz, a nie na cały zaznaczony obszar, będę wdzięczny za pomoc. Lub jakiś kod zastępczy. pozdr.
Masz 2 przykłady jak można to zrobić wystarczy wykorzystać. Osobiście proponowałbym niczego nie kopiować/usuwać tylko wstawić do arkusza naklejki kilka tabelek i wg. potrzeb ukrywać cześć lub pokazywać. Przepraszam, chętnie mogę pomóc jak coś się robi ale wykonać całą pracę za kogoś to już mi się nie chce. Mam nadzieję, że trochę pomogłem?
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...
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...
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]
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]
Lanzul a czym Twoje rady różnią się od moich? Dokładnie o tym samym pisałem. Ukrywane są kolumny od D (w vba jest makro które je ukrywa) czyli mają szerokość "0" oraz zablokowane są okienka. Powoduje to że w arkuszu wstawiana jest pionowa jak i pozioma czarna linia, która zakrywa obramowanie komórek.
Wykorzystaj dwie kolumny. W pierwszej nazwisko, w drugiej nazwa/indeks przydzielonego arkusza. Reszta w załączniku. Makro przy każdej aktywacji robi porządek z hiperłączami i ukrywa arkusze.
Niestety nie działa powyższe makro
Chodzi o warunek w E22 <> "PROPONOWANA ZMIANA WARUNKÓW UMOWY" Chowane lub grupowane wiersze to 22-26 i 41-46
Jeśli chodzi o korzystanie z pliku to nic trudnego. Wystarczy tylko kliknąć na okno z datą: miesiąc lub rok i pojawi Ci się okno z datą wtedy zadajesz datę którą chcesz i potwierdzasz a makro resztę (ukrywanie niepotrzebnych kolumn) zrobi już samo. http://obrazki.elektroda.pl/2150896600_1...
Gwoli wyjaśnienia, szukam pomocy w zapisie kodu.. Przy użyciu poniższego zapisu, usuwa się tylko jeden wiersz. Nie wiem w jaki sposób zapisać aby jednak usuwało wszystkie scalowane wiersze. Dodam, że nie ma stałej ilości scalowanych wierszy. [syntax=vbscript]Sub UsunKomorki() Dim bs As Range, r&, i& Set bs = Range("A:R") r = bs(Rows.Count, 13).End(xlUp).Row...
:arrow: JacekCz Nie potrzeba wystawiać armaty by zabić muchę. Po co kolega sapiehalbn ma się uczyć/wykorzystywać specjalistyczne języki programowania by wyłącznie ukryć arkusze dla "zwykłych" użytkowników pliku excela, którzy najzwyklej na świecie mają tylko wpisać dane w odpowiednie komórki (i nie wiedzieć dla nich niepotrzebnych arkuszy) i już. Masz...
Makro ukrywa wybrane komórki i uwidacznia inne.
Zrobiłem bez makr. Może ktoś Ci przerobi na makro. Łącze do formantu w komórce bieżącej, formatowanie niestandardowe ukrywające wpis ;;; formatowanie warunkowe określające kolor. Niestety łącza nie dają się kopiować, bo są zawsze adresami absolutnymi, nawet jeśli się je zapisze bez dolarów.
A skąd kolego masz ten pik z makrami "Skoroszyt.xlsm" ? Odpowiedz na pytanie Excela - czy masz go z zaufanego źródła ? :?: Zaufane źródła - z reguły nie ukrywają żadnych makr ani arkuszy typu "sheet8.xml" :D Otwórz sobie jakiś nowy skoroszyt, wprowadź jakieś dane i zapisz go raz jako zwykły skoroszyt(1) xlsx, a potem zapisz ten sam skoroszyt(2) jako...
Których pól wyboru użyjesz? Z Formularzy czy Przybornika formantó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ąć...
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...
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...
Wyrzuć co niepotrzebne w procedurach Thisworbook. Powinno zostać tylko chowanie kolumn.[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) ' i tutaj wstawiłem makro ukrywające ThisWorkbook.Save End Sub[/syntax]Wykorzystaj swoje makro. Żeby ukrywanie było skuteczne, musisz wymusić zapisanie pliku. Dlatego może okazać się niezbędne automatyczne...
Witam Chciałem dodać przycisk typu ON/OFF ukrywa i odkrywa obszar Mam stworzone dwa makra makro1 ukrywa obszar makro2 odkrywa obszar W sieci znalazłem sposób który pozwala na taką sztuczkę ale nie wiem gdzie to podstawić do obecnych wartości aby to działało. znaleziony kod Private Sub ToggleButton1_Click() With ToggleButton1 If .Value Then Call...
Bardzo dziękuję za to rozwiązanie. Mam jeszcze jedną prośbę, czy jest szansa zrobienia tego za pomocą makra? Nie ukrywam, ze ułatwiłoby mi to jeszcze bardziej pracę. Pozdrawiam.
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.
po kliknięciu nazwy obrazka w komórce A1 Tam będzie kilka takich nazww? Jeśli tylko jedna w A1, to nie ma znaczenia, czy jest nazwa, obrazek będzie tylko jedyn. p.s. Obrazek może być na pierwszym arkuszu, tylko nie widoczne.
w pliku są danę osobowe pracowników, więc najpierw musiałbym go "wyczyścić". Przy starcie jest makro, które ukrywa arkusze i włącza ochronę. Arkusz1 ma własne menu podręczne.
Mam przycisk wykonujący powyższe makro. Jak zrobić by nie był on (przycisk) widoczny na wydruku? Musisz wstawić przycisk w pole tekstowe, i je ukrywać. [syntax=vbscript]With ActiveDocument .Shapes(1).Visible = msoFalse .PrintOut .Shapes(1).Visible = msoTrue End With [/syntax]
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...
excel makro ukrywać ukrywać kolumna excel makro excel makro ukrywać arkusz
wyłączanie sygnalizacji alarmu pilotem czujnik pralka caliber silnik
caraudio ogólny dremel lutownica
Bosch WTN86201PL – suszarka nie dosusza prania mimo czystych filtrów i grzania Fiat Seicento – zbiornik wyrównawczy: objawy pęknięcia, wymiana, numery OE, zamienniki