emailden öncesini silmek

[turkanet]

merhaba

Alhema Cargo and Logistics - Douala, Cameroon, Cargo Agents/Freight Forwarders , +237 75.82.11.54, www.xxxxxxxx.com, xxxxxxxx@gmail.com

a1 sütununda yukarıdaki şekilde aynı hücrede tek satırda ifadeler var. emailden öncesini (xxxxxxxx@gmail.com, vb şekilde) nasıl bir makroyla sildirebilirim?

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Mail_Ayir()
    Dim Reg As Object
    Dim Evn As Range
    Application.ScreenUpdating = False
    Range("B2:B7").ClearContents
    Set Reg = CreateObject("VBScript.RegExp")
    Reg.Global = True
    Reg.Pattern = "[a-z-0-9]*(@\D*)"
    For Each Evn In Range("A2:A7")
        Set say = Reg.Execute(Evn.Value)
        If say.Count > 0 Then
           Range("B65536").End(3)(2, 1) = Reg.Execute(Evn.Value).Item(0)
        End If
    Next Evn
    Set Evn = Nothing: Set Reg = Nothing
End Sub

 

[turkanet]

teşekkür ederim

 

[Murat OSMA]

Rica ederim, iyi günler...

 

[turkanet]

Merhaba Murat Bey,
İlgili makro, A sütunundaki veriyi e-posta'dan ayırıp B sütununda B1 hücresi yerine B2 hücresinden başlayıp yapıştırıyor. Yani bir satır aşağı kayıyor veri. Makroda nasıl bir değişiklik yapılabilir? Teşekkür ederim şimdiden.