Yandaki sütunları kontrol ettirme.

[simetri.]

Merhabalar.

İyi akşamlar değerli arkadaşlar. Aşağıda izah etmeye çalıştım.

değerli yardımlarınızı bekliyorum.

C ve D deki Ad ve Soyad sütunlarını

Yandaki sütunlarda aratıp TC nolarını
B sütununda listeleyeceğiz.

Yan sütunlarda soyad bazen öncelikli
yazılmış bunu çapraz sorgu yapacağız sanırım.

Not: Kodun hızlı çalışması çok önemli.
mümkün mertebe en iyisini yapabilirseniz
çok iyi olur.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False
Range("B2:B65536").ClearContents
For i = 2 To [C65536].End(3).Row

If Cells(i, "C") = "" Then
End If
Set bul = Range("H:Z").Find(Cells(i, "C"), , xlValues, xlWhole)
If Not bul Is Nothing Then

sat = bul.Row
süt = bul.Column
'1
If Cells(i, "C") = Cells(sat, süt) And _
Cells(i, "D") = Cells(sat, süt - 1) Then
Cells(i, "B") = Cells(sat, süt - 2)
End If
'2
If Cells(i, "C") = Cells(sat, süt) And _
Cells(i, "D") = Cells(sat, süt + 1) Then
Cells(i, "B") = Cells(sat, süt - 1)
End If

Else
Cells(i, "B") = "Yok"
End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "

End Sub

. . .

 

[simetri.]

Ellerinize sağlık.

Teşekkür ederim.

Çok akılcı olmuş ayrıca.

 

[simetri.]

Tekrardan Merhabalar.

Veriler çoğaldığı zaman maalesef kod çalışmıyor

 

[Emir Hüseyin Çoban]

. . .

Daha çok verili örnek ekleyin. Üzerinde çalışalım.

. . .

 

[simetri.]

Hüseyin Bey.

Kontrol edeceği / arama yapacağı

sütun adreslerini kod içine direkt yazsak olur mu acaba?

 

[Emir Hüseyin Çoban]

. . .

Öyle zaten. H:Z aralığında arama yapıyor.

Set bul = Range([COLOR="Red"][B]"H:Z"[/B][/COLOR]).Find(Cells(i, "C"), , xlValues, xlWhole)

. . .