Cześć, mam problem którego nie potrafię rozwiązać, może jest mi ktoś w stanie pomóc. Mianowicie potrzebuje wykonać w swoim Arkuszu w Excelu automatyczne ukrywanie pustych wierszy, gdzie wartość w danej komórce jest mniejsza niż 1. Korzystam z takiego kodu VBA: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "E23" Then If...
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...
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...
dla przycisku tak daj takie samo makro tylko zamień True na False
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...
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...
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"...
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...
Zrobiłem ukrywanie wierszy na arkuszu, w którym wprowadzam dane. If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("42:62").EntireRow.Hidden = False End If If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("63:355").EntireRow.Hidden = True ... i tak łącznie pojawia mi się piętnaście formatek do wpisywania danych. Po kliknięciu...
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...
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...
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...
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,...
a mógłbyś mi pomóc z napisaniem makra dla automatycznego filtrowania po zmianie danych? to by rozwiązało moją sprawę Dodano po 10 sortowanie zwykłe nic mi nie da jednak, bo kolumny przy filtrowaniu ukrywają się i sa nie pokolei, także zostaje mi tylko filtrowanie zaawansowane bo wtedy moge to skopiować na inną lokalizacje, albo po prostu wytłumacz mi...
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?
Do poprzedniego kodu dołożyłem ukrywanie wierszy. Ponieważ jest to procedura zdarzeniowa, może być również uruchamiana makrem. Jeśli jakiś kod wpisze do komórki A3 numer tygodnia, to również ta procedura się uruchomi (nie trzeba naciskać Enter). Także gdy ręcznie wkleisz do tej komórki jakąś liczbę, również nie trzeba Enter. Ponieważ nie chcesz podać...
automatyczne ukrywanie wierszy ukrywanie wierszy excel excel ukrywanie wierszy
historia połączenie amika piekarnik tracić route
autosan adblue naprawa erbauer
Iveco 35-10: Wysokie obroty silnika - przyczyny i diagnostyka Cofanie się brudnej wody do zmywarki - przyczyny i rozwiązania
