seçili hücrede açılan tarih kutusu

[sametozyavuz]

öncelikle bölye bir soru için konu açtığım için özür dilerim ama bir türlü yapamadığım için affınıza sığınıyorum.

benim istediğim
excel çalışma kitabımda VERİ isminde bir sayfam var.
o sayfada B14 hücresini seçtiğimda yanında dtpicker tarih kutusunun açılmasını ve tarih seçtikten sonra seçtiğim tarihin yine B14 hücresine yazılmasını ve tarih kutusunun kapanmasını istiyorum.

bir de yapılabilirse b15 hücresine tıklandığında da ekteki resme benzeyen bir rakam klavyesi çıkmasını ve onunla B15 hücresine sayı girmeyi istiyorum.(sadece 0-9 arası rakamlar yeterli)
ekte resimlerle anlatmaya çalıştığım bir belge var.

(OFİCE 2010 SÜRÜMÜNÜ KULLANIYORUM)

 

[Necdet]

Merhaba,

Bilglerinizde 2003 sürümü kullandığınızı ama soru sorarken 2010 kullanıyorum diyorsunuz. Bilginizi neden günlemiyorsunuz?

Sayfada DTPicker nesnesi için aşağıdaki kodların Veri Sayfasının kod bölümünde olması gerekir.

Private Sub DTPicker1_Change()
    ActiveCell.Value = DTPicker1.Value
    DTPicker1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B14]) Is Nothing Then Exit Sub
    DTPicker1.Visible = True
End Sub

Not : Hücreye rakam girmek için o kadar takla atmaya gerek var mı?

 

[sametozyavuz]

ofice versiyon bilgisini düzelttim.
numaratörü olmayan bir laptopta yazmak hiç hoşuma gitmedi.
uzun zaman da bununla çalışmama gerekecek.
bir de kullandığım dosyamda bu kısımdan sonrakji tüm işlemler mausle açılır listeden seçilerek yapılıyor o yüzden mausu elime almışken bırakmim dedim.

tarih kutusu çok güzel olmuş emeğinize sağlık.
uğraşıyorum ama bu makro kodlarına bir türlü vakıf olamadım.
tekrar teşekkür ederim.

 

[Muzaffer Ali]

Dosyanız ekte rakamlar için yaptığım formu siz istediğiniz gibi düzenleyebilirsiniz.

 

[sametozyavuz]

Dosyanız ekte rakamlar için yaptığım formu siz istediğiniz gibi düzenleyebilirsiniz.

tekrar teşekkürler.