Sütun karşılaştırma makrosu.

[Carpintero]

Merhaba arkadaşlar. İki adet sütunumuz olacak ve biz bu sütunlarda belirli
kriterler dahilinde işlemler yapacağız.
Ekte ki örnekte izah etmeye çalıştım. Değerli yardımlarınızı bekliyorum.
Not : C ve F sütununda aynı veriden maksimu 5 tane oluyor.

İndir karsl

Dosyayı indir karsl

dosya.co

 

[Saban Sertkaya]

Merhabalar,

İnceleyiniz...

Sutun.xlsm dosyasını indir - download

Sutun.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Carpintero]

Merhaba Saban Bey
Sütunları ayrı ayrı değil de tek döngü içinde kontrol etmemiz gerekli.
Örneğin
Eğer B boş değilse D verisi F verisine eşitse ve de E boş değilse
gibi.

D ve F sütunlarını ayrı ayrı döngüye aldığımız zaman maalesef
istediğimiz kriteri karşılamıyor.

 

[Carpintero]

Şu şekilde bir şey yaptım kendim ama
koşulunu tam olarak ayarlayamıyorum maalesef.
Mantığı buna yakın istediğim şeyin.

Sub Deneme()

s1 = Cells(Rows.Count, "C").End(3).Row
s2 = Cells(Rows.Count, "F").End(3).Row

For i = 5 To s1
For r = 5 To s2

If Cells(i, "B").Value <> "" And Cells(i, "C").Value = Cells(r, "F").Value Then

Cells(1, "E").Value = Cells(i, "D").Value
Cells(1, "F").Value = Cells(i, "D").Value
Cells(1, "G").Value = Cells(i, "D").Value
Cells(1, "H").Value = Cells(i, "D").Value
Cells(1, "I").Value = Cells(i, "D").Value

Cells(3, "I").Value = Cells(r, "G").Value
Cells(3, "J").Value = Cells(r, "G").Value
Cells(3, "K").Value = Cells(r, "G").Value
Cells(3, "L").Value = Cells(r, "G").Value
Cells(3, "M").Value = Cells(r, "G").Value

'End If:
End If: Next r: Next i
End Sub

 

[Saban Sertkaya]

Özür dilerim, karşılaştırma mantığını tam kavrayamadım. Bahsettiğiniz sütunlarda D ve F verisini nasıl karşılaştırmanız gerekiyor ???
Bir de toplam veriniz ne kadar ? For-Next döngüsünü sağlıklı kurabilmek için bir değer verebilirseniz iyi olacaktır.

 

[Saban Sertkaya]

Mesajınızı geç farkettim. İnceleyip bir bakayım. Bir müddet bekleteceğim sizi.

 

[Saban Sertkaya]

Merhabalar,
Maalesef sütun karşılaştırma olayında verilerinizin sınırı bilmediğimden karşılaştırma sonucu bu şekilde çıkıyor. Ek'i inceleyiniz.

Birinci "X Ahmet" ifadesi için F sütununda yapılan aramada 2 değer bulunuyor. Döngü devam esnasında ikinci kez "X Ahmet" olduğundan bu değerde F sütununda aranırken yine 2 kez bulunuyor. Bu da sonucun 2 kez yukarıya yazılmasına neden oluyor.

Örneğin "X Kerem" ifadesi tek olduğundan sonuç 1 kez yazdırılıyor gibi..
Ya Ahmet2 yazarak benzer verileri ayırın, ya da maalesef ben çözüm üretemeyeceğim.

Bu haliyle dilerim işinizi görür. Hayırlı akşamlar.

Sutun2.xlsm dosyasını indir - download

Sutun2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Carpintero]

Konuya göstermiş olduğunuz alaka için teşekkür ederim Sayın Sertkaya.
İlk baştan da izah etmeye çalıştığım gibi. C sütununu döngüye alacağız.
Henüz C5 i sorguladığımızda ilgili değerleri yazdıabilmiş olmalıyız.

C5 ten başladık hemen soluna baktık ve koşulumuza uygun devam ediyoruz.
akabinde bu değerin D sütunu verisini E1 yazdırıyoruz ve devam ediyoruz.
Bu değeri aynı sütun içinde aramaya devam ediyoruz. 7 satırda olduğunu görüyoruz
hemen soluna baktığımızda B sütünun dolu olduğunu görüyoruz koşulumuza uygun
hemen bunun da D sütunu verisini F2 ye yazdırıyoruz.
Başkaca Ahmet ler olsaydı ve B sütunları da dolu olsaydı Ahmetlerin G1 H1 I1 diye
devam edecektik. Bu sütunda aynı veriden maksimum 5 tane var.
Şartımız hala bitmedi bu sütunda Ahmet leri bittikten sonra Ahmet i bu kez F sütununda aratıyoruz.
Şayet yok ise bir Döngünün bir sonraki satırına geçiyoruz. Ama örneğimizde var.
Baktığımızda 12 ve 16. satırlarda Ahmet ler var ve Bu satırların E sütunları dolu
dolayısı ile şartımızı sağlıyor. İlgili satırların da G sütunu verilerini
I5 J5 K5 L5 M5 gibi yazdırıyoruz. Kaç tane ise artık.
Bu şekilde Ahmet i yani döngünün ilk satırın yani C5 i kontrol etmiş oluyoruz..
Bundan sonra C6 C7 .... diye devam edecek.

Yeniden yazdığım bu bilgiler ışığında diğer arkadaşlarımızın değerli yardımlarını
bekliyorum. Saygılarımla