Karşılaştırma ve Uygun Sutunu almak

[Mikdad]

S.a Dostlarım Hayırlı Akşamlar,

Şimdi benim bir excell dosyam var
sayfa1 de ve sayfa2 de değişik iki farklı arşiv var

alanlar şöyle
dosyano tc adı soyadı ikamet

her iki sayfada da aynı alanlar ve hemen hemen aynı bilgiler var.

şimdi benim yapmak istediğim şu

sayfa1 de ikamet adresleri hatalı vatandaşlarımızın kayıtları tutuluyor.
sayfa 2 de ise ikamet adresleri doğru vatandaşlarımızın bilgileri tutuluyor.

Şimdi sayfa 2 deki tc kimlikno yu sayfa1 deki tc kimlik no ile karşılaştıracak ve eğer sayfa
1 deki ile 2 deki tc kimlik noları aynı ise sayfa 2 deki ikamet satırındaki bilgiyi sayfa 1 deki ikamet satırana kopyalacak

yardımlarınız için şimdiden allah razı olsun

 

[1Al2Ver]

S.a Dostlarım Hayırlı Akşamlar,

Şimdi benim bir excell dosyam var
sayfa1 de ve sayfa2 de değişik iki farklı arşiv var

alanlar şöyle
dosyano tc adı soyadı ikamet

her iki sayfada da aynı alanlar ve hemen hemen aynı bilgiler var.

şimdi benim yapmak istediğim şu

sayfa1 de ikamet adresleri hatalı vatandaşlarımızın kayıtları tutuluyor.
sayfa 2 de ise ikamet adresleri doğru vatandaşlarımızın bilgileri tutuluyor.

Şimdi sayfa 2 deki tc kimlikno yu sayfa1 deki tc kimlik no ile karşılaştıracak ve eğer sayfa
1 deki ile 2 deki tc kimlik noları aynı ise sayfa 2 deki ikamet satırındaki bilgiyi sayfa 1 deki ikamet satırana kopyalacak

yardımlarınız için şimdiden allah razı olsun

Sayın Mikdad merhaba,

Örnek dosya eklemeniz doğru ve çabuk cevap almanızı çabuklaştıracaktır,

Teşekkür ederim.

 

[Mikdad]

10-15 kayıtlık bir örnek gönderdim

tekrar teşekkür ederim
allaha emanet oln

 

[1Al2Ver]

Merhaba,

Sayfa1 F2 sütununa, =DÜŞEYARA(B2;Sayfa2!$B$2:$E$12;4;0) yazıp aşağıya doğru çekiniz, işinizi görür mü ?

 

[mami68]

10-15 kayıtlık bir örnek gönderdim

tekrar teşekkür ederim
allaha emanet oln

Denemek için sayfa1- H2-de bu formülü yapıştırınız ve aşağı doğru sürükleyiniz.

=EĞER(Sayfa2!B2=Sayfa1!B2;Sayfa2!B2;YANLIŞ)

Eğer istediğiniz bu değil ise tekrar geri dönüş yapınız.

İyi çalışmalar

 

[Mikdad]

dostlarım allah razı olsun cevap vermişsiniz.

yanlız şöyle bir sorunum var.

benim bahsettiğim excell sayfa1 de 7900 sayfa2 de ise 7860 tane kayıt var.
ve satırlar aynı değil yani

sayfa 1 in birinci satırında ahmet acar var iken
sayfa 2 nin birinci satırında mehmet kılıç var
yani verilerin tümü karışık sıralı değiller.

sayfa2 deki birinci satırın tc sini alıp sayfa 1 deki tc lerin tümüne bakacak ve aynısını bulduğu zaman sayfa2 deki ikamet alanını sayfa birdeki ikamet alanına yapıştıracak

arkadaşlar verdiğiniz örnekleri denedim sıralı olduğu zaman çalışıyorlar aynı sırayı takip edince sorun yok ama sıra değişince aynı hatayı veriyor
sizden ricam benim size gönderdiğim excell sayfası üzerinden formullendirip gönderirseniz deneme şansı daha fazla olur tekrar teşekkür ederim.

allaha emanet olun

 

[Recep İpek]

Sorunuzun cevabı en uygun olarak makro ile çözülebilir.

Aşağıdaki makro kodlarını deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 2 To s1.[b65536].End(3).Row
    For j = 2 To s2.[b65536].End(3).Row
        If s1.Cells(i, "b").Value * 1 = s2.Cells(j, "b").Value * 1 Then
            s1.Cells(i, "e").Value = s2.Cells(j, "e").Value
        End If
    Next j
Next i
MsgBox "Adres Bilgileri Güncellendi.", vbInformation, "Bilgi"
s1.Range("a2").Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[Mikdad]

Allah Razı Olsun Dostlarım,
İşimi Gördüm Çok Çok Çok Teşekkür Ederim.