Belli Bir Aralıkta Değer Aratma

[badmad34]

Merhaba arkadaşlar,

Ekteki dosyanın ÇIKTI sekmesinin DEĞER sütunundaki sayıları, KAYNAK sekmesinde aratmak istiyorum.

KAYNAK sütununda verilen değerler, belli bir aralığı temsil etmektedir. Bunları açıklayacak olursak;

• 27977-27977: Aralıkta bulunan başka sayı olmadığından 27977 değerine tekabül eder.
  
• 28102-28104: 28102, 28103 ve 28104 sayılarının hepsini kapsar.
  
• 28438-28440, 28442-28442: Virgülle ayrılan her bölüm kendi içinde değerlendirilmelidir. Bu durumda, ilk bölüm 28438, 28439 ve 28440 sayılarını kapsarken; ikinci bölüm 28442'yi kapsamaktadır.

Benim yapmak istediğim şey, ÇIKTI sekmesindeki DEĞER'leri teker teker KAYNAK sütununda aratmak istiyorum. Eğer bir DEĞER'in KAYNAK sütununda karşılığı varsa, ilgili değerin VAR sütunundaki hücresine "X" işareti eklensin. Değerin bir karşılığı bulunamaması durumunda ise YOK sütununa "X" işareti eklensin.

Yardımcı olabilir misiniz?

 

[omerceri]

Örnek ekte

 

[badmad34]

Çok teşekkürler, emeğinize sağlık...

 

[badmad34]

Bu kodla yaptırılmak istenen nedir?

If s1.Range("aa" & i).End(1).Column <> 2 Then

 

[omerceri]

Sn badmad34
Bir satırda dolu olan son sütunun 2. sütun değilse..... aa yerine IV de yazılabilir (Ofis 2003 de 256 sütun olduğu için). Ofis 2007 ve sonrasıda çok daha fazla sütun var.
Kodda bir yanlışlık var

For y = 2 To yaz - 1

yukardaki satırı aşağıdaki gibi değiştirin

For y = 2 To yaz