Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 68594 Skopiuj do schowka Ukrywanie komórek
Autor Wiadomość
pauzwo112233 
świeżak


Wersja: Win Office 2019
Posty: 6
Wysłany: 26-07-2020, 10:27   Ukrywanie komórek

Witam, chciałabym ukryć komórki w tabelce jeżeli po spełnieniu określonej formuły będą puste.
ID posta: 390154 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 720 razy
Posty: 3878
Wysłany: 26-07-2020, 10:38   

Witamy na Forum.

Załącz plik.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 390156 Skopiuj do schowka
 
 
pauzwo112233 
świeżak


Wersja: Win Office 2019
Posty: 6
Wysłany: 26-07-2020, 18:11   Ukrywanie komórek

W załączeniu plik.

Lista.xlsx
W pliku są wiersze pokolorowane na szaro. Po wybraniu odpowiedniego programu w tych komórkach pojawia się tekst, albo komórka pozostaje pusta. Chciałabym aby jeżeli komórka będzie pusta to automatycznie cały wiersz się ukrył.
Pobierz Plik ściągnięto 5 raz(y) 74.42 KB

ID posta: 390165 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 720 razy
Posty: 3878
Wysłany: 26-07-2020, 18:46   

Sprawdź.
.

Kopia Lista.xlsm
Pobierz Plik ściągnięto 11 raz(y) 80.99 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 390166 Skopiuj do schowka
 
 
pauzwo112233 
świeżak


Wersja: Win Office 2019
Posty: 6
Wysłany: 26-07-2020, 18:51   

Dokładnie mi o to chodziło, jak można to zrobić?
ID posta: 390167 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 720 razy
Posty: 3878
Wysłany: 26-07-2020, 19:24   

Makro zdarzeniowe Worksheet_Change.
Kod:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&

If Not Intersect(Target, Range("H7")) Is Nothing Then
    For i = 12 To 15
        If Cells(i, 1).Value = "" Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
End If

End Sub


Makro reaguje na zmianę wartości w kom. A12:A15 - trochę namieszałeś ze scalonymi komórkami. Tu akurat nie przeszkadza ale w przyszłości unikaj tego zabiegu.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 390170 Skopiuj do schowka
 
 
pauzwo112233 
świeżak


Wersja: Win Office 2019
Posty: 6
Wysłany: 26-07-2020, 20:55   

Dziękuję:)
ID posta: 390174 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe