Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Excel, programowanie VBA, makra

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Witam wszystkich,

To mój pierwszy post i postaram się możliwie jak najbliżej przybliżyć mój problem.
Od razu zaznaczam, że powoli uczę się Excela i pewnych kwestii mogę nie zrozumieć.

Stworzyłem do pracy kalendarz, który ma ułatwiać organizację.
Działanie kalendarza jest proste, każdy arkusz to osobny miesiąc, a cały skoroszyt to jeden rok.
Pod każdym dniem w tygodniu jest 5 wierszy do wpisywania informacji. Dodałem parę opcji (np. formatowanie warunkowe dla bieżącego dnia), wszystko działa tak jak chciałem.

Postanowiłem dodać kolejną rzecz, chcę aby wyskakiwał mi komunikat o wydarzeniach lub ich braku, za każdym razem jak otwieram skoroszyt.
Założenie jest takie, że jeśli w danym tygodniu cokolwiek się dzieje (będzie to wpisane w obojętnie jakim wierszu pod dniem tygodnia) to otrzymam komunikat 1, jeśli nic się nie dzieje (nie będzie wpisane) to otrzymam komunikat 2.

Zacząłem pisać kod VBA dla dwóch osobnych komunikatów.
Uzyskałem co chciałem, ale działa to tylko wtedy jeśli zmieniam kod ręcznie.
Chciałbym aby doszło do pełnej automatyzacji, ale nie wiem jak to zrobić.

Podsyłam pliki Excela z kalendarzem.
Poniżej podam kody VBA do komunikatów:

1.

Kod:

Private Sub Workbook_Open()
MsgBox " Przypomnienie" & vbCrLf & vbCrLf & vbCrLf & "Przypominam o nadchodzących wydarzeniach. " _
& vbCrLf & vbCrLf & vbCrLf & "Kliknij OK i przejdź dalej do kalendarza." _
& vbCrLf & vbCrLf & vbCrLf & " - Damian" & vbCrLf, vbInformation, "Komunikat przypominający"
End Sub

2.

Kod:

Private Sub Workbook_Open()
MsgBox " Przypomnienie" & vbCrLf & vbCrLf & vbCrLf & "W tym tygodniu brak nadchodzących wydarzeń :) " _
& vbCrLf & vbCrLf & vbCrLf & "Kliknij OK i przejdź dalej do kalendarza." _
& vbCrLf & vbCrLf & vbCrLf & " - Damian" & vbCrLf, vbInformation, "Komunikat przypominający"
End Sub

Czy ktoś jest w stanie mi pomóc?.
Będę bardzo wdzięczny za każdą pomoc!

Edit: Marecki
Przy wpisywaniu kodów makr lub formuł używaj znaczników [code] (zgodnie z pkt. 3.1 Regulaminu naszego forum).

Kalendarz 2021 - przykład.xlsm

Pobierz Plik ściągnięto 9 raz(y) 74.01 KB

Tadek · Wysłany: 31-03-2021, 07:52

Witaj na Forum.
Nie wiem czy o to chodziło.
Zobacz w załączniku.

Pozdrawiam Tadek

Kalendarz 2021 - przykład - Kopia.xlsm

Pobierz Plik ściągnięto 23 raz(y) 74.37 KB

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Dzięki za zainteresowanie!

Na chwilę obecną wygląda idealnie, kurcze dzięki wielkie. Czy mógłbyś przybliżyć mi troszkę jak to zrobiłeś?

Tadek · Wysłany: 01-04-2021, 08:14

Zobacz makro: Sub arkusz_sprawdzenie()
Makro przegląda arkusze, jeśli w którymś "spotka" dzisiejszą datę sprawdza komórki w 5 tygodniach pod tą datą - jeśli wszystkie są puste lub przynajmniej jedna niepusta pojawia się odpowiednia informacja MsgBox.

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Nie chcę zakładać nowego tematu, a moje pytanie będzie dalej odnośnie przesłanego pliku.

Teraz zastanawiam się nad innym zagadnieniem. Dodałem opcję filtracji danych, która obejmuje filtrację kolumny rozumianej jako dzień tygodnia. Przedstawiam mój problem poniżej:

Czy jest możliwość zablokowania poszczególnych komórek podczas filtracji? Obecnie jak mam np. poniedziałek i fltruję dane to wyszukują mi wskazane wartości, ale znikają mi dni w miesiącu. Inaczej znajduje mi np. Zadanie 1, które ma odbyć się 26 kwietnia, ale znika mi komórka z dniem 26.

Tadek · Wysłany: 03-04-2021, 09:04

Pokaż to w załączniku.

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Przesyłam plik z kalendarzem. Komórki, które chcę żeby zostały zablokowane podczas filtracji zaznaczyłem na czerwono. W dwóch osobnych polach przewidzianych na tekst wpisałem "Tekst 1" i "Tekst 2". Teraz jeśli mam dzień tygodnia (poniedziałek) i wybieram filtrację, a poźniej np. Tekst 1 to znika mi dzień, w którym to wydarzenia ma się odbyć (komórka zaznaczono na czerwono). Mam nadzieję, że teraz lepiej wyjaśniłem :)

Tadek · Wysłany: 04-04-2021, 08:05

Gdzie ten plik?

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Chyba w poprzedniej wiadomości gdzieś zgubiłem plik. Podsyłam raz jeszcze.

Kopia Kalendarz 2021 - filtracja.xlsm

Pobierz Plik ściągnięto 12 raz(y) 76 KB

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Podbijam temat jeszcze z jednym pytaniem. Teraz chciałem utworzyć nowy arkusz w przesłanym pliku z makrem. Po dodaniu nowego arkusza całe makro siada i wyskakuje mi komunikat o braku wydarzeń, ale są one obecne. Co muszę zmienić, abym mógł dodawał nowe arkusze (jako miesiąc) i makro nadal działało?

Tadek · Wysłany: 13-04-2021, 08:55

Pokaż plik z tym dodanym arkuszem.

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Próbowałem już na różne sposoby i za każdym razem jak dodam/skopiuję arkusz i jest inna kolejność niż w przesłanym pliku wcześniej to makro przestaje działać...

Teraz przesyłam plik z utworzonymi arkuszami i z tym plikiem mam problem.

Kalendarz 2021 - 1.xlsm

Pobierz Plik ściągnięto 3 raz(y) 96.89 KB

Tadek · Wysłany: 13-04-2021, 14:30

Zał...

Kalendarz 2021 - 2.xlsm

Pobierz Plik ściągnięto 5 raz(y) 97.46 KB

Al_Damien · Świeżak Wersja: Win Office 2019 Posty: 8

Ponownie dziękuję za pomoc! :beer