Dediğim gibi önce kriterle yeni tablo yaratıp,
sonra bu tablodan yapılan çaprazı kullanınca sorun çıkarmadı.

sn. osman06 ekteki örneği kullanabilirsiniz.

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

Sayın Seruz;

Hocam bu konuyu ilgiyle izledim. Karşılaşmadığım bir konuyla ilgili örneğinizi arşivime ekliyorum.

Emeğiniz için teşekkürler.

Sn. Taruz'un katkısıyla,
Form kriterlerini fonksiyon ile modülden alarak
boşuna tablo yaratmadan olayı çözdük.

Sn. Osman06, ekteki dosyayı kullanın.

Gösterdiğiniz yere yazıyı nasıl yazacağınızı belirttim
ve alt tarafa Sabit yazı da ekledim.
Kodun sonlarına doğru bakarsanız görebilirsiniz.
Onu da istediğiniz gibi değiştirebilirsiniz.

Noy:Sn. Taruz'a tekrar teşekkürler.

With ExcelDosyasi
.Sheets(1).Select
.ActiveWindow.DisplayGridlines = False
.Cells(1, 2) ="hocam burda mahalle otomatik kendi gelecek bi önceki gibi mahallenin önüne ve arkasına sabit yazı eklemek istiyorum"[color][/color]
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 20

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

Pardon, yanlış anlamışım.
Şu şekilde yapabilirsiniz.

.Cells(1, 2) = "Mahalle adından önce yazılacak Kısım " & Me.Secilen_MAHALLE & " Mahalle adından sonra yazılacak Kısım"

Çift tırnak içinde yazılan kısımlar sabit kısımlardır.
Buraları istediğiniz gibi değiştirebilirsiniz.