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
Przesunięty przez: Artik
02-01-2019, 03:12
Automatyczne ukrywanie wierszy, export komentarzy
Autor Wiadomość
Sebastian_
świeżak


Posty: 9
Wysłany: 30-12-2018, 19:32   Automatyczne ukrywanie wierszy, export komentarzy

Witam Wszystkich!

Jestem świeżakiem na tym forum, zatem jeśli jakieś rzeczy będę robił niewłaściwie śmiało mówcie,

W nawiązaniu do tego tematu potrzebuję pomocy w sprawie ukrywania wierszy ,

Założenia:
1.Obszar wiersze od 14- 80 mają podlegać automatycznemu ukrywaniu,
2.Ukryte wszystkie wiersze za wyjątkiem tych które:
a)Mają w kolumnie B ID kategorii przestoju nr ("8";"9";"10";"11";"12";"13";"14";"15"; "16";"17";"18";"19";"20";"21";"22";"23"; "24";"26";"27";"28";"29";"30";"31";"32"; "33";"34";"35";"36";"37";"38";"39";"40";"41";"42";"43";"44";"45";"46";"47";"48";"51";"57"; "58";"59";"61";"62";"64"
& B) zawierają jakiś wpis w rozpatrywanym obszarze w kolumnach Zmiana ,

Kolejną rzeczą jest exportowanie do tabeli komentarzy z tych pozostałych nie ukrytych komenatrzy w formie :
"COX 1" "20" "PO AWARIA WYWROTNICY" "TEST Komentarz 2" "Zmiana ..." "01" -//01 - jest to nazwa arkusza oznaczająca dzień 01
"COX 2" "15" "PO AWARIA DRUKARKI - PAKOWACZKA" "TEST Komentarz 2"


Z góry dziękuję za pomoc,:) :beer

Sebastian


---
Temat wydzieliłem. Na przyszłość nie podpinaj się pod cudze wątki
(jeden wątek = jedno pytanie. Tym bardziej jeden pytający - Regulamin).
umieiead


Automatyczne ukrywanie wierszy.png
Plik ściągnięto 25 raz(y) 75.44 KB

Automatyczne ukrywanie wierszy.xlsx
Pobierz Plik ściągnięto 10 raz(y) 25.84 KB

_________________
Sebastian
ID posta: 359304 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 05-01-2019, 11:05   

Witam,

Wracam do tego tematu czy ktoś byłby chętny się go podjąć? Jest to dla mnie bardzo ważne , oczywiście jasna sprawa, że się odwdzięczę oczywiście,
_________________
Sebastian
ID posta: 359743 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 05-01-2019, 20:47   

Sprawdź czy dobrze zrozumiałem.

Automatyczne ukrywanie wierszy1.xlsm
Pobierz Plik ściągnięto 6 raz(y) 42.73 KB

ID posta: 359778 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 06-01-2019, 14:08   

@dm,

Świetnie, o to chodziło, tylko dla komentarzy jeszcze wartość komórki np 15 aby pojawiało się na początku przed np COX1 i nie do końca czaję co to jest ten komentarz 2?

i dalej aby te komentarze eksportować do tabeli w nowym arkuszu, z kolumnami osobnymi dla każdej informacji ,
_________________
Sebastian
ID posta: 359806 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 06-01-2019, 15:03   

