Hücreleri adlandırma

[hdm24]

Merhabalar,
Sorunumu ekteki dosyada göstermeye çalıştım:

F ve G sütünlarında verilen aralıkları (F sütünunda:Aralık başlangıcı, G sütünunda: Aralık sonu, F-G aralıkları değerleri aynı olabilir veya sıralı olmayabilir) B sütünunda 1 olarak yazdırıp A-B grafiğini çizdireceğim.

F ve G sütünlarında satır sayısı 500, A sütünunda satır sayısı 60000!.

1.Sorum: F ve G sütünlarında hücreleri (f1a,f1b),(f2a,f2b),(f3a,f3b),.... (f500a,f500b) isimlendirmenin kolay bir yolu var mı? Şu ana kadar 250 tane yazdım!

2. Sorum: Ayrıca malum B sütünuna yazdığım formül 500 aralık, F-G aralığı, için çok uzun oluyor. IF(OR(AND(A2>=f1a,A2<=f1b),AND(A2>=f2a,A2<=f2b),AND(A2>=f3a,A2<=f3b)...),1,""). Bunu daha kolay nasıl yapabilirim?


Yardımcı olabilirseniz çok sevinirim.

Şimdiden herkesin yeni yılını kutlar, sağlık, mutluluk ve başarılar dilerim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki formülü deneyiniz.

B2 hücresine;

=EĞER(TOPLA.ÇARPIM((A2>=$F$2:$F$6)*(A2<=$G$2:$G$6))>0;1;"")

 

[hamitcan]

Kod ile isim yaratmak için;

Sub IsimYarat()
    For i = 1 To [f65536].End(3).Row
        ThisWorkbook.Names.Add Name:="F" & i & "a", RefersTo:=Cells(i + 1, "f")
        ThisWorkbook.Names.Add Name:="F" & i & "b", RefersTo:=Cells(i + 1, "g")
    Next
End Sub
Sub TumIsimleriSil()
    Dim nm As Name
    For Each nm In ThisWorkbook.Names
        nm.Delete
    Next nm
End Sub

 

[hdm24]

Sayın Korhan Ayhan,
İlginiz için çok teşekkür ederim. Verdiğiniz formülde >0 da sıfır hata veriyor.Kusura bakmayın excel de yeniyim, sanırım sorunumu tam olarak anlatamadım.

F ve G sütünlarında her bir satır aralığı için mesela F3:G3 için,10-12 aralığı, A sütünununda 10,11 ve 12 sayılarına denk gelen hücrelere B sütünunda 1 yazdırmak. A sütünunda 6000'den fazla sayı, F ve G sütünlarında 600'den fazla satır olduğundan her bir aralık için formül eklemek sıkıntı oluyor.

 

[hdm24]

Sayın Hamitcan,
İlginiz için çok teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Siz uygulamasını yapamamışsınız. Formül çalışıyor. Ekli dosyayı inceleyiniz.

 

[hdm24]

Sayın Korhan Ayhan,
İlginiz ve yardımınız için çok teşekkür ederim.