Aktif Çalışam Kitiabındaki tüm adları Bir kerede sil

[hsayar]

Aktif Çalışam Kitiabındaki tüm adları Bir kerede sil komutu nasıl olmalıdır.?

 

[zafer]

Merhaba

Bahsettiğiniz Alan adları ise

[FONT=Verdana]Sub silalanismi() [/FONT][FONT=Verdana]
Dim alani As Name 
For Each alani In ActiveWorkbook.Names 
alan1.Delete 
Next 
End Sub 

[/FONT]

 

[hsayar]

teşekkürler hocam yazım hatası olmuş
ben düzelttim

Sub silalanismi()
Dim alani As Name
For Each alani In ActiveWorkbook.Names
alani.Delete
Next
End Sub

 

[hsayar]

Hocam reivize etmemzi gereken birt durm var şimdi Hocam Bir makro ile Ad tanımlanabilrimi

Eskileir sildik
aaa sayfasının e5:e5000 aralığını TOPLAMLAR adını vermek mümkünmüdür.

e5in üstüne satır ekleyince ad tanımı e6:e5001 oluyor ve 50 tane tanımı düzeltmekte sinirimi bozuyor.

yardımlşarınız için teşekkürler.

 

[Ferhat Pazarçevirdi]

Makro Kaydet ......

 

[hsayar]

olabilir........


ActiveWorkbook.Names.Add Name:="aaaaa", RefersToR1C1:="=Sayfa1!R5C3:R21C3"

gibi bi,rşey oluyor