Makro yu Eklenti Yapmak?

[bendiler]

Bir makroyu nasıl eklenti yapıyoruz.
aşağıdaki makroyu nasıl eklenti yapabilirm
Teşekkürler...

Sub AdSil()
'Ad Tanımlanmış Alanların Tümünü Siler
Dim i As Integer
On Error Resume Next
For i = 1 To ActiveWorkbook.Names.Count
ActiveWorkbook.Names.Item(i).Delete
Next i
End Sub

 

[peleryn]

Merhabalar;

Farklı kaydet'ten eklenti olarak (.xla) kaydedip C:/documentandsettings/Application Data/Microsoft/Add Ins klasörünün içine yerleştirin.

Her uygulama bu şekilde eklentiye dönüşebiliyor mu bilmiyorum ama uygun dosyaları eklenti olarak kaydetmek için bildiğim yol bu.Kolay gelsin..

 

[bendiler]

Teşekkürler yanlız kod bu haliyle eklenti olmuyor..

 

[bendiler]

2007 versiyonunda tanımlı adların tümünü seçip silebiliyoruz ama 2003 kullandığım için böyle bir eklentiye ihtiyacım var. Çünkü sayfalar arası koplamalarda sorun oluyor.

 

[uzmanamele]

2007 versiyonunda tanımlı adların tümünü seçip silebiliyoruz ama 2003 kullandığım için böyle bir eklentiye ihtiyacım var. Çünkü sayfalar arası koplamalarda sorun oluyor.

merhaba
tanımlı adları silmek için eklenti başınızı ağrıtır.
şöyleki; bir dosyanızda istenmeyen tanımlı adlar olduğu gibi yazdırma alanları içinde tanımlı ad vardır, siz kodu çalıştırdığınızda bu yazdırma alanı da silinecektir. her sayfa için tek tek yazdırma alanlarını belirlemek pek istenen bir durum olmasa gerek.

bu kodu denemenizi öneririm.

Sub T_Ad_Sil()
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    
    If ONAY = vbYes Then
        adlar.Delete
    ElseIf ONAY = vbNo Then
    End If
    Next
End Sub

 

[bendiler]

Teşekkürler....