sn:seruz hocam eline emeğine sağlık çok tşkler
uğraştırdım sizide

---

hocam aşağıda soru işaretli yere sabit bi metin yazacam nasıl yazmam lazım

With ExcelDosyasi
.Sheets(1).Select
.ActiveWindow.DisplayGridlines = False
.Cells(1, 2) ????????????? = Me.Secilen_MAHALLE & " BELDESİ HAFTALIK ÇALIŞMA PROGRAMI"
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 12

'Kayıt yoksa çıkılıyor
If Rs.RecordCount = 0 Then
.Cells(2, 2) = "Kayıt bulunamadı"
Rs.Close
Exit Sub
End If

birde sayfanın altına sabit bi metin ekeyecem yardımcı olurmusunuz