Userformdan hücreye tarih getirme

[safir33]

Sayın hocalarım;
Userforma bir textbox ekledim. Buraya gireceğim tarihin, örneğin HAVUZ sayfasındaki A1 hücresine gelmesini istiyorum. Yardımlarınızı esirgemezseniz çok mutlu olurum.

 

[muygun]

Merhaba;
Userform'un kod kısmına;

Private Sub TextBox1_Change()
Sheets("HAVUZ").Range("a1") = Format(TextBox1, "dd.mm.yyyy")
End Sub

Ekleyip deneyin.
İyi çalışmalar.

 

[safir33]

Hocam denedim çalışıyor, teşekkür ederim. Fakat userforma geri döndüğümde girdiğim tarih kayboluyor.

 

[muygun]

Bu işlem yani ;
Private Sub TextBox1_Change()

olayı yapılan işlemi birebir yansıtır.

Yapmak istediğinizi tam yazarsanız yazdırma işlemi bir butona bağlanarak kontrollü bir şekilde sayfada hücre yada hücrelere yazdırılır.

 

[safir33]

Hocam sadece textbox' a tarih gireceğim ve onu sayfadaki a1 hücresine otomatik atacak. Ki sayenizde bunu yaptım. Fakat excel sayfasından çıkıp geri girdiğim zaman tektbox' daki girmiş olduğum tarih boş halde karşıma çıkıyor. En son girdiğim tarih yerinde kalsaydı daha iyi olacaktı.

 

[muygun]

Userformun kod kısmına (önceki kod kalsın.)

Private Sub UserForm_Activate()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
TextBox1 = Sheets("HAVUZ").Range("a1")
End Sub

kodlarınıda ekleyip deneyin.

 

[safir33]

Hocam çok teşekkür ederim. Allah razı olsun. İşiniz gücünüz rast gitsin. Çok yardımcı oldunuz, sağolun.

 

[Orion1]

Private Sub TextBox1_Change()
Sheets("HAVUZ").Range("a1") = Format(TextBox1, "dd.mm.yyyy")
End Sub

Yukaıdaki kodda tarih a1 hücresine metin olarak yazılır.
Tarih olarak yazılması için aşağıdaki kodu kullanmalısınız.
Yukarıdaki olaydaki kodu silip aşağıdakini yazınız.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A1").NumberFormat = "dd.mm.yyyy"
Range("A1").Value = CDate(TextBox1.Value)
End Sub