Witam.
Cały dzień myślałam nad tym i żadne skuteczne rozwiązanie mi do głowy nie przyszło dlatego proszę Was o pomoc.
Mam zakres komórek, które są na bieżąco uzupełniane tylko do końca każdego miesiąca.
Kiedy następuje kolejny miesiąc ręcznie czyszczę formularz (ten zakres komórek jw.) a chciałabym to zautomatyzować, no i nie wiem jak.
Jeżeli można to zrobić jakaś formułą, to może nawet lepiej.
Proszę Was zatem o jakąś podpowiedź.
Z góry dziękuję.
Bardzo dziękuję. Prawie o to mi chodziło, więc trochę zmodyfikowałam i jest prawie ok tylko, że teraz nie mogę poradzić sobie z dobraniem zdarzenia.
W komórce B1 jest formuła, która pobiera dzień z daty i jeżeli zmienia się on (dzień w B1) na 1, to chciałabym aby wyskakiwał monit z zapytaniem czy to jest 1 dzień miesiąca, bo od tego jest uzależnione czyszczenie baz (bazy są dwie).
Poniżej kod to tego:
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Formularz").Range("B1") = "1" And Worksheets("Formularz").Range("H12") <= "0" Then
inf = MsgBox("Wpisujesz nowy miesiąc?", vbYesNo, "UWAGA")
If inf = vbYes Then Worksheets("Baza").Range("A8:AO1000").ClearContents
If inf = vbYes Then Worksheets("Baza_2").Range("A8:AO1000").ClearContents
If inf = vbNo Then Exit Sub
Cancel = True
End If
End Sub
I teraz jak wsadzam to w Change, to musze kliknąć na tą 1, a dąże do tego aby po samej zmianie w B1 bez klikania wywoływało zdarzenie.
Czy da się to zrobić? 
Dziękuje Panowie, zatem tak: nie wiem co źle robie, ale Worksheet_Calculate wywołuje okienko, ale się wiesza i na wielokrotne potwierdzanie nie reaguje. Teraz mam taki kod:
Private Sub Worksheet_Calculate()
If Worksheets("Formularz").Range("B1") = "1" And Worksheets("Formularz").Range("H12") <= "0" Then
inf = MsgBox("Wpisujesz nowy miesiąc?", vbYesNo, "UWAGA")
If inf = vbYes Then Worksheets("Baza").Range("A8:AO1000").ClearContents
If inf = vbYes Then Worksheets("Baza_2").Range("A8:AO1000").ClearContents
If inf = vbNo Then Exit Sub
Cancel = True
End If
End Sub
PRL - Załacznik został skasowany?
Dodano po 8 [minuty]:
Już mam załącznik, dzięki. Wlaśnie go testuję.
Dodano po 18 [minuty]:
Ja nie wiem co jest źle, na Twoim formularzu działą, a na moim ani huhu. Ale nawet jeśli zadziała jest jeszcze taki problem, że nie wszyscy, którzy będą obsługiwali ten formularz będą go zamykać i ponownie otwierać. Zatem to zdarzenie musi być takie, ze jeśli bez dotykania formularza zmieni się data, to wtedy wywołuje zdarzenie. Ostatecznie może być z tym zamykaniem, ale i tak u mnie nie działa.
A może w ogóle jest inny sposób na czyszczenie bazy po skończonym miesiącu?
Umieść poniższy kod w module arkusza:
Przetestowałam, ale nie działa. To znaczy w pewnym sensie działa, bo wywołuje okienko, ale się wiesza, nie można go zamknąć.
Nie wiem dlaczego ten fragment kodu:
If Worksheets("Formularz").Range("B1") > 1 Then Sheets("Formularz").Range("AC1") = 0
zwraca 0 kiedy w B1 jest dzień pierwszy. Przecież 1 nie jest większy od 1.
Okazało się, że WorkSheet_Calculate też się nie nadaje.
Proponuję inne rozwiązanie, które przypięte jest do 'p i e r w s z y p o m i a r'.
Już prawie działa idealnie, tylko, że dla wyboru TAK wiesza się, natomiast dla wyboru NIE nie czyści bazy czyli ok i jak nie, to się wyłącza.
A czy ten fragment kodu nie gryzie się?
If Worksheets("Formularz").Range("B1") > 1 Then Sheets("Formularz").Range("AC1") = 0
If Worksheets("Formularz").Range("B1") = 1 and Worksheets("Formularz").Range("H12") <= 0 And Sheets("Formularz").Range("AC1") = 0 Then
czy po pierwszym If nie powinno być ElseIf?
Nie powinno być ElseIf.
Po prostu nie wykasowałem tego, czego nie powinno być w pliku, czyli procedur 'OnChange'.
P.S. Kasiu, niech Irek dokończy, co powinien.
Witajcie ponownie. Nie zdążyłam już wczoraj przetestować tego arkusza. Natomiast dzisiaj już wszystko wiem.
Teraz mam kod w module:
Sub CB() 'czysc baze
If Worksheets("Formularz").Range("B1") > 1 Then Worksheets("Formularz").Cells(1, 29) = 0
If Worksheets("Formularz").Range("B1") = 1 And Worksheets("Formularz").Range("H12") = "" And Worksheets("Formularz").Cells(1, 29) = 0 Then
inf = MsgBox("Wpisujesz nowy miesiąc?", vbYesNo, "UWAGA")
If inf = vbYes Then
Worksheets("Baza").Range("A8:AO1000").ClearContents
Worksheets("Baza_2").Range("A8:AO1000").ClearContents
Worksheets("Formularz").Cells(1, 29) = 1
End If
If inf = vbNo Then Exit Sub
End If
End Sub
A wywoływany jest w change:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$7" Or Target.Address = "$P$7" Or Target.Address = "$AA$7" Or Target.Address = "$AL$7" Then
MsgBox "Przypomnienie o wpisaniu uwag.", vbOKOnly + vbInformation, "Uwaga!"
End If
Call CB 'ma czyscic baze
End Sub
I w zasadzie to działa, tylko, że mimo iż nie jest dopisane do CLIK to 2 razy wywołuje się po kliknięciu w "ZAPIS".
Jeszcze tylko to stoi mi na przeszkodzie i najgorsze, ze do jutra musze to zrobić.
Pomożecie?
DZIAŁA! hura! wielkie dzięki! ale chyba jeszcze tu napisze, bo mam problem z kolei z wyświetlaniem liczb. Zamiast np. 1,8 to zwraca 1,7453256 i jak wpisuje formułe zaokr() to niby jest ok, ale z kolei źle przelicza. Tak się zastanawiam czy makrem nie potraktować całego arkusza.
0Jeżeli chodzi o takie zwyczajne formatowanie, to działa tylko wizualnie, a gdzies w pamięci przechowuje taka liczbę. To formatowanie by pomogło, ale ja mam w wydruku formuły przekształcające "," na "." i na to formatowanie nie działa. Czasami zwraca właśnie taka długa liczbe.
JEŻELI($P51="";"";JEŻELI($P51=LICZBA.CAŁK($P51);ZŁĄCZ.TEKSTY($P51;".0");PODSTAW($P51;",";".")))
P51 wyswietla wynik tylko, że z przecinkiem.
