Ad yöneticisine yazılan formülleri çalışma sayfalarına kopyalama

[ITouch87]

Merhaba;

Excel dosyasındaki ilk çalışma sayfasına yazdığım formülleri ad yöneticisine gömüyorum.Buraya kadar herşey normal.

Aynı sayfayı sheet 2 olarak kopyala dediğimde ad yöneticisindeki bütün tanımlamalar da kopyalanıyor ve excel dosyasında yük oluşturuyor. Bunu engellemek ve tüm çalışma sayfaları için tek yazmasını sağlamak için ne yapmalıyım?

Yardımlarınız için şimdiden teşekkürler.

 

[ITouch87]

Yardımcı olabilir misiniz?

 

[Merhum İdris SERDAR]

.

Sayfaları bu kodla kopyalayın.

Sub Kopyala()

Dim ad As Name

ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    For Each ad In .Names
        ad.Delete
    Next ad
End With

End Sub

.

 

[ITouch87]

.

Sayfaları bu kodla kopyalayın.

Sub Kopyala()

Dim ad As Name

ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
    For Each ad In .Names
        ad.Delete
    Next ad
End With

End Sub

.

Hocam Yardımınız için teşekkürler.

Macro harici bir çözüm yöntemi var mıdır? Excel şablonu kaydetme vb gibi?

 

[Merhum İdris SERDAR]

.

Sayfayı kopyaladıktan sonra kopyalananları tek, tek bulup, silmekten başka bir yol bilmiyorum.

.