metin içindeki bilgileri hücrelere bölme

[ermanusta]

Elimde çalıştığımız firmaların bilgileri düzenli düzensiz kayıt altına alınmış.
bu durumu düzenli ve kullanılır hale getirmek istiyorum.

ekteki dosyada örnek ile gösterdiğim gibi,
A Stünundaki firma bilgilerini
B - web adresi
c - mail adresi
d - telefon numarası
e - fax numarası
f - mail adresinde kullanılacak kelime

stünlarına bölmek istiyorum, konu ile ilgili olarak binlerce firma mevcut bunu bir macro ile düzenlemek ise saniyeler alacaktır. macroyu yapmak ise gerçek bilgiye sahip olmayı gerektiriyor. bunu yapabilecek arkadaşlardan yardım istiyorum.

şimdiden teşekkür ederim iyi çalışmalar dilerim.

 

[asi_kral]

Merhaba
Dosyaya bir kaçtane daha firma ekler misiniz_?
Ayrıca örnekleri yazın ki sonuçları görelim ne olacağını makroyu yazıp gönderelim.

 

[ermanusta]

örnek olarak elimdeki sadece mail adresleri çekilmiş firmalar var

 

[ExcelF1]

Ayırt edici bir nokta göremedim. Kod yazmak çok zor. Yalnız telefon ve fax numaraları da rakam olmasından dolayı yazdırılabilir.

 

[ermanusta]

bu şekilde bir kod ile mail adresleri ayırt edilebiliyor. yanlız geri kalan kısmını başaramadım.

Sub mailadresial()
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[a-zA-Z0-9]+@[a-zA-Z0-9]+\.[a-zA-Z0-9]+"
deg.Global = True
For a = 1 To [a65536].End(3).Row
Set veri = deg.Execute(Cells(a, "a"))
If veri.Count > 0 Then Cells(a, "b") = veri.Item(0)
Next
End Sub

 

[ermanusta]

konuya cevap verecek arkadaşlar yokmu ?

 

[ertmer]

dosyayı inceleyiniz umarım işşinize yarar