bir tusla coklu ad tanimlama

[gecemavisi]

Saygıdeğer Arkadaşlar;
Bir tuşa basıp a satırındaki a1 hücresindeki değeri alıp Ör:"asatırı" adındaki değeri alıp a1:a700 , b1 hücresindeki değeri alıp adtanımlamasında isim olarak kullanarak ör: "bsutunu" b1:b700 şeklinde 150. sütuna kadar iim verilebilirmi?
saygılarımla...

 

[omerceri]

ActiveWorkbook.Names.Add Name:=ActiveCell, RefersToR1C1:= _
"=Sayfa1!R" & ActiveCell.Column & "C1:R700" & ActiveCell.Column
ActiveCell.Offset(0, 1).Range("A1").Select

A1 hücresini seçip, yukardaki kodu bir kısa yol veya düğmeye yapıştırıp, devamlı tıklarsan

 

[Korhan Ayhan]

Selamlar,

Alternatif olması açısından bende döngü ile bir çözüm sunuyorum.

Sub AD_TANIMLA()
    For X = 1 To Cells(1, 256).End(xlToLeft).Column
    Range(Cells(1, X), Cells(700, X)).Select
    ActiveWorkbook.Names.Add Name:=Cells(1, X), RefersTo:=Range(Cells(1, X), Cells(700, X))
    Next
    [A1].Select
End Sub

 

[gecemavisi]

Sn Cost Conrol, Sn Omer Ceri,
Verdiğiniz kodları denedim ama olumlu sonuç çıkmadı. Aşağıdaki örnekte size biraz daha detaylı olayı açıklamaya çalıştım.
Aslında istediğim şey şu:
a3 satırından başlayarak her sütuna ad koydum. buna bağlı çalışma kitaplarında çok formüllü işlemler hesaplatıyorum. Ben ise alan adlarını a1.a65526 b1:b65536 ... diyerek atadığım için formüller onları hesaplamada bayağı zaman istiyorlar. bu da her dosyaları açıpta güncelle dediğimde bayağı vaküt beklememe neden oluyor. şimdi 150 tane sütunu teker teker bi daha girmektense otomatik tek tuşla hepsini a1:a2500 b1:b2500 .... gibi atamak istiyorum

Bu işin varsa bir çaresi sizden istirham ediyorum. Yoksa eğer teker teker elden bi daha ayarlayacağım mecbur.

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

 

[gecemavisi]

Arkadaşlar bana bu konuda yardımcı olabilecek birisi yok mu?

En azından girdiğim adların basvuru hücrelerini ör: a1:a65536 değilde a1:a3500 olarak hızlıca düzeltebilen bir makro bulabilirsem benden mutlusu olmaz.
Saygılarımla...

 

[Haluk]

Dosya ektedir ...

 

[gecemavisi]

Sn Haluk Bey;
Yardımınız için teşekkür ediyorum. Acaba bu zamana kadar girilmiş olan adları ve başvuru hücrelerini exele yazı olarak aktaramazmıyız. Otomatik üzerinde değişiklik yaptıktan sonra bir daha ad olarak tanımlamak için...,
İlgilendiğiniz için teşekkürler..

 

[Merhum İdris SERDAR]

Sayın gecemavisi,

Kusura bakmayın merakımdan soruyorum. Alanlarınız için neden "Dynamic Range- Dinamik Alan" kullanmıyorsunuz?

http://www.excel.web.tr/viewtopic.php?t=18167

 

[Haluk]

Gönderdiğim dosyada buna gerek yok.

Sütunlarda aşağıya doğru verileri girin, işiniz bitince düğmeye tıklayın.

Ad tanımlamaları yeni veri alanlarına göre güncellenecektir.

Yoksa siz başka bir şey mi sormak istediniz ?

 

[Haluk]

Doğru, sayınyurttas'ın da çok güzel bir çalışması var bu konuda.

 

[gecemavisi]

