TextBox Tarih Formatı dd.mm.yyyy hatası

[oerbas]

Arkadaşlar işin içinden çıkamıyorum, iki günden beri kafayı yedim, Eğer yardımcı olursanız çoook sevineceğim. Ayrıca bu konu ile alakalı olarak daha öncede soru sormuştum ama bir türlü sorun çözülemedi. Şöyleki

TextBox32 tarih formatlı (mmmm.yyyy) UserForm üzerinde yazılı olan kod Textbox'a günün tarihini AY VE YIL olarak atıyor. Ancak TextBox32 ye gelen tarih bir bakmışsınız mm.dd. yyyy olarak geliyor. Yani gün ay yıl değilde ay gün yıl olarak gelmiş. TextBox32' deki Tarih Bilgisi TAKVİM isimli sayfanın "C2" hücresine gönderiliyor. C2 hücresindeki Aya ait günler ve hafta sonları TAKVİM Sayfasının D1-AI1 Hücre aralığında yazılı formüller tarafından hesaplanıyor. Fakat C2 hücresine atılan tarih hatalı formatla gönderildiği için ayın günleri yanlı hesaplanıyor. Örneğin 04.02.2013 tarihi TextBox'a NİSAN 2013 olarak geldiği için TAKVİM İsimli sayfada D1 Hücresi 1 yazması gerekirken 5 yazıyor. Bu durumu çizmek için çok uğraştım ama benim bilgim yeterli gelmedi. Bir el atarsanız sevinirim Örnek Dosyayı gönderiyorum

 

[Ömer]

Merhaba,

Sorularınız daha sade dosyalar hazırlayıp sormanızı tavsiye ederim.

04.02.2013 tarihini ben denedim, Şubat 2013 olarak geldi. Bir sorun yaşamadım.

 

[oerbas]

Merhaba,

Sorularınız daha sade dosyalar hazırlayıp sormanızı tavsiye ederim.

04.02.2013 tarihini ben denedim, Şubat 2013 olarak geldi. Bir sorun yaşamadım.

İlginize teşekkür ederim. Gerekirse tekrar dosya hazırlarım. Ancak konuyu biraz daha açıklama gereği duydum. TextBoxa UserForm intialize olayına bağlı olan aşağıda yazılı olan kodla tarih getiriliyor.
TextBox32=Date
TextBox=Format(TextBox32,mmmm,yyyy)
Ancak bilgisayar tarih değiştikçe tarih bazen ay gün yıl olarak alınıyor bazen doğru olarak gün ay yıl olarak alınıyor. Bilgisayarda Denetim Masında Tarih ayarlarını değiştirdiğimde düzeliyor ancak daha sonra gün ay yıl olması gerekirken ay gün yıl oluyor.

 

[oerbas]

Dosyayı sadeleştirdim

 

[cems]

Dosyayı sadeleştirdim

Sütun başlığına dokunduktan sonra sağ tıklayıp hücre biçimlendirmeye giderek,
tarih formatında mart01 ibaresine dokunarak dener misiniz? Bu şekilde buraya düşen tarihler
günü atlayarak ay ve yıl olarak görünecektir.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
    TextBox32 = Format(Date, "mmmm.yyyy")
    TextBox41 = Format(Date, "mmmm")
End Sub

 

[oerbas]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
    TextBox32 = Format(Date, "mmmm.yyyy")
    TextBox41 = Format(Date, "mmmm")
End Sub

Sn.Korhan bey kodlarınız kısmen sorunumu çözdü Şöyleki TextBox32 gelen günün tarihini doğru formatta almayı başardık ancak TextBox Change olayına bağlı olan kodlar TAKVİM sayfasında D1 ile AH1 hücre aralığındaki C2 hücresine girilen aya ait günleri birden 31' e kadar sıralı olanTextBoxlara atıyor. Buradada biri ile 15 arası hatalı olarak ay olarak yani mm atılırken ayın 15'inden sonrası doğru olarak (gg ) geliyor. Örneğin Şubat ayını ele alalım 1-5 arası 2-2-2-2-2....... gelirken 15. TexBox' a gelen tarihler 15-16-17-18.....28. olarak doğru geliyor. Bunun sebebini bir türlü anlayamadım

 

[Korhan Ayhan]

Merhaba,

Tarihi biçimlendirerek nesneye atayabilirsiniz.

TextBox1.Value = Format(Range("D1"), "dd")

Ya da aşağıdaki gibi hücrede görünen metni nesneye atayabilirsiniz.

TextBox1.Value = Range("D1").Text

 

[oerbas]

İyi Akşamlar;
Korhan bey verdiğiniz cevap ve kodlar için teşekkür ederim. İşyerindeki bilgisyarımda problem olduğu için teşekkür mesajı yazmakta geciktim. Eğer ayıp olmazsa bir soru daha sormak istiyorum. İki farklı sayfadan veri alan çalışma sayfasında D2:AH50 hücre aralığında girilen 1 değerleri "X" olarak yine "2" değerleri "XX" olarak çevirilsin istiyorum. Ben kodu yazmaya çalıştım ancak olmadı sanıyorum hatalı yazıyorum bir el atarsanız sevinirim.