sayfa ismine göre "alan adı tanımlamak"

[excelboy]

iyi akşamlar..bir sayfada, sayfa ismi ile aynı olan bir alan adı tanımlasak.Daha sonra bu sayfayı başka bir isim ile çoğaltırken bu yeni sayfadaki alan adı bu yeni açılan sayfanın ismi ile aynı otomatik olarak tanımlanabilirmi.
Yardımcı olacak arkadaşlara şimdiden tşrk ederim..iyi çalışmalar..

 

[excelboy]

iyi akşamlar..arkadaşlar en ufak bir fikri olan yokmu acaba..lütfen..iyi çalışmalar.. :agla:

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayarak denermisiniz.

Private Sub Worksheet_Activate()
On Error Resume Next
[IV65536] = ActiveSheet.Name
Range("A1:A10").Select
ActiveWorkbook.Names.Add Name:=[IV65536], RefersTo:="=Sayfa1!A1:A10"
Range("A1").Select
End Sub