Tarih Sorunu

[msanli]

Aşağıda bulunan makro ile sayfaların çıktısını alıyorum. Normalde "dd/aa/yyyy" olan tarih formatı, makroda bulunan print komutunu çalıştırınca "aa/dd/yyyy" formatında çıkıyor. Hücrenin tarih formatı "dd/aa/yyyy".

Fikri olan varmı acaba...

Private Sub Userform_Initialize()
For i = 1 To 4
If i < Sheets.Count + 1 Then
Controls("checkbox" & i).Caption = Sheets(i).Name
Else
Controls("checkbox" & i).Enabled = False
End If
Next
End Sub

Private Sub CommandButton1_Click()

For i = 1 To Sheets.Count
If Controls("checkbox" & i).Value = True Then Sheets(i).PrintOut

Next
End Sub

 

[mancubus]

merhaba.

herhangi bir makro ile format değişikliği yapıyor musunuz?

tarih formatı "dd/aa/yyyy" şeklinde değil "gg/aa/yyyy" (Türçe) veya "dd/mm/yyyy" (İngilizce) şeklinde olur. bu format hatalı.

 

[msanli]

makroda herhangi bir tarih formatı kullanmıyorum. Windows'un kendi tarih ayarları kullanılıyor, tarih sıralamasındaki yanlış da sadece yazım hatası.

 

[mancubus]

konunun makro ile ilgilisi yok o zaman. hatta excel ile. gerçi windows tarih formatında da bir problem görünmüyor.

herhangi sayfayı doğrudan yazdırğınızda da aynı problem oluyor mu?

veya yazdırma komutundan önceki bir satıra tarihin bulunduğu hücreler için aşağıdaki kodu ekleyerek deneyebilirsiniz. örnek: B3:B6

Range("B3:B6").NumberFormat = "dd/mm/yyyy"

 

[msanli]

Yardır komutunu kullanmadan tarih formatı doğru (gg/aa/yyyy).Yazdır komutunu kullandığımda iase tarih formatı "aa/gg/yyyy". Gönderdiğiniz kodu kullandığımda ilgili hücrede sonuçu ise tarih olarak değil de "DOĞRU" olarak veriyor.

 

[mancubus]

dosyanızı örnek veriler içerecek şekilde eklerseniz daha fazla inceleme ve çözüm üretme şansı olur.