açılır takvim koyma

[feridunsah]

sayfa 1 de G10 ve G12 hücrelerine tıkladığımızda açılır takvim koyma yardımlarınızı bekliyorum

teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz, ilgili sayfanın kod bölümünde olmalı.

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G10,G12]) Is Nothing Then
    Calendar1.Visible = False
    Exit Sub
Else
    Calendar1.Value = Date
    Calendar1.Visible = True
End If
End Sub

 

[feridunsah]

elinize sağlık teşekkürler

 

[Necdet]

Tekrar Merhaba,

Açılan takvimde Günün Tarihinin gelmesi sanırım daha doğru olacaktır. Yukarıdaki kodları güncelledim.

 

[feridunsah]

Tekrar tekrar teşekkürler elleriniz kollarınız dert görmesin

 

[feridunsah]

Sizler ve bu excel web olmasa acaba ne yapardık allah sizi başımızdan eksik etmesin

 

[Necdet]

Güle güle kullanınız, bende bu yöntemi ustalarımdan öğrendim. Öğrendiğimi de size aktardım.

Gerçekten bu site çok önemli bir site, hep birlikte ayakta tutmalıyız diye düşünüyorum.

 

[nbayulken]

biliyorum biraz zaman geçmiş ama yeni konu açmak yerine aradım ve buldum .
Ben bunu kullanmak istiyorum , ama nasıl kendi çalışma sayfama adapte ederim

 

[CONANFORCE]

ben kodu kendi sayfama eklediğimde hata veriyor neden olabilir acaba nederde hatam var dosya ekte c46 ile c55 arasındaki hücrelede açılmasını istemiştim kodraı düzellim kendimce ama düzeltememişimki hata veriyor

 

[nbayulken]

sayfanıza nasıl taşıdınız ????
ben taşıyamadım

 

[CONANFORCE]

yukarıdaki kodu kopyalayıp çalışma sayfamda sağ tıklayıp kod görüntüle yaptım uygulamak istediğim sayfada kod bölümene yapıştırdım. kendime göre hücreleri eğişerek.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [G10,G12]) Is Nothing Then
Calendar1.Visible = False
Exit Sub
Else
Calendar1.Value = Date
Calendar1.Visible = True
End If
End Sub

 

[atay38]

bende çalıştıramadım... hata veriyor ayıkla deyince "Calendar1.Value = Date" bu satırı gösteriyor...

 

[safak19551]

hücre içinde açılan takvimi listeye dönüştürülmüş tablo içinde kullanabilirmiyiz.
örneğin takvim sadece F ve G kolonları içinde kullanılabilir olmasıda sağlanabilirmi? Listede diğer kolonlar için tanımlanan özelliklerin değişmesini istemiyorum.

yardımlarınız için teşekkürler

 

[halit3]

hücre içinde açılan takvimi listeye dönüştürülmüş tablo içinde kullanabilirmiyiz.
örneğin takvim sadece F ve G kolonları içinde kullanılabilir olmasıda sağlanabilirmi? Listede diğer kolonlar için tanımlanan özelliklerin değişmesini istemiyorum.

yardımlarınız için teşekkürler

ekli dosyayı inceleyiniz.

 

[safak19551]

Halit Bey çok teşekkür ederim. bu akşam deneyeceğim sanırım olacak.

 

[yildiraykartal]

yukardaki arkadaşlar ile benimde sorunum aynı ama cevap yazılmamış...hata veriyor ayıkla deyince "Calendar1.Value = Date" bu satırı gösteriyor...yardımcı olursanız sevinirim..

 

[safak19551]

Halit beyin eklediği dosyda ayrıntılı açıklaması var. Bir şey eksik yapılıyor olabilir. Takvim eklentisi 11 i açıklandığı gibi yapıp visual basic düzenleyecisi içindeki kodu da kendi sayfanıza kopyalamanız gerekiyor. Bu kod olmazsa çalışmıyor.

 

[yildiraykartal]

arkadaşlar kendi sorumun cevabını kendim vermem gerekecek galiba...çünki deneme yanılma yöntemi ile sorunu buldum..diğer arkadaşlarında sorusuna cevap teşkil edecektir..makroyu yükledikten sonra hücreleri tıklayınca hata mesajı geliyodu..ben ekle - nesne ekle- takvim denetimi 11.0 ekle yi tıklayınca takvim çıkıyo..ondan sonra makro çalışıyo..istediğim hücreyi tıklayınca takvim çıkıyo...yardım eden arkadaşıma teşekkür ederim...kolay gelsin..

 

[gedavet]

Iyi günler takvimdeki ayların adı örnek nisan ayı nis diye yazıyor bu nisan diye tam yazmazmı

 

[halit3]

takvim nesnenin sag kılik özelliklerine gir (MonthLength) uzun veya kısa hangisini kullanacaksan değiştir.