Yanlış verileri bulup silmek istiyorum.

[mkozan]

Merhaba,
çalışmayan e posta adreslerini toplu nasıl silebilirim?

A sutununda tüm e posta adresleri var.
C sutununda da gönderdiğim zaman ulaşmayan eposta adresleri var.


şöyle birşey yapılabilir mi?
Eğer A sutunundaki veri C sutununda varsa E sutununa kopyalama
Yada tam tersi su sekilde işimi görür.
Eğer A sutunundaki veri C sutununda yoksa E sutununa kopyala.

e posta adreslerini teker teker elle silmek istemiyorum. Konuyla ilgili yardım ve destekleriniz için şimdiden teşekkür ederim.

Saygılarımla,

 

[turist]

Foruma hoşgeldiniz.
Anlattıklarınızı örnek bir excel dosyası ile foruma eklerseniz daha kolay cevap alabilirsiniz.

 

[mkozan]

Merhabalar,
örnek dosyayı ekledim, umut ediyorum ki cevap alacağım.

Herkese neşeli günler dilerim, saygılar.

 

[YUSUF44]

10000 satır için aşağıdaki formülü kullanabilirsiniz:

=EĞER(YADA(A2="";EĞERSAY($C$1:$C$10000;A2)>0);"";A2)

 

[YUSUF44]

Aşağıdaki kodları bir modüle yapıştırıp çalıştırırsanız C1:c1000 aralığında geçmeyen A sütunundaki mailleri E sütununa arada boş satır bırakmadan aktarır:

Sub mail()
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, 1).End(3).Row
If WorksheetFunction.CountIf([c1:c1000], Cells(i, 1)) = 0 Then
a = Cells(Rows.Count, 5).End(3).Row + 1
Cells(i, 1).Copy
Cells(a, 5).Select
ActiveSheet.Paste
End If
Next
Application.CutCopyMode = False
End Sub

 

[mkozan]

Yusuf Bey,

öncelikle yardımlarınız için teşekkür ederim. Ancak ben bu modulu çalıştıramadım.

Formul üzerinden yapıyorum.

eğer ki 1000 adet'den fazla olursa formuldeki değeri arttırmam yeterli midir?

 

[YUSUF44]

ilk mesajımda verdiğim formül C sütunundaki 10.000 satır için doğru çalışır. Eğer C sütununda hatalı olduğu tespit edilen 10.000'den fazla mail varsa belirttiğiniz gibi size yetecek kadar arttırmalısınız.

Makro ise C sütunundaki 1000 mail için doğru çalışır. Yine C sütununda 1000'den fazla mail adresiniz varsa kodu düzeltmeniz gerekecektir.

Modülün nasıl çalıştığını görmeniz için örnek dosyanızı ekliyorum.

 

[mkozan]

Yusuf Bey,
Çok teşekkür ederim. Allah sizden razı olsun.

Bol neşeli günler ve esenlikler dilerim.