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
Son Düzenleme: 30/01/2009, 15:54, Düzenleyen: osman06.