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