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: 68381 Skopiuj do schowka Ukrywanie wierszy w zależności od wartości
Autor Wiadomość
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 04-07-2020, 17:13   

Witam ponownie
Przeniosłem rozwiązania na mój plik i jest wszystko ok.
Brakuje mi tylko numerów podgrup. To co bym chciał jest w załączonym pliku wersja 1 w rozwiniętym kosztorysie. Jeżeli za mocno wydziwiam to nie musi być liczba porządkowa jako 1.1, 1.2 itp. (pewnie duży problem bo nawet przy zapisie poglądowym musiałem sformatować numerację jako tekst), podgrupy 1, 2 itp. Liczby porządkowe mogłyby być również 1,1 1,2 1,3 itp. Liczby porządkowe mogłyby zostać też jak jest do tej pory 1,2,3 itp. a tylko, żeby numerowały się dodatkowo podgrupy. Chodzi głównie dodatkowo o numery podgrup, żeby po zwinięciu były kolejne numery, teraz nie ma numeracji. Pogląd o co chodzi w drugim pliku wersja 2. Wersja 2 jest wersją wystarczającą, wersja 1 ideał. Oczywiście wszystko przy zależnościach tworzenia kosztorysu jak do tej pory.
Pozdrawiam

Kosztorys 2020-07-05 wersja 1.xlsm
Pobierz Plik ściągnięto 12 raz(y) 799.39 KB

Kosztorys 2020-07-05 wersja 2.xlsm
Wersja wystarczająca.
Pobierz Plik ściągnięto 9 raz(y) 799.12 KB

ID posta: 389383 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 06-07-2020, 20:22   

Witam
Mam jeszcze jeden problem, którego wcześniej nie zauważyłem.
Czy można tak zmodyfikować kod, żeby w grupie "izolacje" i "prace pomocnicze" w przypadku jak np. w podgrupie "prace inżynierskie wszystkie pozycje w kolumnie "J" są zerowe to też ukrywa się pozycja "prace inżynierskie
podobnie jak jest w grupach "prostokątne" i "kołowe" a tak muszę to w przypadku pozycji zerowych ukrywać ręcznie. Moje próby powodują tylko błędy. w załączeniu plik.
Pozdrawiam

Kosztorys 2020-07-05.xlsm
Pobierz Plik ściągnięto 10 raz(y) 804.41 KB

ID posta: 389407 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 09-07-2020, 19:28   

Nie testowałem zbytnio, więc sprawdź.
dm

Kosztorys 2020-07-10.xlsm
Pobierz Plik ściągnięto 11 raz(y) 797.95 KB

ID posta: 389528 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 16-07-2020, 06:10   

Witam ponownie
Przetestowałem plik. Wszystko działa super. Przenosze na mój główny plik.
Jeszcze raz dziękuję.
Pozdrawiam
ID posta: 389711 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 16-07-2020, 12:14   

Witam
przeniosłem kody na mój plik roboczy i dopiero zauważyłem, że jeżeli któraś podgrupa jest zerowa to się ukrywa ale numeracja ją pamięta i jest np 1.1, 1.2 nie widać pustej 2 a widać 3.1, 3.2 itp. a powinno być po kolei lub np jeżeli pierwsza podgrupa jest zerowa to kolejność zaczyna się od 2 (np izolacje)
Początkowo myślałem, że coś źle przeniosłem ale na Twoim pliku też to jest.
Jakbyś mógł coś na to poradzić byłoby super. Reszta jest ok
Pozdrawiam

Kosztorys 2020-07-16.xlsm
Pobierz Plik ściągnięto 9 raz(y) 800.37 KB

ID posta: 389741 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 17-07-2020, 14:35   

Zmień końcówkę makra na
Kod:
    For i = pocz To kon
        If Sh.Rows(i).Hidden = False Then
            If Sh.Range("AZ" & i) = tblD(j) Then
                Sh.Range("C" & i) = lp1 & "." & lp2
                lp2 = lp2 + 1
            ElseIf Sh.Range("AZ" & i) = "" Or Sh.Range("AZ" & i) = tblE(j) Then
                Sh.Range("C" & i) = lp1
                lp1 = lp1 + 1
                lp2 = 1
            End If
        End If
    Next i

