TextBox'u Tıklayınca Tarih Açılsın

[ormann]

İyi günler
Ekli dosyada A10 ve A15 hücrelerini çift tıklayınca tarih açılıyor ve seçilen tarihi hücreye yazılıyor. Aynı işlemi TextBox1 ve TextBox2'ye nasıl uygularız ?
http://dosya.co/fxynkbe2rlib/örnek.xlsm.html

 

[Cengiz Demir]

Dosyanızda belirli alandaki hücreler boş değilse Form açılıyor.

Textbox lara da o şekilde kodlama yaptım.
A sayfası kod alanına bu kodları kopyalarsanız texbox içeriği doluysa form açılır.
Eğer içerik boşken de işlem yapılsın istiyorsanız if ile başlayan kodu ve end if kodunu silmeniz yeterli ..

Yanlız eğer seçilen tarihin texboxa yazılmasını istiyorsanız. Userform daki kodlamaları da bu duruma göre uyarlamalısınız.
Başka bir arkadaş da o kodlamaları düzenleyebilir sanırım.

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then
UserForm1.Show
End If
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value <> "" Then
UserForm1.Show
End If
End Sub

 

[ormann]

Sayın Cengiz bey sayfa üzerindeki Textboxlarda çalışmıyor.

 

[Cengiz Demir]

Sayın ormann ;
Eğer kodları doğru yere kopyaladıysanız texboxlara çift tıklayınca formun açılması lazım.
Seçilen tarihi texbox içine yazmıyorsa yukarıda belirttiğim gibi userforma da işlem yapılması gerekiyor. Ben user form da değişiklik yapmadım.
Vakit bulabilirsem user formu da inceler ve ilgili texbox a seçilen tarihi yazdırabilir miyiz bakarım.

Ek: User formu inceledim. Biraz uğraştım ama formdan texbox lara veri kaydını ayarlayamadım. Başka bir arkadaş belki ayarlayabilir..