Sebastian_ napisał/a:
....... tylko dla komentarzy jeszcze wartość komórki np 15 aby pojawiało się na początku przed np COX1 i nie do końca czaję co to jest ten komentarz 2
No jak nie "czaisz" co pisałeś w 1 poście
Sebastian_ napisał/a:
Kolejną rzeczą jest exportowanie do tabeli komentarzy z tych pozostałych nie ukrytych komenatrzy w formie :
"COX 1" "20" "PO AWARIA WYWROTNICY" "TEST Komentarz 2" "Zmiana ..." "01" -//01
to się nie dziw, że ja nie czaję o co Tobie chodzi.
Opisałeś to tak, że nikt się nie "palił" z odpowiedzią. Domyślam się tylko, że to jest "wyjęte" z większej całości. Nic nie piszesz jak to ma działać.
Czy masz osobny plik na każdy miesiąc, i w każdym arkusze dla kolejnych dni (01,02,....30), czy arkusz "01" to szablon, z którego tworzysz arkusze dla następnych dni?
Czy makro ukrywające wiersze ma działać na każdym ark. dnia? Co rozumiesz przez "wiersze od 14- 80 mają podlegać automatycznemu ukrywaniu"(automat trzeba jakoś uruchomić) Jak powstają komentarze wpisujesz ręcznie, czy chcesz wpisać makrem?
W Twoim załączniku nie ma żadnej tabeli "aby te komentarze eksportować". Pokaż jak to ma wyglądać w załączniku a nie jak w ostatnim cytacie.
dm
  
ID posta: 359809 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 06-01-2019, 17:37   

@dm

Masz rację, że opisane to jest strasznie kiepsko ale się dopiero uczę i przepraszam najmocniej,

Tak jak wspomniałeś to był wycinek całości i źle to zrobiłem, opiszę to jaki ja bym chciał efekt końcowy uzyskać może tak będzie jaśniej,

Ten plik jest raportem produkcyjnym , a ja do celów UR potrzebuję wyciągać odpowiednie dane z przestojów o odpowiednim ID które są awariami związanymi z techniką,
Komentarze produkcja sobie dopisuje ręcznie przez wstawienie minut przestoju w danej komórce i dodanie komentarza z opisem przestoju,
I te komentarze ja bym chciał zasysać z stamtąd do tabeli w innym pliku z dodatkowymi opisami branymi z miejsc w których dany komentarz się znajduje.
Potrzebne by były zatem przyciski na każdym arkuszu : Ukryj, Zakryj, Export,

Przy Exporcie dobrze żeby zapytał czy na pewno wyeksportować oraz ze dane
wyeksportowane.

W załączeniu tabela i docelowe informacje jakie bym chciał uzyskać,

I jeszcze raz przepraszam za nieprofesjonalizm z mojej strony,

Rysunek + OPIS.png
Plik ściągnięto 7 raz(y) 333.05 KB

STYCZEŃ 2019.xlsm
Pobierz Plik ściągnięto 5 raz(y) 853.13 KB

Tab_Przestoje_ID_UR_Raport.xlsx
Pobierz Plik ściągnięto 5 raz(y) 9.08 KB

_________________
Sebastian
ID posta: 359817 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 06-01-2019, 20:35   

Sebastian_ napisał/a:
Potrzebne by były zatem przyciski na każdym arkuszu : Ukryj, Zakryj, Export,
Wybacz ale to za dużo zabawy, możesz sobie zrobić sam, choć to nie najlepszy pomysł. Na razie makra przypisałem do skrótów klawiaturowych.
ukryj: ctrl+q
odkryj: ctrl+w
export: ctrl+e
Testuj czy dobrze działa, umieść pliki w tym samym folderze. Docelowo można by zrobić przyciski na wstążce (jaką masz wersję excela?), tak aby były widoczne z każdego arkusza.

STYCZEŃ 2019.xlsm
Pobierz Plik ściągnięto 5 raz(y) 871.92 KB

  
ID posta: 359833 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 06-01-2019, 21:26   

@dm,

Działa idealnie tak jak chciałem, :-D
Przyciski jasne, zrobię sobie sam tylko czy czy mogę to kształtem i przypisać do nich marka czy musi być przycisk z zakładki deweloper wstaw -> kontrolki activeX-> przycisk?

Małe dwie rzeczy, które próbowałem sam ale nie idzie mi to,
1. Wkradł mi się błąd i z puli ID które mają zostać chciałbym wywalić jeszcze 48 , bo to dla mnie nie jest przestój techniczny a przez pomyłkę to dopisałem do listy ID do zostawienia,
2. Nie ukrywa mycia linii które jest bez ID a chciałbym aby ukrywało i nie exportowało danych do tabeli , działa to dobrze dla przezbrojenia linii dla mycia nie,

