Ad Tanımlamada Kapsam Değiştirme

[baydeniro]

Merhaba Arkadaşlar,
Zaman zaman karşılaştığım bir sorun var. Ad Tanımlamada bazı tanıları belli sayfalar için belirliyorum. Şimdi 2 sorum var :
1) sistem 2 seçenek veriyor. Ya 1 sayfa, ya tüm sayfalar olarak. Peki birkaç sayfada kullanılabilir olmasını belirleyebiliyor muyuz !
2) İlk belirlemede 1 sayfa için tanımlansa, sonra tüm sayfalarda geçerli olacak şekilde değiştirebiliyor muyuz !

 

[Emir Hüseyin Çoban]

.

2.sorunuz için; makro ile çözüm...

Sub kod()

    With ActiveWorkbook.Worksheets("Sayfa1").Names("asd")
        isim = Split(.Name, "!")(1)
        hucre = .RefersToR1C1
        .Delete
    End With
        
    ActiveWorkbook.Names.Add Name:=isim, RefersToR1C1:=hucre
      
End Sub

.

 

[Merhum İdris SERDAR]

.

1. Sorunuz.

a. Adlandırmak istediğiniz hücre aralığını seçin.
b. Tanımlı Adlar grubunda Adı Tanımla aracını tıklatın.
c. Yeni Ad iletişim kutusunu görüntüler. Ad kutusuna, geçerli çalışma sayfasının adını, Sayfa1!Alan gibi adı girin.
d. Ekle'ye tıklayın.

Bu yaklaşım, sayfa adının aralık adının başına eklenmesi ve kapsamın belirttiğiniz sayfaya otomatik olarak ayarlanmasını sağlar.

2. Sorunuz.

Tanımladığınız adı silin. Yeni baştan tanımlayarak, kapsamı istediğiniz şekilde belirleyin.

.

 

[baydeniro]

.

1. Sorunuz.

a. Adlandırmak istediğiniz hücre aralığını seçin.
b. Tanımlı Adlar grubunda Adı Tanımla aracını tıklatın.
c. Yeni Ad iletişim kutusunu görüntüler. Ad kutusuna, geçerli çalışma sayfasının adını, Sayfa1!Alan gibi adı girin.
d. Ekle'ye tıklayın.

Bu yaklaşım, sayfa adının aralık adının başına eklenmesi ve kapsamın belirttiğiniz sayfaya otomatik olarak ayarlanmasını sağlar.

2. Sorunuz.

Tanımladığınız adı silin. Yeni baştan tanımlayarak, kapsamı istediğiniz şekilde belirleyin.

.

Üstadım desteğiniz için teşekkür ederim, sağlıcakla kalın

 

[baydeniro]

.

2.sorunuz için; makro ile çözüm...

Sub kod()

    With ActiveWorkbook.Worksheets("Sayfa1").Names("asd")
        isim = Split(.Name, "!")(1)
        hucre = .RefersToR1C1
        .Delete
    End With
       
    ActiveWorkbook.Names.Add Name:=isim, RefersToR1C1:=hucre
     
End Sub

.

Üstadım bu mükemmel kod için teşekkür ediyorum, elinize, aklınıza sağlık, sağlıcakla kalın