Karşılaştırma yaparak aynı değerleri yazdırma

[alikaplan]

yardımlarınızı bekliyorum arkadaşlar

 

[leumruk]

Sub Deneme()
For x = 3 To [e65536].End(3).Row
    For y = 2 To [5.SINIFLARIMIZ!c65536].End(3).Row
    If Cells(x, "e") = Sheets("5.SINIFLARIMIZ").Cells(y, "c") And Cells(x, "f") = Sheets("5.SINIFLARIMIZ").Cells(y, "d") Then
    Cells(x, "e").Offset(0, -4) = Sheets("5.SINIFLARIMIZ").Cells(y, "c").Offset(0, -1)
    Cells(x, "e").Offset(0, -3) = Sheets("5.SINIFLARIMIZ").Cells(y, "c").Offset(0, -2)
    End If
    Next y
Next x
End Sub

Kodu bir butona atayıp deneyiniz.
Uyarı: Verdiğiniz dosyada benzer isimler olmadığı için çalışmıyor gibi görünebilir. Bir kaç tane ad soyadı ilk sayfaya kopyalayıp deneyin.

 

[dEdE]

Merhaba,
Bir alternatif de benden olsun.
Örnek sayfanızda iki benzer isim buldu.
Birincisi Ahmet İLERİ. 5.sınıflarımız sayfasında bu kişinin adının sonunda boşluk var. Bu nedenle eşitlik şeklindeki aramalarda bulunamaz.
İkinci kişi, Adnan TOKMAK. 5.sınıflarımız sayfasında bu kişinin adının önüne Abdullah eklenmiş. Bu da eşitlik şeklindeki aramalarda bulunamaz.

Sorun:Adnan Toprak arandığında, Adnan Abdullah TOKMAK bulunacak mı? Bulunmayacak mı? Yanlışlıkla önüne boşluk konulnuş isimler bulunacak mı? Bulunmayacak mı?

Soru:Bulunacak ise bu kodlar işinizi görür. Bulunmayacak ise ya kodda küçük bir değişiklik yapmak gerkir ya da Sayın leumruk'un kodunu kullanmanız gerekir. Ama bu durumda da Ahmet İLERİ nin adının sonundaki boşluk nedeniyle bu kişi de bulunamaz. Sayın leumruk'un kodları bire bir aradığı için bu iki kişiyi bulamamıştır.

Sonuç: Karar size kalmış ya hiç yazım hatası yapmayacaksınız ve bire bir eşleşenleri bulacağız. Ya da bu kodlarla idare edeceksiniz.

Hoşçakalın.

 

[alikaplan]

Yapamadım açıklama yapabilir misiniz?

 

[leumruk]

Dosya ekte. Ancak, syn. dEdE'nin belirttiği gibi ad-soyad ile kontrol çok güvenli olmayabilir. Bir harf hatası verinin bulunmamasına sebep olur. Bunun yerine 2. sayfaya öğrenci numaralarını ekleyip, karşılaştırma işlemini öğrenci numarasına göre yaptırmanız daha güvenli olur.