Hücrede Tarih gösterme

[teksen]

Merhaba,

A1 hücresine çift tıkladığımda takvim çıkarmayı başardım...Fakat tarih seçtiğim zaman hücreye yazdıramıyorum sorun nedir acaba?

 

[mrttrn]

Userform1 deki takvime çift tıkla.Aşağıdaki kodu ekle.

Private Sub Calendar1_Click()
Sheets("Sayfa1").Range("A1") = Str(Calendar1) 'str tarihi metne çevirir.
End Sub

 

[teksen]

teşekkür ederim

ama tarih bir kez seçtikten sonra bir daha değiştiremiyorum

ayrıca takvimde kendisi kapanmıyor

bunlar için ne eklemem lazım?

 

[mrttrn]

A1 çift tıklayınca takvim açılıyor.Her tıklamada A1 e tarihi atıyor.X tuşu ile form kapanıyor.Sorun yok.Dosya ilişikte .

 

[teksen]

A1 den A1000 e kadar bu kodu kullanmam gerekti.

fakat : veya ,; gibi işaretler kullandığımda malesef olmadı

bunun için ne yapmamız gerekir?

 

[Seyit Tiken]

A1 hücresine çift tıklayarak uygulamayı deneyiniz.

 

[teksen]

Sn. Seyit Tiken,

Öncelikle ilginize teşekkür ederim.

Fakat benim istediğim bu takvim uygulamasını A1,A2,A3,A4,A5.....A1000

Bu hücrelerden hangisine tıklarsam o hücrede çalışması.

Ben şu anda sadece A1 de çalıştırabiliyorum

Bunun için A1 yerine ne yazmalıyım?

şimdiden teşekkür ederim.

 

[Seyit Tiken]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
UserForm1.Show
End Sub

Şeklinde deneyiniz.

 

[teksen]

malesef olmadı

teşekkür ederim

zahmet oldu