İki sütunun kesişimi

[bihruze]

Merhabalar ;
şöyle bir sorum var. Bir tablomda ad_soyad ve Tckimlik numaraları olmak üzere iki sütun var. Başka bir sayfada da sadece ad_soyad var. Bu 3 veri sütununu aynı sayfada birleştirdim.
Amacım her iki ismin kesişimini alıp bu kesişime denk gelen tckimlikle beraber ad_soyad ve tckimlik yazmak.
Umarım izah edebilmişimdir. Makroda çok çok yeniyim, araştırdım, uğraştım fakat olmadı.
Yardımcı olabilirseniz çok mutlu olurum.
Teşekkür ederim.

 

[asi_kral]

Merhabalar ;
şöyle bir sorum var. Bir tablomda ad_soyad ve Tckimlik numaraları olmak üzere iki sütun var. Başka bir sayfada da sadece ad_soyad var. Bu 3 veri sütununu aynı sayfada birleştirdim.
Amacım her iki ismin kesişimini alıp bu kesişime denk gelen tckimlikle beraber ad_soyad ve tckimlik yazmak.
Umarım izah edebilmişimdir. Makroda çok çok yeniyim, araştırdım, uğraştım fakat olmadı.
Yardımcı olabilirseniz çok mutlu olurum.
Teşekkür ederim.

Merhaba
Bu işlemi formül ile yapabilirsiniz. Dilerseniz Düşeyara - İndis&Kaçıncı şeklinde arama yaparsanız çok sayıda örnek bulabilirsiniz.
Makro ile yapmak istiyorsanız örnek dosya eklerseniz yardımcı olabilirim.

 

[bihruze]

Merhaba
Bu işlemi formül ile yapabilirsiniz. Dilerseniz Düşeyara - İndis&Kaçıncı şeklinde arama yaparsanız çok sayıda örnek bulabilirsiniz.
Makro ile yapmak istiyorsanız örnek dosya eklerseniz yardımcı olabilirim.

İlginize çok teşekkür ederim. Örnek dosyayı ekte ilettim. Ekli dosyayı görüntüle Tc ad soyad.xlsx

 

[Merhum İdris SERDAR]

.

http://www.excel.web.tr/f122/duseyara-vlookup-soldan-t23179.html

Buradaki örneği inceleyin.

.

 

[bihruze]

.

http://www.excel.web.tr/f122/duseyara-vlookup-soldan-t23179.html

Buradaki örneği inceleyin.

.

Teşekkür ederim fakat bu örneği anlayamadım pek :???: Makro ile nasıl yapabilirim :hey:

 

[asi_kral]

İlginize çok teşekkür ederim. Örnek dosyayı ekte ilettim. Ekli dosyayı görüntüle 128080

Merrhaba
Formül Olarak E4 hücresine

=EĞER(EHATALIYSA(İNDİS($A:$A;KAÇINCI($D4;$B:$B;0);0));"";İNDİS($A:$A;KAÇINCI(
$D4;$B:$B;0);0))

Bu formülü yazın ve aşağıya doğru çoğaltın.
Dosyanız Ekte.
Makro ile
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub Karşılık_Bıl_1967()
'Konu       :   İsmin Tc'sini Bul
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
Range("E:E").ClearContents
For asi = 4 To Cells(Rows.Count, "D").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B:B"), Cells(asi, "D")) > 0 Then
Cells(asi, "E") = WorksheetFunction.Index(Range("A:A"), WorksheetFunction. _
Match(Cells(asi, "D"), Range("B:B"), 0), 1)
End If: Next
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[Merhum İdris SERDAR]

Teşekkür ederim fakat bu örneği anlayamadım pek :???: Makro ile nasıl yapabilirim :hey:

.

Anlatımlı konuyu anlamadıktan sonra makroyu nasıl anlayacaksınız, onu merak ediyorum.

E4 hücresine;

=IFERROR(INDEX($A$4:$B$39;MATCH(D5;$B$4:$B$39;0);1);"")

=EĞERHATA(İNDİS($A$4:$B$39;KAÇINCI(D5;$B$4:$B$39;0);1);"")

yazıp, aşağıya doğru kopyalayın.

.

 

[bihruze]

.

Anlatımlı konuyu anlamadıktan sonra makroyu nasıl anlayacaksınız, onu merak ediyorum.

E4 hücresine;

=IFERROR(INDEX($A$4:$B$39;MATCH(D5;$B$4:$B$39;0);1);"")

=EĞERHATA(İNDİS($A$4:$B$39;KAÇINCI(D5;$B$4:$B$39;0);1);"")

yazıp, aşağıya doğru kopyalayın.

.

Duyguları çok iyi incitiyorsunuz gerçekten. Yeniyim bu konuda demiştim :frown:
Yardımlarınız için teşekkür ederim, sabırla inceleyeceğim ve yapacağım.
İyi günler.

 

[Murat OSMA]

Afedersiniz ama bence bu kadar kırılgan olmayın...

 

[Merhum İdris SERDAR]

Duyguları çok iyi incitiyorsunuz gerçekten. Yeniyim bu konuda demiştim :frown:
Yardımlarınız için teşekkür ederim, sabırla inceleyeceğim ve yapacağım.
İyi günler.

.

Nasıl isterseniz, öyle algılayın.

Ben de bizzat kendinizin öğrenerek yapmasını arzu ederim.

Onun için Bu Forumda pek çok örnek çalışmalar ve açıklamalar ekliyorum.



.