Tablo Karşılaştırma

[giritli]

Merhabalar,

Aşağıda ki resimde görüldüğü gibi bir tablom var.

Ad soyad (A2; B2 - E2; F2) karşılaştırması yapıp, e-mail adresi olmayan kişileri yine Ad soyad olarak I,J sütununa yerleştirilmesini istiyorum.

Yardımlarınızı acilen bekliyorum.

Şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False
Ason = [A65536].End(3).Row
Eson = [E65536].End(3).Row

sat = 2

For i = 2 To Ason
If Cells(i, "C") Like "*@*" Then
Else
Cells(sat, "I") = Cells(i, "A")
Cells(sat, "j") = Cells(i, "B")
sat = sat + 1
End If

If Cells(i, "G") Like "*@*" Then
Else
Cells(sat, "I") = Cells(i, "E")
Cells(sat, "j") = Cells(i, "F")
sat = sat + 1
End If

Next i
i = Empty

Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. .

 

[giritli]

Öncelikle ilginiz için tşk ederim.

Kodu aynen uyguladım fakat doğru listeyi vermedi.

düşeyara formulü ile isim ve soy isimleri birleştirerek hallettim sanırım.

 

[Necdet]

Öncelikle ilginiz için tşk ederim.

Kodu aynen uyguladım fakat doğru listeyi vermedi.

düşeyara formulü ile isim ve soy isimleri birleştirerek hallettim sanırım.

Ortada dosya olmayınca verilen çözümler ne kadar doğru olabilir ki?

 

[Emir Hüseyin Çoban]

. . .

1 nolu mesajınızdaki sorunuzu Düşeyara formülü ile yapamazsınız.
Sorunuzda belirtmediğiniz eksik birşeyler olabilir.

. . .

 

[giritli]

örnek dosyayı gönderdim.

sorum aynı şekilde. Ad soyad karşılaştırması yapıp, e-posta adresi olmayanları yine ad ve soyad olarak listeleyecek.

http://ul.to/gsy1u2iq

 

[Necdet]

Merhaba,

Dosyayı neden buraya eklemiyorsunuz?