Name Manager Sorunu

[waytooraider]

Merhaba,

Name managerda (ad yöneticisnde),hiç bir isim tanımlı olmamasına rağmen,ekteki excelde sheeti kopyaladığımda uyarı veriyor.Bu uyarıyı yıllardır çözemiyorum.Allah rızazası için yardımcı olun (((((

bir önceki mesajımdada break link probleminide çözemiyorum,valla başımı alıp köyüme döneceğim bırakıcam bu işleri...Piskolojimi bozan bu iki sorunun çözülmesi lazım.

 

[Ömer BARAN]

Merhaba.

Emin değilim ama; excel seçenekleri -> eklentiler -> exceltoolbox'u kaldırarak dener misiniz?

 

[waytooraider]

Malesef

 

[Merhum İdris SERDAR]

.

Bu kodu çalıştırın.

Sub Sil()
    Dim ad As Name
    For Each ad In ThisWorkbook.Names
        ad.Delete
    Next ad
End Sub

.

 

[waytooraider]

Sadece gizli isimleri silmesi mümkün mü?mesela ekteki dosya name manager listesinde görülmüyor,görülenleri silmese olur mu acaba?Çok teşekkürler..

 

[Merhum İdris SERDAR]

.


Bunu deneyin.

Sub Gizliadsil()

Dim Gad As Variant
      
For Each Gad In ActiveWorkbook.Names
         If Gad.Visible = False Then
             Gad.Delete
          
          End If
         
Next Gad

End Sub

.

 

[waytooraider]

Kahramanım!!!!!!

 

[waytooraider]

Hocam bazı dosyalarda kodunuz çok iyi çalışıyor bazılarında da hata veriyor.sizede zahmet veriyorum.
ekteki dosyada hata ne diyor anlıyorum ama ne yapmalıyım bilmiyorum.

 

[Merhum İdris SERDAR]

Hocam bazı dosyalarda kodunuz çok iyi çalışıyor bazılarında da hata veriyor.sizede zahmet veriyorum.
ekteki dosyada hata ne diyor anlıyorum ama ne yapmalıyım bilmiyorum.

.

Örnek dosya eklerseniz daha iyi olur.

.

 

[waytooraider]

bir sonraki msgda 2. sayfada ekledim hocam

 

[waytooraider]

Çok teşekkür ederim şimdiden.

 

[Merhum İdris SERDAR]

.

Bu kodları deneyin.

Sub Gizliadsil2()

Dim Gad As Name

MsgBox "Şu anda bu kitapta " & ThisWorkbook.Names.Count & " adet tamımlanmış ad var."

On Error Resume Next
    For Each Gad In ThisWorkbook.Names
        If Not Gad.Visible Then
            Gad.Delete
        End If
    Next Gad
On Error GoTo 0

Hatalısil

MsgBox "Bu kitapta " & ThisWorkbook.Names.Count & " adet tamımlanmış ad kaldı."

End Sub

Sub Hatalısil()
 
Dim N As Name
 
If MsgBox("Emin misiniz??", vbYesNo + vbDefaultButton2, "Onay") = vbNo Then Exit Sub
 
For Each N In ActiveWorkbook.Names
 
If InStr(N.Value, "#REF") Then N.Delete
 
Next N
 
End Sub

.

 

[waytooraider]

Yıllardır bu sorun karşısında inim inim inliyordum.Allah razı olsun.