Pytanie ostatnie
Jak się mogę odwdzieczyć? :-)

Uwaga.png
Plik ściągnięto 3 raz(y) 11.89 KB

_________________
Sebastian
ID posta: 359839 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 06-01-2019, 21:53   

W makro "usuń" zmień analogiczną linię (3 linia od końca) na taką
Kod:
 Range("A14:A20,A38,A61:A63,A65:A69,A73,A76,A79").EntireRow.Hidden = True
Możesz robić przyciski do kształtów.
Co do ostatniego pytania -reg pkt. 3.3.
ID posta: 359849 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 06-01-2019, 22:19   

@dm, Śmiga świetnie ! :-D

Jeszcze jedno pytanko,
czy dałoby radę zrobić aby dołożyć warunek że jeżeli linia = "COX1" lub "COX 2" to czas podziel przez 4?

Bo dla tych dwóch linii czas przestoju jest dzielony przez 4,

I pytanie czy jak przeniosę plik z tabela na dysk sieciowy to muszę coś gdzieś zmienić coś czy będzie bez problemu exportować ?

Uwaga 2.png
Plik ściągnięto 1 raz(y) 21.75 KB

_________________
Sebastian
ID posta: 359857 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 06-01-2019, 22:59   

Makro "Komentarze" w tym fragmencie wklej zaznaczone linie
Kod:
    For r = Lst To Lst + UBound(tbl, 2)
        If r > 7 Then .Cells(r, 3) = .Cells(r - 1, 3) + 1
        For c = 1 To 9
            .Cells(r, c).Offset(0, 3) = tbl(c, r - Lst)
            .Cells(r, c).Offset(0, 3).WrapText = False
        Next c
'------------------------------------------------------------------------
        If .Cells(r, 8) = "COX 1" Or .Cells(r, 8) = "COX 2" Then
            .Cells(r, 11) = .Cells(r, 11) \ 4
        End If
'-----------------------------------------------------------------
    Next r
Aby działało musisz to ujednolić tzn nie jak masz w arkuszu
"COX1" i "COX 2" lub "COX 1" i "COX2" tylko albo
"COX1" i "COX2" albo
"COX 1" i "COX 2".
Makro działa gdy pliki są w jednym folderze więc trzeba zmienić ścieżkę do dysku sieciowego. Poszukaj na forum były już takie tematy.
ID posta: 359864 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
  Wysłany: 06-01-2019, 23:13   

Zrobiłem tak jak napisałeś,

Uporządkowałem arkusz, wkleiłem to tam ale teraz mi krzyczy błędem w makrze ukryj, :-(

Uwaga 3.png
Plik ściągnięto 5 raz(y) 26.83 KB

STYCZEŃ 2019.xlsm
Pobierz Plik ściągnięto 4 raz(y) 875.85 KB

_________________
Sebastian
ID posta: 359867 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 07-01-2019, 09:49   

Błąd powstawał tylko na arkuszu "pustym" (01), kiedy wypełnisz choć 1 komentarz działa ok.(inne arkusze), ale i tak dodałem obsługę błędów.

STYCZEŃ 2019-2.xlsm
Pobierz Plik ściągnięto 6 raz(y) 874.98 KB

ID posta: 359883 Skopiuj do schowka
 
 
Sebastian_
świeżak


Posty: 9
Wysłany: 07-01-2019, 20:37   

@dm,

Super, zaimplementuję to i zacznę testować jak będę miał pytania będę pisał,

A takie szybkie pytanie czy można zrobić coś takiego żeby np każdego dnia o 08:00 wysyłał dane do tabeli ze skoroszytu o numerze zgodnym z dniem?
_________________
Sebastian
ID posta: 359929 Skopiuj do schowka
 
 
dm 
Excel Expert


Pomógł: 387 razy
Posty: 1126
Wysłany: 07-01-2019, 22:29   

Można (prawie) wszystko, ale to już temat na nowy wątek.
Poszukaj na forum np. tutaj lub tu
ID posta: 359942 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