Excel'de yanlışlıkla gelen fligran nasıl yok edilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Yaptığım çalışmada makro ile alt - üst bilgi eklerken yanlışlıkla gelen fligran nasıl yok edilir?

Sub AltUstBilgi()
    OKUL = Range("CS1")
    Ders = Range("DG1")
    With ActiveSheet.PageSetup
        .LeftHeader = ""
       [COLOR="Red"] .CenterHeader = "&""-,İtalik""&8" & Ders[/COLOR]
        .RightHeader = ""
        .LeftFooter = "&""-,İtalik""&8" & OKUL
        .CenterFooter = ""
        .RightFooter = "&""-,İtalik""&8" & "Sayfa " & "&P" & " - " & "&N"
    End With
 End Sub

kullandığım makro yukarıda. Nerede yanlış var acaba?
Hataya kırmızı satır neden oluyor. Sebebini anlayamadım.
Saygılarımla

 

[Ömer BARAN]

Merhaba.
SAYFA DÜZENİ menüsündeki ARKA PLAN/ARKA PLANI SİL düğmesini kontrol ediniz?

 

[Tevfik_Kursun]

Ömer Hocam,
Bu arka plan sorunu değil. Sanırım Ders ifadesi biraz uzun. Belki sebep o. Emin değilim, onu da deneyeceğim, bilgi veririm.
İlginize çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
Sadece "2015 - 2016" yazdım yine yukarıdaki resim ortaya çıktı. Sayı yerine adımı yazdım, üst ortaya sorunsuz geldi. Excel'in sevmediği bir şey var orada, ama ne?
Umarım bir bilen çıkar.
Tekrar ilginize teşekkür ederim.
Saygılarımla

 

[Merhum İdris SERDAR]

.

2015 - 2016 yı yazarken başında bir boşluk bırakarak yazıp, deneyin.

.

 

[Tevfik_Kursun]

Muhteşemsiniz İdris Hocam,
Oldu. Sağolun, sayenizde bugün iki sıkıntılı problemi çözdüm. Teşekkür ederim.
Saygılarımla

 

[Merhum İdris SERDAR]

Muhteşemsiniz İdris Hocam,
Oldu. Sağolun, sayenizde bugün iki sıkıntılı problemi çözdüm. Teşekkür ederim.
Saygılarımla

.

Başa boşluk koymadan yapmak isterseniz, aşağıdaki kodu deneyin.

Sub AltUstBilgi()
    
    OKUL = Range("CS1")
    Ders = Range("DG1")
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&""-,İtalik""&8" &[COLOR="Red"] " " [/COLOR]& Ders
        .RightHeader = ""
        .LeftFooter = "&""-,İtalik""&8" & [COLOR="red"]" " [/COLOR]& OKUL
        .CenterFooter = ""
        .RightFooter = "&""-,İtalik""&8" & "Sayfa " & "&P" & " - " & "&N"
    End With
 End Sub

.

 

[Tevfik_Kursun]

Teşekkür ederim
Saygılarımla