Takvimi textbox a yazdıramadım.

[ojibu]

Takvimi textbox a yazdıramadım. nerede hata yapıyorum bulamadım.yardımcı olur musunuz

 

[YUSUF44]

Sorunu çözebilir miyim bilmiyorum, çünkü ben bu kadar karmaşık bir takvim uygulamasını ilk defa görüyorum. Şunu söyleyebilirim, Bir userformdaki bir nesneye tıklandığında başka bir userformdaki bir nesnede değişiklik yapılmasını istiyorsanız kodda hangi userformda işlem yapılması gerektiğini belirtmelisiniz. Örneğin textbox7 nesnesi userform1'de ise Userform1.Textbox7 olarak kullanmalısınız.



Ayrıca önemli bir hatırlatma yapayım, başkasıyla paylaştığınız dosyalarınızda excel uygulamasını gizleyen ya da kapatan kodlar kullanmayın ya da kodun o kısmını pasifleyip paylaşın. Kimse açık bir dosyasının bir anda ortadan kaybolmasını ya da isteği dışında kapanmasını istemez.

 

[Korhan Ayhan]

Bu kod işe yarıyor.

Private Sub Calendar1_Click()
UserForm2.TextBox7.Value = Calendar1.Value
Unload Me
End Sub

 

[ojibu]

Yusuf44 ve Korhan bey e teşekkür ederim. Şimdi de böyle bir sorun ile karşılaştım. tarih formatını yapıyorum.

Private Sub TextBox7_Change()
UserForm2.TextBox7.Value = Format(TextBox7, "dd.mm.yyyy")
End Sub

fakat ayın 12 sine kadar doğru veriyor 13 üne tıklayınca ayı başa günü ortaya alıyor. çözemedim.

 

[ojibu]

tam tersi olacaktı. fakat ayın 13 nden sonra doğru veriyor 12 sine tıklayınca ayı başa günü ortaya alıyor. çözemedim.

 

[YUSUF44]

Uyarımı dinlememişsiniz maalesef, yine gizleme kodunuz aktif

Userform üzerinde denediğimde tarih textboxta doğru görünüyor. Hatayı sayfaya aktarırken mi alıyorsunuz?

 

[ojibu]

Uyarımı dinlememişsiniz maalesef, yine gizleme kodunuz aktif

Userform üzerinde denediğimde tarih textboxta doğru görünüyor. Hatayı sayfaya aktarırken mi alıyorsunuz?

evet aktarırken oluyor. hocam gizleme kodu aktif derken anlamadım. nasıl pasif oluyor

 

[ojibu]

Uyarımı dinlememişsiniz maalesef, yine gizleme kodunuz aktif

Userform üzerinde denediğimde tarih textboxta doğru görünüyor. Hatayı sayfaya aktarırken mi alıyorsunuz?

Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
End Sub

acaba bunu mu demek istediniz. evet bunu kapatmam gerekir di ki başka excel uygulamalarınız etkilenmesin. ancak sanırım hatam bundan kaynaklı değil. ayın 13 nden sonra doğru veriyor 12 sine tıklayınca ayı başa günü ortaya alıyor. çözemedim. neden kaynaklı olabilir.

 

[YUSUF44]

Pasiflemeyi düzeltmişsiniz, teşekkürler. (Sorununuz pasiflemeden kaynaklanmıyordu zaten)

Dosyanızdaki denemelerimde hem textboxta hem de sayfaya aktarırken herhangi bir hatayla karşılaşmadım. 11 nisan ve 14 nisan tarihlerini doğru olarak aktardı.

Bilgisayar tarih ayarlarınızla ilgili bir sorun olabilir mi?

Ek: Bir tavsiye daha vereyim, Kaydet/Kapat düğmesine basıldığında tüm exceli kapatmaya çalışıyor. Buna da gerek yok, mevcut dosyayı kapatsın yeter. Diğer dosyaları neden kapatmak isteyeyim ki, değil mi?

 

[Korhan Ayhan]

Ek olarak aşağıdaki gibi deneyeniz.

Private Sub TextBox7_Change()
    UserForm2.TextBox7.Value = Format(TextBox7, "dd/mm/yyyy")
End Sub

 

[ojibu]

Ek olarak aşağıdaki gibi deneyeniz.

Private Sub TextBox7_Change()
    UserForm2.TextBox7.Value = Format(TextBox7, "dd/mm/yyyy")
End Sub

denedim yine olmadı . kapatmayı ThisWorkbook olarak değiştirdim.