Veri kontrolü ve düzenleme

[ers_sk]

Ekteki dosyada aynı kişinin birden fazla satırda adı ve soyadı vardır. TCKN su bulunan kişilerden aynı ad ve soyada sahip olanların TC kimlik no sutununa TCKN larının yazılmasını istiyorum. Yardım edebilecek var mı? Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub TCKN_DÜZENLE()
    Dim X As Long, TCKN As Double
    Dim BUL As Range, ADRES As String
    
    For X = 4 To Cells(Rows.Count, 1).End(3).Row
        If Cells(X, "D") <> "" Then
            TCKN = Cells(X, "D")
            Set BUL = Range("G:G").Find(Cells(X, "G"))
            If Not BUL Is Nothing Then
                ADRES = BUL.Address
                Do
                    If Cells(X, "H") = BUL.Offset(0, 1) Then
                        Cells(BUL.Row, "D") = TCKN
                    End If
                    Set BUL = Range("G:G").FindNext(BUL)
                Loop While Not BUL Is Nothing And BUL.Address <> ADRES
            End If
            Set BUL = Nothing
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ers_sk]

Sn. Korhan Ayhan yardımınız için teşekkür, kod işe yarıyor.