Macro ile name range yapmak

[cerenc]

Merhaba,

Bir sütundaki tüm hücrelere isim vermek istiyorum. (name range) Ama bu isimler birbirinin aynısı değil, örneğin SN1, SN2, SN3... şeklinde giden isimler. Data çok fazla olduğunda bunu elle tek tek yapmak çok uzun sürüyor, macro ile bunu yapmanın kısa bir yolu var mı?

Teşekkürler

 

[Ömer]

Merhaba,

Sub Tanımla()
    For i = 1 To [COLOR=red]100[/COLOR]
        ActiveWorkbook.Names.Add Name:="SN" & i, _
        RefersToR1C1:="=Sayfa1!R" & i & "C1"
    Next
End Sub

Denermisiniz..

.

 

[cerenc]

Merhaba, çok teşekkürler

Denedim, ancak isim hatası veriyor. (The name you entered is not valid) Ayrıca syntax hatası veriyor. Kodu çalıştıramadım.. Nereyi düzeltmem gerekli acaba?

 

[Ömer]

Merhaba, çok teşekkürler

Denedim, ancak isim hatası veriyor. (The name you entered is not valid) Ayrıca syntax hatası veriyor. Kodu çalıştıramadım.. Nereyi düzeltmem gerekli acaba?

Sub Tanımla()
    For i = 1 To 100
        ActiveWorkbook.Names.Add Name:="SN" & i, _
        RefersToR1C1:="='[COLOR=red]Sayfa1[/COLOR][COLOR=black]'[/COLOR]!R" & i & "C1"
    Next
End Sub

Sayfa adı bölümünü düzelterek denermisiniz..

Çalıştığınız sayfa adını kırmızı bölümü silip yazarsınız..

.

 

[cerenc]

Düzelttim, şimdi object required hatası veriyor...

 

[Ömer]

2007 bende olmadığı için deneyemiyorum. Yalnız 2003 te deneyerek yazdım sorunsuz çalıştı. Hata aldığınız dosyayı eklermisiniz. Birde o şekilde inceleyelim.

.

 

[cerenc]

Buradaki R1 ve C1 neyi ifade ediyor?

 

[Ömer]

Buradaki R1 ve C1 neyi ifade ediyor?

A1 hücresini
A2 de R2C1 olur
A3 de R3C1

.. şeklinde ilerler.

R nin önündeki satır numarası C nin önündeki sütun numarasıdır..

.

 

[Ömer]

Merhaba,

Sorun tanımlamak istediğiniz ad tan kaynaklanıyor. 2007 de son sütun XDF sanırım. Aralık olarak tanımlamak istediğiniz SN1 adında hücre olduğu için hata alıyorsunuz.

Bu yüzden vereceğiniz adların hücre adının olmamasına dikkat etmelisiniz. Bende 2007 olmadığı ilk başta bunu düşünemedim.

Sub Tanımla()
    For i = 1 To 100
        ActiveWorkbook.Names.Add Name:="[COLOR=blue]ZNN[/COLOR]" & i, _
        RefersToR1C1:="='[COLOR=red]Sayfa1[/COLOR]'!R" & i & "C1"
    Next
End Sub

Bu şekilde deneyin..

Sayfa1 olan bölgeyi kendi Sayfa adınızla değiştirirsiniz..

Tanımlamalar ZNN1, ZNN2 şeklinde ilerler.

.

 

[cerenc]

Merhaba

Dosyayı xlsx olduğu için önce kabul etmedi, uzantısını değiştirdim ekte gönderiyorum.
Dediğiniz şekilde SN ismini değiştirerek denedim ancak hala object required hatası veriyor.

 

[Ömer]

Eklediğiniz dosya bozuk. Kontrol edip tekrar eklermisiniz..

.

 

[cerenc]

Sorun şu: kullandığım excel 2007 versiyonu olduğu için, uzantısı xlsx. Fakat, buraya eklemeye çalıştığımda bu uzantıdan dolayı dosyayı kabul etmiyor, invalid file uyarısı veriyor.
uzantıyı değiştirip xls'e çevirdiğimde dosya yükleniyor, bende de bir sorun yaratmadan açıldı ancak formatı bozuluyor demek ki. kusura bakmayın çok uğraştırdım.

 

[Necdet]

Merhaba

Ömer bey'in kodlarını hem 2003, hem 2007 versiyonda görebilirsiniz.

Sub Tanımla()
    Dim i As Long
    
    For i = 1 To 100
        ActiveWorkbook.Names.Add Name:="ZNN" & i, _
        RefersToR1C1:="='[B][COLOR=red]Sheet1[/COLOR][/B]'!R" & i & "C1"
    Next
    
End Sub

 

[cerenc]

Merhabalar,

Az önce denedim ve makro çalıştı bu sefer. Sorun yok.
Çok teşekkür ederim.

Kolay gelsin