adları silme eğer fonk. ekleme

[bkr-ylmz]

Merhabalar,

Aşağıdaki kodları kullanarak excel dosyası adlarını siliyorum, böylece hatrı sayılır şekilde dosya boyutu azalıyor.
Sıkıntı yazdırma alanları da siliniyor olması. Kodların içerisine Eğer " yazdır" içeren ad var ise atla diye bir komut yazabiliyor muyuz. Teşekkürler

Sub Gizli_ad_silme()
'
' Gizli_ad_silme Makro
Dim nmeName As Name
    On Error Resume Next
    For Each nmeName In ActiveWorkbook.Names
'        MsgBox nmeName.Name
        nmeName.Delete
    Next nmeName
    On Error GoTo 0
End Sub

 

[Ömer BARAN]

Merhaba.

Verdiğiniz kod'daki aşağıdaki ilk satırı, ikincisiyle değiştirin.
.

nmeName.Delete
[COLOR="Red"]yerine[/COLOR]
If Right(nmeName.Name, 10) <> "Print_Area" Then nmeName.Delete

 

[askm]

Sub Gizli_ad_silme()
'
' Gizli_ad_silme Makro
Dim nmeName As Name
Dim bul() As String
    On Error Resume Next
    For Each nmeName In ActiveWorkbook.Names
        bul() = Split(nmeName.Name, "Print")
        If UBound(bul) = 0 Then
            nmeName.Delete
        End If
    Next nmeName
    On Error GoTo 0
End Sub

 

[bkr-ylmz]

Hocam ikinize de teşekkür ederim, ikiside de istediğim sonucu verdi. Ama değeri "#BAŞV!" olan bir sürü yazdırma alanı da varmış, değere göre adları silebilir miyiz.
Aslında bu sıkıntı excelin her sayfaya kitabın içindeki adları eklemesinden kaynaklı olduğunu düşünüyorum, bu özelliği kapatmanın bir yolu yok mudur, nerdeyse her excel dosyasında bunu yaşıyorum, dosya boyutu MB mertebelerine çıkıyor.

 

[askm]

Yazdırma işlemini makro ile yapın. Tüm adları silebilirsiniz ondan sonra.