Dzień Dobry. Gratuluje wielu wspaniałych materiałów o VBA. Kalendarzu wstawiający datę z menu kontekstowego niestety nie potrafiłem poprawnie zainstalować (dotyczy zakupu). Mimo, że film dołącząny do materiałów jest bardzo szczegółowy. Pierwszy problem na jaki się natknąłem, to w linku do katalogu makr osobistych na moim komputerze był katalog XLSTART, ale katalog nie istniał u mnie. Doczytałem w internecie, że taka sytuacja jesy gdy nie było jeszcze zapisanego jakiegoś makra. Tutaj sobie poradziłem. Po wykonaniu do końca wszystkich krokółw z Pana filmiku, po uruuchomieniu nowego (pustego) skoroszytu excela. Pojawia się skoroszyt, ale wygląda tak jakby był ukryty. Sądzę, że coś wykonałem źle. Nie wiem tylko co mogę zrobić?
Dzień dobry, super materiał, bardzo pomocny. Mam tylko jedno pytanie gdzie w VBA zmienić zapis aby drugi wiersz kalendarza z dniami rozpoczynał się np. w komórce R5 (18ta kolumna, 5ty wiersz), a nie jak w prezentacji A5?
Co muszę zrobić, aby taki kalendarz otwierał mi się po kliknięciu w konkretną komórkę i aby wypełniała się ona automatycznie po wybraniu daty? Chcę to umieścić w formularzu do wprowadzania danych stworzonego za pomocą Excel VBA w polu "data"
Cześć, dziękuję za komentarz. Proponuję tutaj alternatywne rozwiązanie. Kalendarz, który będzie otwierał się po kliknięciu prawym przyciskiem myszy (menu kontekstowe Excela) jest dostępny na moje platformie smartexcel.pl. Bezpośredni link do zakupu takiego materiału, w którym omawiam jak wdrożyć taki kalendarz wraz z niezbędnymi plikami umieszczam poniżej: smartexcel.pl/produkty/kalendarz-w-excelu/ Pozdrawiam
Wstawienie funkcji CDate powoduje błąd" komorka.Value = CDate(Target.Value & "." & Arkusz2.Range("G3").Value & Arkusz1.Range("A1").Value) Bez tej funkcji makro wykonywane jest bezbłędnie lecz wstawia do zaznaczonej komórki wartość w formie tekstowej.
Wszystko w kalendarzu działa OK prócz pętli. Dlatego daty wypełniane są tylko w pierwszym wierszu. Dim kolWiersz As Byte For i = 1 To Round(ostDzien / 7, 0) + 1 kolWiersz = Arkusz1.Cells(wiersz, 7) For j = 1 To 7 If kolWiersz + j > ostDzien Then Exit Sub Else Arkusz1.Cells(wiersz + 1, j) = kolWiersz + j End If Next j wiersz = wiersz + 1 Next i
Jesteś w stanie mi powiedzieć gdzie jest ten błąd, ponieważ robię ten kalendarz w innym miejscu niż w powyższym przykładzie i tylko miesiące, które rozpoczynają się od poniedziałku są prawidłowo wstawiane reszta ma przeskok w drugim wierszu tak że brakuje paru dni. Jesteś e stanie pomóc będę wdzięczny 😊