Mevcut Uygulaması Ve Excele Aktarımı

1 2 3 4 5 6 7
25/08/2021, 20:49

userx

Kolay gelsin.
26/08/2021, 19:38

hturkavci03

Hocam, Mazeretlere altı çizgili nasıl yapabiliriz.
ve mazeretler dökümünü koyu font, Times New Roman, 11 Font gibi özellikleri nasıl verebiliriz.
26/08/2021, 21:43

hturkavci03

Hocam sizin kodlara kırmızı satırları ekleyerek mazeretler dökümünü font ve boyutunu ayarlayabildim ancak mazeret satır başlıklarını altı çizili yaptığımda satır başlıkları mükerrer hale geliyor. Birleştirilmiş hücre görünümü bozuluyor.


Set rs2 = CurrentDb.OpenRecordset("Gecici")
       
        Do Until rs2.EOF
        Excl.Cells(y, "A") = rs2(0)
        Excl.Cells(y, "B") = rs2(1)
        Excl.Cells(y, "D") = rs2(2)
        Excl.Cells(y, "F") = rs2(3)
        Excl.Cells(y, "H") = rs2(4)
       
      Excl.Range("A" & y, "H" & y).Font.Name = "Times New Roman"
        Excl.Range("A" & y, "H" & y).Font.Size = 8
Excl.Range("A" & y).Font.Underline = xlUnderlineStyleSingle  'Borders.LineStyle = 1

       
       
        y = y + 1
           
        rs2.MoveNext
            Loop
26/08/2021, 22:24

hturkavci03

Sayın Hocam, sorun kalmadı. Kodlar çalışıyor. Tekrar teşekkür ederim.
27/08/2021, 00:06

userx

(26/08/2021, 22:24)hturkavci03 yazdı: Sayın Hocam, sorun kalmadı. Kodlar çalışıyor. Tekrar teşekkür ederim.

Mazeretlere altı çizgili eklendi.
mazeretler dökümü koyu font, Times New Roman, 11 Font olarak ayarlandı.
29/08/2021, 18:36

hturkavci03

Sayın userx, TBL_ANA_Çapraz sorgusuyla oluşturduğunuz Gecici tablosunda S_, AS_, SVL_M_, ve UZ_E_ alanları kendi mazeret grupları içinde TBL_ANA tablosu ID alanına göre sıralanmıyor. Bunun için yapabileceğimiz bir şey var mı?
1 2 3 4 5 6 7