Tabloda bulunan hücrelerden @ karekterli olan verileri alma

[metehancan]

Bir taplom var. Bu tablodan sadece mail adresleri olan hücreleri alt alta satır halinde aynı tabloya yada farklı tabloya nasıl alabilirim. Örnek dosyam ektedir.

 

[Ömer]

Merhaba,

Sorunuzu destekleyen küçük bir örnek dosya eklermisiniz...

 

[metehancan]

Örnek dosyayı ekledim.

 

[Ömer]

Tablonun nasıl bir hala almasını istiyorsanız, en azından 2 örneği manuel olarak kendiniz yaparak dosyayı revize edermisiniz. Bu şekilde sorunuz anlaşılmıyor.

 

[metehancan]

Dosyayı tekrar düzenleyip gönderdim. İstediğim sayfa 2 de olduğu gibi.

Ama asıl istediğimi sayfa 3 de örnek olarak yazdığım gibi liste şekline getirilmesi. Sayfa 3 deki çok zor olduğu için Sayfa 2 deki olması yeterli şimdilik.

 

[Ömer]

Sayfa3 için hazırlanmıştır.

Module kopyalarak çalıştırınız.

Option Explicit
Sub BulAktar()
 
Dim c As Range, sat As Long, ilkadres As Variant, S1 As Worksheet
 
Set S1 = Sheets("Sayfa1")
 
Application.ScreenUpdating = False
Sheets("Sayfa3").Select
Range("A2:E" & Rows.Count).ClearContents
 
sat = 2
With S1.Range("A:A")
    Set c = .Find("Telefon:", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            Cells(sat, "A") = S1.Cells(c.Row - 1, "A")
            Cells(sat, "B") = S1.Cells(c.Row + 1, "A")
            Cells(sat, "C") = S1.Cells(c.Row + 1, "B")
            Cells(sat, "D") = S1.Cells(c.Row + 1, "C")
            Cells(sat, "E") = S1.Cells(c.Row + 3, "A")
            sat = sat + 1
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
Application.ScreenUpdating = True
 
End Sub

Dilerseniz Sayfa2 içinde ilave yapabilirim.

.

 

[metehancan]

Hocam hay Allah senden razı olsun. Allah ne muradın varsa versin. Nasıl yaptın sen bu işi diye sorcam ama kendi gözlerimle gördüm nasıl yaptığını. Demekki bu excelde imkansız diye bir şey yokmuş. Valla çocuklar gibi sevindim. Günlerce uğraşıp tek tek yapabileceğim işi bir çırpıda yabıverdin. Tekrardan çok teşekkür ediyorum size.

 

[Ömer]

Rica ederim. Allah hepimizden razı olsun.

Güle güle kullanın, iyi çalışmalar...