İki sütunu karşılaştır. Aynı olanları başka sütunda listele.

[Bora K]

Merhabalar
İyi pazarlar.

4. satırdan itibaren
C ve D sütunu karşılaştırılacak
Her iki sütunda da olan isimler
G sütununda listelenecek.

B sütunundaki Sınıf Nolarıda isimlerle
Taşınacak ve F sütununa yazılacak.

Bu şekilde bir kod istemekteyim. Buna benzer kod buldum
lakin kendim düzeltme yapamadım.
Yardımlarınızı bekliyorum. İlgilenecek değerli uzman arkadaşlara
şimdiden teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Süz()
Range("F4:G1000") = ""
sonsat = 4
son = Cells(Rows.Count, "C").End(3).Row
For i = 4 To son
adet = WorksheetFunction.CountIf(Range("G4:G1000"), Cells(i, 3))
If Cells(i, 3) = "" Or adet > 0 Then GoTo 10
Cells(sonsat, 7) = Cells(i, 3)
Cells(sonsat, 6) = Cells(i, 2)
sonsat = sonsat + 1
10
Next


son = Cells(Rows.Count, "D").End(3).Row
For i = 4 To son
sonsat = Cells(Rows.Count, "G").End(3).Row + 1
adet = WorksheetFunction.CountIf(Range("G4:G1000"), Cells(i, 4))
If Cells(i, 4) = "" Or adet > 0 Then GoTo 20
Cells(sonsat, 7) = Cells(i, 4)
Cells(sonsat, 6) = Cells(i, 2)

20
Next


End Sub

 

[Bora K]

Merhaba Sayın Okumuş
İlginiz için teşekkür ederim öncelikle.

Kod C ve D sütunundaki isimlerin hepsini listeliyor.
Oysaki sadece her iki sütunda da (C ve D) olan
isimleri aktarması gerekli.
Tekrar bakabilirseniz sevinirim.

 

[Muhammet Okumuş]

O zaman bu kodu deneyiniz.

Sub Süz()
Application.ScreenUpdating = False
Range("G4:H1000") = ""
sonsat = 4
son = Cells(Rows.Count, "C").End(3).Row
For i = 4 To son
tekrar = WorksheetFunction.CountIf(Range("G4:G1000"), Cells(i, 3))
adet = WorksheetFunction.CountIf(Range("C41000"), Cells(i, 3))
If Cells(i, 3) = "" Or adet < 2 Or tekrar = 1 Then GoTo 10
Cells(sonsat, 7) = Cells(i, 3)
Cells(sonsat, 6) = Cells(i, 2)
sonsat = sonsat + 1
10
Next


son = Cells(Rows.Count, "D").End(3).Row
For i = 4 To son
sonsat = Cells(Rows.Count, "C").End(3).Row + 1
tekrar = WorksheetFunction.CountIf(Range("G4:G1000"), Cells(i, 4))
adet = WorksheetFunction.CountIf(Range("C41000"), Cells(i, 4))
If Cells(i, 4) = "" Or adet < 2 Or tekrar = 1 Then GoTo 20
Cells(sonsat, 7) = Cells(i, 4)
Cells(sonsat, 6) = Cells(i, 2)

20
Next



End Sub

 

[Bora K]

Evet şimdi kusursuz.
Ellerinize sağlık.
Herşey gönlünüzce olsun inşallah.

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.