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: 70554 Skopiuj do schowka Excel, programowanie VBA, makra
Autor Wiadomość
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 31-03-2021, 07:25   Excel, programowanie VBA, makra

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

ID posta: 402999 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
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

ID posta: 403001 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 31-03-2021, 09:44   

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ś?
ID posta: 403005 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
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.
ID posta: 403052 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 02-04-2021, 11:56   

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.
ID posta: 403103 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 03-04-2021, 09:04   

Pokaż to w załączniku.
ID posta: 403127 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 03-04-2021, 14:39   

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 :)
ID posta: 403143 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 04-04-2021, 08:05   

Gdzie ten plik?
ID posta: 403161 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 04-04-2021, 14:52   

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

ID posta: 403171 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 12-04-2021, 11:34   

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?
ID posta: 403436 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 13-04-2021, 08:55   

Pokaż plik z tym dodanym arkuszem.
ID posta: 403476 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 13-04-2021, 09:25   

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

  
ID posta: 403478 Skopiuj do schowka
 
 
Tadek
Excel Expert


Wersja: Win Office 2007
Pomógł: 1985 razy
Posty: 5662
Wysłany: 13-04-2021, 14:30   

Zał...

Kalendarz 2021 - 2.xlsm
Pobierz Plik ściągnięto 5 raz(y) 97.46 KB

ID posta: 403499 Skopiuj do schowka
 
 
Al_Damien
Świeżak


Wersja: Win Office 2019
Posty: 8
Wysłany: 14-04-2021, 07:06   

Ponownie dziękuję za pomoc! :beer
ID posta: 403543 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