Çok Yönlü Düşeyara

[husocan005]

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

Çok uğraştık ama başaramadık. Yinede anemis hocama teşekkür ediyorum. Yapmak istediğimiz a ve b hucrelerindeki bilgilerin eşleştirilip c hücresindeki verinin hedefe kopyalanması. Örnek ektedir.






http://s6.dosya.tc/server9/8qhfqh/deneme1.xlsx.html

 

[Ziynettin]

Merhaba,

Dışarıdan gelen sayfasındaki 2. ve 6. satırdaki doğum tarihi ve adı soyadı aynı, Tc kimlik farklı.

Doğum tarihi ve adı soyadı aynı ise Tc kimlikleri farklı olanlar var mı?

 

[husocan005]

Ziynettin hocam yok o örneği yanlış vermişim farklı olanlar yok belki çıkar ama 1000 bir ihtimal o da önemli diil

 

[Ziynettin]

Kodu deneyiniz.

Option Explicit
Sub Tc_Kimlik_Yaz()
Dim a(), b(), v(), d As Object, Krt
Dim S1 As Worksheet, S2 As Worksheet
Dim i As Long, Say As Long
Set S1 = Sheets("MEVCUT"): Set S2 = Sheets("DIŞARIDAN GELEN")
Set d = CreateObject("scripting.dictionary")
a = S2.Range("C2:E" & S2.Range("C" & Rows.Count).End(3).Row)
For i = 1 To UBound(a)
    Krt = a(i, 1) & a(i, 2): d(Krt) = a(i, 3)
Next i
b = S1.Range("C2:D" & S1.Range("C" & Rows.Count).End(3).Row)
ReDim v(1 To UBound(b), 1 To 1)
For i = 1 To UBound(b)
    Say = Say + 1: Krt = b(i, 1) & b(i, 2): v(Say, 1) = d(Krt)
Next i

[COLOR="Red"]On Error Resume Next[/COLOR]

Application.ScreenUpdating = False
S1.Range("E2:E" & Rows.Count).ClearContents
S1.[E2].Resize(Say) = v
Application.ScreenUpdating = True
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[husocan005]

Hocam birleştirilmiş bir hücrenin parçası değiştirilemez diyo

 

[Ziynettin]

Açıklama yaptığınız satırda (MEVCUT) sayfanızda 9. satır birleştirilmiş hücreleri çözün. Ya da kodu yeniden deneyin. Kırmızı yazılı satır eklendi.

 

[husocan005]

hocam ellerine sağlık Çok güzel olmuş teşekkür ederim