hucre icindeki @ adetini bulmak

[kneehot]

arkadaslar merhaba;

elimde bır maıl listesi var fakat bazı satırlarda ıkı mail bırlesmıs onun ıcın satır ıcındekı @ ısaretını saydırmak ve bırden fazla @ isaretı olan bırlesmıs adreslerı bulmak ıstıyorum egersay ıle ugrastım ama beceremedım. yardımlar ıcın tesekkur ederım.

 

[Erdem Akdemir]

Verilerinizin a sütununda olduğunu varsayarsak

=YERİNEKOY(A1;"@";"";1)

 

[Mahir64]

Merhaba,

=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"@";""))

 

[kneehot]

Merhaba,

=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"@";""))

cok tesekkurler

 

[Mahir64]

İyi çalışmalar.

--

 

[Murat OSMA]

Makro ile çözüm istenirse bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim Rky
    Rky = [COLOR="Red"]Split[/COLOR](Range("[COLOR="Red"]A1[/COLOR]").Value, "[COLOR="red"]@[/COLOR]")
    MsgBox [COLOR="red"]UBound[/COLOR](Rky)
    Rky = vbNullString
End Sub[/FONT]

 

[bzace]

Farklı bir alternatif;

=TOPLA(EĞER(ESAYIYSA(-PARÇAAL(A1;SATIR($1:$1);1));--PARÇAAL(A1;SATIR($1:$1);1));
  UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"@";"")))
[COLOR="Blue"]Formül dizi formülüdür.CTRL + SHİFT + ENTER ile tamamlayınız.[/COLOR]