dm
ID posta: 389827 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 20-07-2020, 09:59   

Dzieki
pozdrawiam
ID posta: 389903 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 22-07-2020, 09:22   

Witam ponownie
Wszystko działa dobrze, jeżeli są pozycje w we wszystkich trzech grupach (osprzęt Irmark, osprzęt i urządzenia) to wszystko jest super. problem powstaje, gdy któreś grupy zabraknie w specyfikacji a takie przypadki będą (może nie być nawet żadnej z tych grup a tylko np prostokątne.
Wyszło to podczas testowania pliku głównego ale na Twoim też tak się dzieje.
1. w specyfikacji są pozycje z wszystkich grup (osprzęt Irmark, osprzęt i urządzenia) - wszystko ok
2. w specyfikacji są pozycje z grup (osprzęt Irmark i osprzęt) wyskakuje błąd ale kosztorys się generuje
3. w specyfikacji są pozycje z grup (osprzęt Irmark i urządzenia) wyskakuje błąd a kosztorys liczy tylko osprzęt Irmark a dla urządzeń nie liczy
4. w specyfikacji są pozycje z grup (osprzęt i urządzenia wyskakuje błąd i się nie liczy
5. w specyfikacji brak pozycji z grup (osprzęt Irmark, osprzęt i urządzenia) wyskakuje błąd i nie liczy się. W załączeniu pliki przygotowane do testu
Będę wdzięczny za pomoc
Pozdrawiam

Kosztorys 2020-07-22-(1).xlsm
tylko osprzęt Irmark
Pobierz Plik ściągnięto 7 raz(y) 749.1 KB

Kosztorys 2020-07-22-(1-2).xlsm
tylko osprzęt Irmark i osprzęt
Pobierz Plik ściągnięto 8 raz(y) 756.06 KB

Kosztorys 2020-07-22-(2-3).xlsm
tylko osprzęt i urządzenia
Pobierz Plik ściągnięto 8 raz(y) 739.8 KB

ID posta: 390017 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 31-07-2020, 19:27   

Spróbuj dodać
Kod:
On Error Resume Next  ' na początku makra

On Error Goto 0   ' na końcu makra 

dm
ID posta: 390370 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 01-08-2020, 05:55   

Dziękuję
Pozdrawiam
ID posta: 390379 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 01-08-2020, 06:56   

Witam
Przetestowałem i jest mankament z ukrywaniem, gdy wartości zerowe, może w złym miejscu wpisałem kod.
Kosztorys gdy są wszystkie pozycje działa bez zarzutu (plik "kosztorys-08-01"). W przypadku gdy nie ma pozycji np. w "osprzęcie Irmark" to nie ukrywaj się grupa Osprzęt irmark (trzeba ręcznie ukrywać po wykonaniu kosztorysu). Najlepiej jakby kosztorys wyglądał jak w pliku "kosztorys 2020-08-01c" ukryta całkowicie cała grupa lub chociaż jak w pliku "kosztorys 2020-08-01b", ukryta częściowo. W tej chwili jest jak w pliku "kosztorys 2020-08-01a".
Z góry dziękuję za wyrozumiałość.
Pozdrawiam

Kosztorys 2020-08-01.xlsm
plik z wszystkimi pozycjami
Pobierz Plik ściągnięto 5 raz(y) 801.8 KB

Kosztorys 2020-08-01a.xlsm
plik bez grupy osprzęt Irmark
Pobierz Plik ściągnięto 4 raz(y) 766.64 KB

Kosztorys 2020-08-01c.xlsm
preferowana propozycja ukrycia przy braku pozycji w grupie osprzet Irmark
Pobierz Plik ściągnięto 6 raz(y) 766.68 KB

Kosztorys 2020-08-01b.xlsm
dopuszczalna propozycja ukrycia przy braku pozycji w grupie osprzęt Irmark
Pobierz Plik ściągnięto 4 raz(y) 766.61 KB

ID posta: 390380 Skopiuj do schowka
 
 
dm 
Excel Expert


Wersja: Win Office 2013
Pomógł: 487 razy
Posty: 1329
Wysłany: 01-08-2020, 07:22   

Zobacz czy nie wystarczy
Kod:
            If .Range("C" & j) <> "" Then '"liczymy najpierw  ile muszę dodać wierszy, żeby zmieściły się  dane"
                ileS = ileS + 1
            End If
zmienić na
Kod:
            If .Range("C" & j) <> 0 Then '"liczymy najpierw  ile muszę dodać wierszy, żeby zmieściły się  dane"
                ileS = ileS + 1
            End If
dm
ID posta: 390382 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 02-08-2020, 12:43   

Witam
działa to podobnie dla 0 i dla""
jeżeli grupa 1 (osprzęt Irmark) jest pusta, to gdy wygenerujemy kosztorys z 1 razem nie ukrywa się ale za drugim jest ok. Tak się dzieje dla pustych grup 1(osprzęt Irmark) i 2 (osprzęt) oraz 1 (osprzęt Irmark), 2 (osprzęt) i 3 (urządzenia)
gorzej gdy nie ma tylko grupy 1 (osprzęt Irmark) i 3 (urządzenia), 2 (osprzęt) i 3 (urządzenia), 3 (urządzenia) zmienia tak, że za kolejnym generowaniem zostanie ukryta grupa, która istnieje.
Problem pewnie powstaje dlatego, że akon, bkon i ckon wstawiane jest powyżej aaa, bbb i ccc zamiast poniżej, jeżeli któraś z tych grup jest pusta, ale dla mnie to czarna magia.
W załączeniu plik przy kolejnym generowaniu przy braku 1 grupy(osprzęt Irmark) oraz przy braku 3 grupy (urządzenia)
Nieopatrzne naciśnięcie kolejne generowanie wszystko może posuć, jeżeli brak jest osprzętu czy urządzeń. Może wcześniejsze kody wpisałem w złym miejscu (już się gubię)
W załączeniu pliki z testów.
Pozdrawiam

Kosztorys 2020-08-02 test 1.xlsm
plik startowy brak osprzęt Irmark
Pobierz Plik ściągnięto 6 raz(y) 741.07 KB

Kosztorys 2020-08-02 test 1a.xlsm
plik brak osprzęt Irmark po 1 generowaniu
Pobierz Plik ściągnięto 4 raz(y) 766.87 KB

Kosztorys 2020-08-02 test 1b.xlsm
plik brak osprzęt irmark po 2 generowaniu
Pobierz Plik ściągnięto 4 raz(y) 765.48 KB

Kosztorys 2020-08-02 test 3.xlsm
plik startowy brak urzadzenia
Pobierz Plik ściągnięto 4 raz(y) 757.44 KB

Kosztorys 2020-08-02 test 3a.xlsm
plik brak urzadzenia po 1 generowaniu
Pobierz Plik ściągnięto 5 raz(y) 783.92 KB

ID posta: 390392 Skopiuj do schowka
 
 
Ayala 
Exceloholic


Wersja: Win Office 2019
Posty: 159
Wysłany: 02-08-2020, 13:18   

Witam ponownie
Jeszcze raz sprawdzałem pliki startowe bo zauważyłem, ze może to być mój błąd, gdyż ukrył się wiersz, którego nie zauważyłem. Jednak źle to działa dla przypadku braku grup 1 i 3, 2 i 3 oraz 3. Przy kolejnym generowaniu wszystko się zmienia. Dla braku grup 1, 1 i 2 oraz 1, 2 i 3 działa dobrze ale ukrywa się po drugim generowaniu a kolejne nic nie psują.
Trzeba będzie ukrywać ręcznie i pamiętać, że nie można powtórnie generować, chyba, że uda Ci się coś poradzić. Ja nie do końca wszystko kapuję, więc chyba sobie nie poradzę.
Dziękuję za dotychczasową pomoc.

Pozdrawiam
ID posta: 390395 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