Koşullu Mükerrer kayıt bulma

[oornek1]

Merhaba arkadaşlar;

Sayfa2 deki T.C. kimlik numarası "C2" hücresinden başlıyor ve yaklaşık 10000 kayıt ve aynı sayfada "J2" hücresinde ise Tıbbı Müdahale alanı var buradaki kayıtlar Sayfa1 deki "G2" hücresinde bulunan T.C. kimlik numarasındaki aynı olanları "K" hücresine Sayfa2 deki "J2" de olan tıbbı müdahale deki müdahale yazsın nasıl yazdırabilirim.


diğer bir söylem ile Sayfa2 deki kimlik numarası ile sayfa birdeki kimlik numarası aynı ise sayfa2 deki tıbbı müdahale alanını sayfa1 deki tıbbı müdahale alanına yazılması gerekiyor


Altın üyeliğimin süresi dolmuş örnek dosya ekleyemiyorum,

 

[vardar07]

İmza bölümündeki gibi ekleyebilirsiniz.

 

[oornek1]

http://s6.dosya.tc/server8/ywb6cd/Orne.xlsx.html

 

[askm]

Dosya yukleme sitelerinden birine ekleme yaparsanız farazi değil kesin sonuç alırsınız. İşinize daha yararlı olur. Düşeyara ile de sonuç alabilirsiniz gibi geldi. Açıklamadan.

 

[oornek1]

hocam örnek dosyayı ekledim

 

[vardar07]

Buyurun.

Sub verial()
Dim s2 As Worksheet, aranan As Range, bul As Range
Set s2 = Sheets("Sayfa2")
With Sheets("Sayfa1")
sonsat = s2.Range("C" & Rows.Count).End(3).Row
For Each aranan In .Range("G2:G" & .Range("G" & Rows.Count).End(3).Row)
Set bul = s2.Range("C2:C" & sonsat).Find(aranan, , xlValues, xlWhole)
If Not bul Is Nothing Then
[COLOR="Red"]If .Cells(aranan.Row, "C") = s2.Cells(bul.Row, "D") Then[/COLOR]
.Cells(aranan.Row, "K") = s2.Cells(bul.Row, "J")
[COLOR="red"]End If[/COLOR]
End If
Next
End With
End Sub

 

[oornek1]

Teşekkür ederim

 

[oornek1]

Buyurun.

Sub verial()
Dim s2 As Worksheet, aranan As Range, bul As Range
Set s2 = Sheets("Sayfa2")
With Sheets("Sayfa1")
sonsat = s2.Range("C" & Rows.Count).End(3).Row
For Each aranan In .Range("G2:G" & .Range("G" & Rows.Count).End(3).Row)
Set bul = s2.Range("C2:C" & sonsat).Find(aranan, , xlValues, xlWhole)
If Not bul Is Nothing Then
.Cells(aranan.Row, "K") = s2.Cells(bul.Row, "J")
End If
Next
End With
End Sub

hocam bu arama koşuluna Sayfa2 deki D sutunu ile Sayfa1 deki C sutununuda ekleyebilirmiyiz.

 

[vardar07]

#6 nolu mesajdaki kırmızı satırları ekleyin.