İkİ Tablo Arasindakİ Benzerlerİ 3 NcÜ Tabloya Aktarim

[abone0069]

Sn. Arkadaşlarım

Benim bir çalışma kitabında sheet1'de 3500 civarında listem var bunlar tc no adı soyadı görevi çalıştığı yer gibi bilgiler var yine sheet2'de o kadar ve aynı başlıklar altında kayıtlar var benim isteğm her iki sayfadaki tc numarasına göre aynı olanları karşılaştırsın aynı olanları sheet3'e yazsın. Bunun için kodmu yazılacak yoksa formül mü kullanılacak bir türlü yapamadım.Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Dosyanızın kısaltılmış ve gerçek veriler içermeyen bir örneğini eklermisiniz.

 

[abone0069]

örnek dosya

Sn. leventm

örnek dosya ektedir arz ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu denermisiniz.

Sub benzerlerilistele()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Set s3 = Sheets("sayfa3")
For a = 2 To s2.[a65536].End(3).Row
If WorksheetFunction.CountIf(s1.[a:a], s2.Cells(a, "a")) > 0 Then
c = c + 1
s3.Range("a" & c + 1 & ":e" & c + 1) = s1.Range("a" & a & ":e" & a).Value
End If
Next
End Sub

 

[abone0069]

Tşk.

Sn. leventm (Uzmanım)
Siz yaparsanızda olmazmı tamamdır. Sizin sayenizde excel'ci olacağız inşallah. Yazdığınız kodları inceledim. Sizin yazdığınız kodlara bakarak aynı şekilde Birde benzemeyenleri istedim. Yine beceremedim. Eğerki zahmet olmazsa birde benzemeyenler için kod yazarsanız çok sevinirim.Yazmaz isenizde canınız sağolsun . Tekrar teşekür ederim.

 

[Levent Menteşoğlu]

Rica ederim. Benzemeyenler için kod içindeki ">" işaretini "=" yapmanız yeterlidir.

 

[abone0069]

Sağolu

Sn. leventm

Bir atasözü var "sizin gibi olmak için 40 tekne ekmek"te yesek yine olamayacağımı zannediyorum. Bu kodları yazmak için benim ne yapmam gerekir acaba... çok sağolun.

 

[Levent Menteşoğlu]

Sn. leventm

Bir atasözü var "sizin gibi olmak için 40 tekne ekmek"te yesek yine olamayacağımı zannediyorum. Bu kodları yazmak için benim ne yapmam gerekir acaba... çok sağolun.

Rica ederim. 40 tekne ekmek yemenize gerek yok, yapmanız gereken bu işe epeyce vakit ayırarak biraz araştırma ve bol miktarda pratik yapmaktır. Pratik içinde en iyi yol program tasarlamaktır.

 

[abone0069]

Zaten sadece onu yapabiliyorum. Takıldığım yerde de sizden yardımlar alıyorum. Anlaşılan sizin kafanızı şişirmeye devam edeceğiz.... Tekrar sağolun

 

[Excel113]

Foruma dosya nasıl gönderilir bilemediğimden/bulamadığımdan, bir çözümü aşağıda şöyle verdim:

Sayfa 3 de, şu çalışmayı tersine çevirip, tablo oluşturup, "Karşılaştırmayı" yapabilirsin:

(Başlıklar) Solda başvuru adreleri görünen hücrelere formülleri yaz
A2 TCNO1 =DÜŞEYARA(Sayfa2!A2;Sayfa1!A2:A6;1;YANLI&#350
B2 TCNO2 =Sayfa2!A2
C2 TCNO-SON =EĞER(A2=B2;B2;"")
D2 ADI =EĞER(C2="";"";Sayfa2!B2)
E2 SOYADI =EĞER(C2="";"";Sayfa2!C2)
F2 GÖREVİ =EĞER(C2="";"";Sayfa2!D2)
G2 GÖREV YERİ =EĞER(C2="";"";Sayfa2!E2)


Başliklara göre tablo hazırla, yukarıda 1. satır formülleri verildi.
Diğer satırları, aşağıya doğru formülleri çekerek, oluştur.

 

[Excel113]

Başka bir uygulama:
Adımlar
1) Sayfa1 i, aynen Sayfa3 e kopyalayın.
2) Sayfa1 deki tabloya "TC_NO" adı verin.
3) Sayfa3 deki tablonun A2 den başlayan satırındaki hücrelere
aşağıdaki formülleri girin.
4) Sonrada, formülleri aşağı çekerek satırları çoğaltın.

A2 =DÜŞEYARA(Sayfa2!A2;Sayfa1!A2:A6;1;0)
B2 =DÜŞEYARA(A2;TC_NO;2;0)
C2 =DÜŞEYARA(A2;TC_NO;3;0)
D2 =DÜŞEYARA(A2;TC_NO;4;0)
E2 =DÜŞEYARA(A2;TC_NO;5;0)

 

[luganis]

Daha Yeniyim

Merhabalar leventm,
Şu an online olduğunuzu görüyorum ve Kodu nereye yazacağız diye sormak istiyorum

 

[Necdet]

Sayın luganis,

Daha yeniyim diyorsunuz ama hiç araştırmadan soru soruyorsunuz.

Lütfen önce araştırınız, forumun yapısını öğreniniz, forumdaki dersaneyi inceleyiniz.

 

[abone0069]

Tşk.

Ben ilgilerinden dolayı excel113'ede teşekür ediyorum.