Sn Haluk Bey;
Nasıl kullanılacağını yazmanız benim için iyi oldu. lakin en azından bu zamana kadar girdiğim adlar baka sayfalarda kalıp olarak kullanıldığı için onları ilk aşamada tek tuşla normal bir exel sayfasına aktaramazmıyız. oradan da bul değiştir kullanarak 65536 ları 3500 yapardım.

Ya da öyle bir formül olacak ki ad tanımlarındaki 65536 ların hepsini 3500 olarak değiştirecek. Bu yöntem daha da pratik olurdu ve benimde ilerde işime yarardı. Sn Yurttaşın gösterdiği metodu anlamam biraz zor gibi. Üzerinde biraz yoğun düşünmem lazım.
İlginiz ve yardımlarınız için teşekkürler..

 

[Merhum İdris SERDAR]

Sayın gecemavisi,

Dinamik alan uygulaması yapılmış örnek dosyanız ekte.

 

[gecemavisi]

Sn Yurttaş,
Örneğiniz gerçekten çok güzel olmuş elinize sağlık. lakin ben bunu kendi sayfama atamıyorum.
=KAYDIR(VERI TABANI!$D$5;0;0;BAĞ_DEĞ_DOLU_SAY(VERI TABANI!$A:$A);1)
Şeklinde başvuruyu kabul etmiyor..
Sizce nasıl olmalı?
Saygılar...

 

[Merhum İdris SERDAR]

=KAYDIR(VERI TABANI!$D$5;0;0;BAĞ_DEĞ_DOLU_SAY(VERI TABANI!$D:$D);1)

Şeklinde deneyin. (yani sondaki$A:$A değil $D:$D olacak)

 

[gecemavisi]

SN Yurttaş:
Artık bu formülü de sayenizde öğrenmiş oldum meğer hata sayfa adının ayrı olmasındaymış sağolun,
İyi çalışmalar.....
Not: Yardımcı olan herkese teşekkürler....

 

[Merhum İdris SERDAR]

meğer hata sayfa adının ayrı olmasındaymış

Aklıma gelmedi değil ama bir bekleyeyim ne olacak diye düşündüm.

 

[gecemavisi]

Sn Yurttaş Bey;
=KAYDIR(VERI TABANI!$D$5;0;0;BAĞ_DEĞ_DOLU_SAY(VERI TABANI!$D:$D);1)
Formülü ile yapılmış bağlantılı çalışma sayfamda değerler ana sayfa açıkken güncelleştiğinde görünüyor. Ama ana sayfa kapalıyken ne yazık ki değer hatası veriyor. Sizce problem ne olabilir.
Saygılarımla....

 

[Merhum İdris SERDAR]

Formülü ile yapılmış bağlantılı çalışma sayfamda değerler ana sayfa açıkken güncelleştiğinde görünüyor. Ama ana sayfa kapalıyken ne yazık ki değer hatası veriyor.

Anasayfa ile diğerleri aynı dosyada değil mi? Anlayamadım.

 

[gecemavisi]

Hayır hocam;
Ad tanımları ana sayfada ama o ad tanımına ilişkin formüllü başka dosyalarım var. Bu dosyalar birbirleriyle bağlantılı.

İlginizde teşekkürler...

 

[Merhum İdris SERDAR]

Sayın gecemavisi,

Bir yanlışlık yok, açık olması gerekir. Değilse #VALUE! - #DEĞER! hatası verir.

Kaldı ki; alan adını açık olan dosyada da tanımlasanız örneğin,
='C:\bilgisayar\excel-uygulamalar\fonksiyonlar\[Dynamic-Range.xls]tablo'!$A1 0 0 COUNTA('C:\bilgisayar\excel-uygulamalar\fonksiyonlar\[Dynamic-Range.xls]tablo'!$A:$A) şeklinde tanımlasanız dahi, kaynak dosya açık olmadığı sürece sözkonusu hatayı verir.