Ad Tanımlama (Name Manager)

[besen]

Merhaba excelde tanımlanmış, "Ad Tanımlama (Name Manager) verilerini, başka bir excel dosyasına aktarılabilinir mi?

Teşekkür ederim.

 

[Haluk]

VBA ile yapılabilir....

Ad tanımlamalarının yapılmış olduğu dosyaya aşağıdaki kodu yazın, tanımlamaların taşınacağı diğer dosyayı da açın (Book2.xlsx).

Her iki dosya da açıkken, kodu çalıştırın ...

Sub Test()
    For Each objName In ThisWorkbook.Names
      Workbooks("Book2.xlsx").Names.Add Name:=objName.Name, RefersTo:=objName.Value
   Next
End Sub

.

 

[turist]

Böyle bir kodla deneyin.
Sub CopyNames()
Dim Source As Workbook
Dim Target As Workbook
Dim n As Name

Set Source = ActiveWorkbook
Set Target = Workbooks("Book2.xlsx")

For Each n In Source.Names
Target.Names.Add Name:=n.Name, RefersTo:=n.Value
Next
End Sub
Workbooks("Book2.xlsx") kısmına başka excel dosyasını yazınız.

Kaynak:https://excelribbon.tips.net/T008811_Copying_Named_Ranges.html

 

[besen]

Teşekkür ederim.

Kodu tanımlamaların olduğu dosyada modüle yazdım. Book2.xlsx diye bir dosya yarattım.
Ancak olmadı.

 

[Haluk]

Normal şartlarda çalışması gerekir ..... Sizdeki sorun Ad tanımlamalarınızın içeriğinden kaynaklanabilir belki. Dosyayı görmeden bir şey diyemem.

.