merhaba,
ekte örnek olarak bir resim ve dosya yerleştirdim,
yapmak istediğim aynı hücre içerisindeki karmaşık şekilde girilmiş
email adresi
web adresi
tel no
fax no
adres
gibi bilgileri sütunlar halinde sıralamak
emailleri sıralamak ile ilgili bir makro var
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
ancak diğerlerinide yapmak istiyorum bu şekilde yüzlerce firma bilgisi mevcut
bana yardım edebilir misiniz?
ekte örnek olarak bir resim ve dosya yerleştirdim,
yapmak istediğim aynı hücre içerisindeki karmaşık şekilde girilmiş
email adresi
web adresi
tel no
fax no
adres
gibi bilgileri sütunlar halinde sıralamak
emailleri sıralamak ile ilgili bir makro var
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
ancak diğerlerinide yapmak istiyorum bu şekilde yüzlerce firma bilgisi mevcut
bana yardım edebilir misiniz?
