Takvimi Açan Buton

[danielsjacky]

merhaba;

excel üzeirnde bir buton koymayı ve klik sonrası takvim açılmasını, burdan seçiceğim tarihinde istediğim bir hücreye gelmesini istiyorum.

sitede biraz arama yaptım zannedersem bununla ilgil ornekler var fakat dosyalar indirilemiyor.

şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyiniz.

Seçilen hücrede takvim oluşturma

Seçilen hücrede takvim oluşturma-2

 

[danielsjacky]

malesef buradakileri denedim fakat olmadı ..

bir türlü takvim açılmıyor.

 

[Levent Menteşoğlu]

Bu durumda takvim nesnesine sahip değilsiniz demektir. MSCAL.ocx dosyasını bularak siystem32 klasörüne kopyalayın.

 

[danielsjacky]

bu dosyayıda eklemiştim fakat hala başarısız..

ekteki iki uyarıyı alıyorum.

 

[Levent Menteşoğlu]

MSCAL.ocx dosyasını register ettinizmi? bunu yaptıktan sonra ilgili dosyayı forumdan indirip tekrar deneyin.

 

[danielsjacky]

sizden sadece vb kodunu rica etsem paylaşabilirmisiniz.

bir adet buton koyucam ve butona tıklayınca a1 hucresi icin takvim acılacak.

teşekürler..

 

[Levent Menteşoğlu]

Açılan takvime tıklayınca veri hangi hücreye yazılacaktır. Ayrıca takvim hangi durumda tekrar gizlenecektir.

 

[danielsjacky]

herhangi bir hücre olabilir a1 diyebiliriz mesela.

takvimin gizlenmesine gerek yok dogru anladıysam tabi..

acılan takvımden herhangi bir tarih secimi sonrası takvim gidecek ve secilen tarih a1 hucresine gelecektir. butona tekrar basarsam zaten guncelliyebilecegim. veya silmek istersem hucreden silme yapabilecegim.

teşekkürler.

 

[Levent Menteşoğlu]

Boş bir modüle aşağıdaki kodu kopyalayın ve bu kodu sayfada bir butona bağlayın.

Sub takvimac()
Dim takvim As Object
[a1].Select
Set takvim = ActiveSheet.OLEObjects.Add(ClassType:="MSCAL.Calendar", Link:=False, DisplayAsIcon:=False)
takvim.LinkedCell = "A1"
takvim.Visible = False
takvim.Visible = True
End Sub

Takvimin üzerinde bulunacağı sayfanın kod sayfasınada aşağıdaki kodu kopyalayın.

Private Sub Calendar1_Click()
ActiveSheet.OLEObjects.Delete
End Sub

 

[f_desat]

açılan kapanan takvim

tarih hücresi aktif olduğunda takvim açılır,

takvime yada user form'a double click kapatır

 

[f_desat]

açılan kapan takvim butona gerek olmadan

tarih hücresi aktif olduğunda takvim açılır,

takvime yada user form'a double click kapatır

 

[aslan525]

arkadaşlar tekbir hücreye takvim yapabilirmiyiz benim butona filan basmadan o hücreye geldiğimizde takvim açılsın burdakileri uyarlamaya çalıştım ama olmadı kendi cari hesabıma benim sayfalarda kodlar da var tek bir modülle bu işi halledebilirmiyiz
şimdikten teşekkür ediyorum
saygılarla