Düşeyara hk.

[Vhailor]

Herkese hayırlı ramazanlar.

Arkadaşlar elimizde 2 adet liste var. Listelerde yaklaşık 1000e yakın isim var. Her iki listede de adı geçen kişilerin, 3. bir listeye aktarımını nasıl formüle edebiliriz.

İyi çalışmalar.

 

[Mdemir63]

Selamlar
Sorularınızı örnek dosya ekleyerek sorarsanız daha hızlı yanıt alırsınız.

Kolay gelsin

 

[Vhailor]

Dosya ektedir. Yardımlarınız için teşekkür ederim.

 

[İhsan Tank]

Dosya ektedir. Yardımlarınız için teşekkür ederim.

merhaba
boş bir module kopyalarak dener misiniz

Option Explicit
Sub birleştir_sil()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Verileri Düzenliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
kaplan = 1
Sheets("Sayfa3").Range("A:A").ClearContents
For ts = 1 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa3").Cells(kaplan, "A") = Sheets("Sayfa1").Cells(ts, "A")
kaplan = kaplan + 1
Next
For ts = 1 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row
Sheets("Sayfa3").Cells(kaplan, "A") = Sheets("Sayfa2").Cells(ts, "A")
kaplan = kaplan + 1
Next
For ts = Sheets("Sayfa3").Cells(65536, "A").End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Sheets("Sayfa3").Range("A1:A" & ts), _
Sheets("Sayfa3").Cells(ts, "A")) > 1 Then
Sheets("Sayfa3").Cells(ts, "A").Delete
End If
Next
MsgBox "Verileri Düzenledim", vbInformation, "Bitiş"
End Sub

 

[Vhailor]

işyerinde makro kullanamıyoruz, acaba düşeyara'lı bir formülle bu işi halledebilir miyiz?