Userformda tarihlerimde hata oluyor ofis 2003 te

[orhanakdemir]

: :agla: :agla:
Userforma süzerek veri aldırıyorum ve bunun içinde tarih alanı var
ofis 2000 hiç sorunsuz çalışıyor kodlarım. Ancak
Ofis2003 te çalıştırınca UserForma aldığım tarihler Ay,gün, yıl formatına göre geliyor. Böyle olunca programın akışı bozuluyor.
Çünkü bu gelen tarihi ben çift tıklamayla 1 yıl artırarak tekrar excele yazdırıyorum.
Sorunun kaynağın nedir arkadaşlar bilen varmı :? :?

 

[Levent Menteşoğlu]

Bu office2003 ten değil pc ayarlarından kaynaklanmaktadır. Denetim masası-Bölgesel ayarlardan tarih formatını kontrol etmenizi öneririm.

 

[abazya]

Merhaba
Ã?rneğini ekleyebilirsen. Vaktim müsait olduğu süre bakmaya çalışacağım.En azından birileri görüp ilgilene bilirler. Çünkü örnekli çözümler daha kolay diye düşünüyorum.

 

[teknik]

Aşağıdaki kodu ilgili bölüme yazarsan düzelebilir. benim de başıma gelmişti.


Private Sub UserForm_Activate()
TextBox1.Value = Format(TextBox1, "dd.mm.yyyy")
End Sub

 

[orhanakdemir]

Tarihler ve user formda hata

Arkadaşlar ilginize çok teşekkür ediyorum, tüm sistem ayarlarını kontrol ettim, fakat olmadı dosyayı eklemeye çalışıyorum

 

[abazya]

Snrhanakdemir

Üzgünüm şu ana kadar bir şey yapamadım. En azından şifrenizi yazmış olsa idiniz.

Kafama takılan başka birşey daha dosyaları bir yerden bir yere aktarır kende isim değişikliği yapmışsınız gibi geliyor. Kusura bakmayın gündüz ilgilenemedim işlerim yoğun

Siz şifrenizi yazın en azından buradaki arkadaşlar şurdaki şu satırı değiştirin diyeceklerdir.

 

[orhanakdemir]

dosyayı tekrar göndermeye çalışıyorum şifresini sildim

 

[orhanakdemir]

Dosyayı Tekrar ekliyorum

Arkadaşlar ilginize çok teşekkür ederim
dosyaya şifre koymuştum sildim tekrar ekliyorum özür dilerim

 

[orhanakdemir]

Dosya eklenememiş

 

[Levent Menteşoğlu]

Terfi userformunda örneğin optionbutton1 deki kod içinde tarih ile ilgili satırı aşağıdaki ile değiştirerek deneyin.

[vb:1:822264d635]ListBox1.List(j, 3) = Format(CDate(Cells(satir, 10)), "dd.mm.yyyy")[/vb:1:822264d635]

 

[abazya]

ActiveCell.Offset(0, 9) = CDate(gün & "." & Ay & "." & Yıl + 1)

Bu kısmı çıkardım ve dediğinizi ekledim

 

[Levent Menteşoğlu]

Ben laleli isimli dosyayı indirdim bu dosyada "terfi" isimli userformda "kademe" diye bir nesne yok "Private Sub OptionButton1_Click()" altındaki koda ilave ederek deneyin.

 

[orhanakdemir]

Sayın leventm teşekkürler ellerine sağlık verdiğiniz kodu değiştirerek denedim sorun ortadan kalktı