2 Sayfada 2 sutun karşılaştırma

[Subjugate]

Merhaba

1 sorum olacak sayfa1 ve sayfa2 adında iki listem var birinde 6000 küsür sayfa 2 de 35000 civarı tc kimlik no var safya1 A sutunun 3. hücresinden tc kimlik noları başlıyor sayfa 2 de ise C sutunun 3. hücresinden bu iki listeyi karşılaştırıp aynı olanları sayfa 3 te herhangi bir sutuna yazabilirmiyiz

Şimdiden teşekkürler

 

[Mustafa MUTLU]

Makro olurmu ?..

 

[Subjugate]

evet neden olmasın

 

[Mustafa MUTLU]

1. Sayfada ki T.C. leri
2. Sayfada var mı diye bakacağız
var olanlar 3. sayfaya yazılacak değil mi ?...

Peki 1. sayfada olmayan anacak 2. sayfada olan bir T.C. no ne olacak..

 

[Mustafa MUTLU]

Aşağıdaki kodu bir düğmeye ata

Sub Kontrolet()
Sheets("Sayfa3").Range("A2:A65536").ClearContents
MM = 2
For MSTF = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
For MSTF1 = 3 To Sheets("Sayfa2").Cells(65536, "C").End(xlUp).Row
If Sheets("Sayfa2").Cells(MSTF1, "C") = Sheets("Sayfa1").Cells(MSTF, "A") Then
Sheets("Sayfa3").Cells(MM, "A") = Sheets("Sayfa1").Cells(MSTF1, "A")
MM = MM + 1
End If

Next
Next

MsgBox "İşleminiz Tamamlanmıştır !...", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"

End Sub

Dene bakalım istediğin gibi olacak mı ?..

 

[Subjugate]

Mustafa bey foruma şimdi girme fırsatım oldu 1. sayfada olmayan ikinci sayfada olanlar aynen kalacak 1.sayfada olanları 2 sayfadakiler ile karşılaştırıcağız olanlar 3 e yazılacak teşekkürler

 

[Subjugate]

Bu arada formülü denedim uzun bir işlemden sonra 3 sayfaya bir şey eklenmiyor

 

[dEdE]

Merhaba,
Sorubuza burada yanıt verdim.
Lütfen aynı konuda iki başlık açmayınız.