Raporlamada tarih formatı sorunu

[İsmail Küçükşengün]

Merhaba;

[SIZE=3][FONT=Times New Roman]Private Sub CommandButton58_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]On Error Resume Next[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]Set s1 = Sheets("liste")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Set s2 = Sheets("rap")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If ListBox1.ListIndex = 0 Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]MsgBox "Lütfen Raporlama Yapmak İstediğiniz Müvekkili SEÇİNİZ.", , "HUKUK Büro Otomasyonu"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Exit Sub[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If ListBox1.ListIndex = -1 Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]MsgBox "Lütfen Raporlama Yapmak İstediğiniz Müvekkili SEÇİNİZ.", , "HUKUK Büro Otomasyonu"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Exit Sub[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.Range("A1:DR65536").Clear[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.Rows(1) = s1.Rows(2).Value[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.Rows(1).Font.Bold = True[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]For a = 0 To ListBox1.ListCount - 1[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If ListBox1.Selected(a) = True Then[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]sat = s2.[a65536].End(3).Row + 1[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.Rows(sat) = s1.Rows(a + 2).Value[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End If[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Next[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]For a = 121 To 1 Step -1[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If Controls("XPCheck" & a).Value = False Then s2.Columns(a + 1).Delete[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Next[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.[a:dr].EntireColumn.AutoFit[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]s2.Select[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[SIZE=3][FONT=Times New Roman]MsgBox "İstenen Kriterlere göre Rapor, RAPORLAMA SAYFASINA YAZILDI.", , "HUKUK Büro Otomasyonu"[/FONT][/SIZE]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3] [/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

koduyla, CheckBox' ların seçimiyle, liste sayfasındaki istenen veriler, başka bir sayfaya raporlanmaktadır.


Liste sayfasında V sütununda bulunan veri 10.01.2008 olduğu halde rapor sayfasına
01.10.2008 şeklinde geliyor. (Yani GÜN-AY-YIL olarak gelmesi gerekirken Ay-Gün-Yıl olarak gelmekte.)

Tarih formatında olan verilerin rapor sayfasına Gün-Ay-Yıl olarak gelmesi için kodlarlarda nasıl bir değişiklik veya ilave gerekir.

Şimdiden teşekkürler.

 

[Orion1]

İlgili sütunu Biçimlendirmeden gg.aa.yyyy olarak biçimlendiriniz.

 

[ceyrek]

Problem benim de başıma gelmişti, eğer hücrenin değerini kod yardımıyla giriyorsanız karışıklık çıkabiliyor. Ben şöyle bir çözüm uyguluyorum:

tarih = S2.Cells(1, "V").Value
    'MsgBox (tarih)
   If Not tarih = "" Then
    tarih = Split(tarih, ".", 2)
    gün = tarih(0)
    tarih = Split(tarih(1), ".", 2)
    ay = tarih(0)
    YIL = tarih(1)
    'MsgBox (gün & ay & yil)
    S2.Cells(1, "V").FormulaR1C1 = ay & "/" & gün & "/" & YIL
  End IF

 

[İsmail Küçükşengün]

Sayın Orion;

Veri alınan hücre zaten tarih biçimli. Verinin yazıldığı rapor sayfasında ise;
CheckBox' ların seçimiyle, tarih olan verinin hangi hücreye geleceği belli olamayacağı için. (çünkü seçimle 121 adet sütundan veri alınabiliyor.Bu tamamen seçime bağlı.Seçtiğimiz tarih olan hücre b,c,d,e,h...... herhangibir hücreye raporlanabiliyor.)

Sayın ceyrek;

İlginize teşekkürler. Önerinizi yukarıda yazdığım koda nasıl uygulayabiliriz.

Teşekkür ve selamlar.

 

[ceyrek]

Kodlarınıza uygulayabilmem için örnek bir dosya eklemeniz lazım. Eğer kendiniz uygulamak isterseniz, tarih = S2.Cells(1, "V").Value satırında, hangi hücrede tarih olduğunu belirtiyorsunuz, bunu değiştirmeniz lazım.
Dosya ekleyebilirseniz daha iyi olur.
İyi çalışmalar...