Uzun Metnin içinden kopyalamak

[Mikdad]

Selamun Aleykum
Elimde eski veritabanımın Yedeği var.
sql i excelden açtım.üyelerime ait email adreslerine ihtiyacım var. a1 hucresinde örneğin

a1s4d5d1 'aaa@hotmail.com'kjhkjasd5a4dsasdnsda şeklinde satır var benim yapmak istediğim bir formul yazarak iki tane ' ' tırnak arasındaki metni başka bir hücreye kopyalamak. bu konuda yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.
Veriniz A1'de ise;

=PARÇAAL([COLOR="Red"]A1[/COLOR];(BUL("'";[COLOR="Red"]A1[/COLOR];1))+1;(BUL("'";[COLOR="Red"]A1[/COLOR];BUL("'";[COLOR="Red"]A1[/COLOR];1)+1))-(BUL("'";[COLOR="Red"]A1[/COLOR];1))-1)

 

[bzace]

Merhabalar,
Alternatif;

=PARÇAAL(A1;ARA(;-1/(PARÇAAL(PARÇAAL(A1;1;
  MBUL("@";A1));SATIR(A1:A38);1)="'");
    SATIR(A1:A38))+1;MBUL("'";A1&" ";
      MBUL("@";A1))-
    ARA(;-1/(PARÇAAL(PARÇAAL(A1;1;
  MBUL("@";A1));SATIR(A1:A38);1)="'");
SATIR(A1:A38))-1)

Hay marja!

 

[tahsinanarat]

Aşağıdaki kodu kullanabilirsiniz.

Sub ayikla()
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="'", Replacement:=" ' ", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    For x = 1 To [a65536].End(3).Row
    d = Split(Cells(x, 1))
        For Each elem In d
            If InStr(elem, "@") Then
                a = a + 1
                Sheets("sayfa2").Cells(a, 1) = Trim(Replace(Replace(Replace(elem, ",", ""), "e-mail:", ""), Chr(160), ""))
            End If
        Next elem
    Next x
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

        Sheets("sayfa2").Select
End Sub

 

[Mikdad]

Allah Razı Olsun Değerli Hocalarım. Hepinizin Kodunu Teker Teker Denedim Hepsi de çalıştı. tekrar Teşekkür Ederim.