seçilen hücrenin altında takvim

[uzmanamele]

merhaba
takvim denetimininde; tarih girmek istediğim hücreyi seçtiğimde, hemen altında takvimin çıkması için hangi kodu eklemeliyim?

 

[hsayar]

merhaba
takvim denetimininde; tarih girmek istediğim hücreyi seçtiğimde, hemen altında takvimin çıkması için hangi kodu eklemeliyim?

sizin sayfanızda çalışan refaranslarım bunlar tahminen mscal.ocx eksikliğidir.
bende seçili olan referanslar bunlar, hsr benim kendi fonksiyonum muhtemelen yanlış seçim diğerleri seçili iiken bende çıkıyor sizin kodlarınızda

 

[hsayar]

sorunu buldum galiab mesajı düzenledim bilginiz olsun, sizin dosyanı aktifken bende çalışan referanslar bunlar eksiklerinizi düzenleriz.

 

[uzmanamele]

Additional Controls içinde "RefEdit.Ctrl." işaretli olduğu halde Referances VBAproject listesinde "Ref Edit Control" seçeneği yok. sorun bundan mıdır?

 

[uzmanamele]

C:\Program Files\Microsoft Office\OFFICE11 içersinde MSCAL.OCX var. system32 nin içine mi koymalıyım?

 

[uzmanamele]

syn leventm'nin çift tıklamayla açılan takvim örneğinde, sayfanın kod bölümüne yazılan aşağıdaki kod, seçilen hücrenin altında takvimin çıkmasını sağlıyor. (+15 ifadesi hücre yüksekliği). ben kendi takvim denetimime ekleyemedim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top + 15
Calendar1.Left = ActiveCell.Left
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[uzmanamele]

syn Orion2
sizin dosyada istediğim gibi seçilen hücrenin altında çıkıyor. bu kodu kendi dosyama nasıl adapte edeceğim? sizin örnek dosyada takvimden tarih girilince kapatamıyoruz, bu konuda çeşitli örnekler var ama benim istediğim gibi değil malesef.
aşağıdaki kodu örnek dosyama adapte edebilir misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top + 15
Calendar1.Left = ActiveCell.Left
End Sub

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.StartUpPosition = 0
UserForm1.Top = ActiveCell.Top + 100
UserForm1.Left = ActiveCell.Left - 70
UserForm1.Show 0
End Sub

İmleçle hücreler arasına gezinti yaparak sonucunu gözlemleyiniz.

 

[uzmanamele]

syn Seyit Tiken
günlerdir yapmaya çalıştığım bir soruna çare oldunuz, teşekkürler.

 

[ozsah]

Sn.tiken dosyayı açtım içinde takvim yok bir ricam daha var dosyanın açılması gereken sutunu ve hücreleri seçme şansım olabilirmi örneğin A5:A200 arasında seçtiğim hücrelerde takvim açılsın ve çift tıklarsak olsun. umarım çok şey istemiyorumdur.ilginize şimdiden teşekkür ederim.

 

[uzmanamele]

merhaba
sayfanın kod bölümüne aşağıdaki kodu yazın.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [a5:a200]) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

syn seyit tikenin dosyasında takvim yok, userformu açıp içine takvim koyun.

çift tıklamayla açılan takvim için syn leventm'in takvim dosyasını tavsiye ederim

 

[uzmanamele]

syn seyit tikenin kodlarını aşağıdaki şekliyle değiştirdim, birdereceye kadar daha iyi oldu gibi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.StartUpPosition = ActiveCell
UserForm1.Top = ActiveCell.Top + 120
UserForm1.Left = ActiveCell.Left + 15
UserForm1.Show 0
End Sub

 

[Seyit Tiken]

Sağ Klik ile beli bir alan içinde kodu çalıştırabilirsiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:g30]) Is Nothing Then Exit Sub
Cancel = True
UserForm1.StartUpPosition = 0
UserForm1.Top = ActiveCell.Top + 100
UserForm1.Left = ActiveCell.Left - 70
UserForm1.Show 0
End Sub