Toplam 2 sonuçtan 1 ile 2 arasındakiler gösteriliyor.

Konu: hücre içerisindeki mail adresini bulmak

  1. #1
    Yeni Üye
    Üyelik tarihi
    Jan 2017
    Mesajlar
    1

    hücre içerisindeki mail adresini bulmak

    a1 hücresinde uzun bir metin var... bu metin içerisinde mail adresi de var. a2 hücresine sadece mail adresini nasıl yazdırabilirim...

  2. #2
    Yeni Üye
    Üyelik tarihi
    Dec 2017
    Mesajlar
    28
    Büyük ihtimalle mail adresi hücre içerisindeki diğer metin ve rakamlardan ayrılarak yazılmıştır. Eğer aksi bir durumsa yapacak bir şey yok.
    Örneğin
    HTML-Kodu:
    Ali eve gitti. Bilgisayarını açtı ve ahmetinmaili@mail.com.tr adresine mail attı
    Metinlerinizin bu şekilde olduğunu varsayarak çözüm üretiyorum.
    Aşağıdaki kodu sayfanızın VBA penceresinde Module ekleyerek içine yapıştırın. Sadece bu dosyanızda çalışacak bir fonksiyondur
    Kod:
    Function MailAdresiBul(AranacakMetin)
    Dim x As Integer
    Dim ilk As Integer
    Dim son As Integer
    Dim bak As String
    bak = AranacakMetin
        x = InStr(1, bak, "@")
        If x = 0 Then
            MailAdresiBul = "E-mail (@) yok"
            GoTo JMPSON
        End If
        For i = x - 1 To 1 Step -1
            If Mid(bak, i, 1) = " " Then
                ilk = i + 1
                GoTo JMP1
            End If
        Next i
        ilk = 1
    JMP1:
        For k = x + 1 To Len(bak)
            If Mid(bak, k, 1) = " " Then
                son = k - 1
                GoTo JMP2
            End If
        Next k
        son = k
    JMP2:
        MailAdresiBul = Mid(bak, ilk, son - ilk + 1)
    JMPSON:
    End Function
    Excel sayfanızda
    HTML-Kodu:
    =MailAdresiBul(A1)
    gibi kullanabilirsiniz.
    Konu NextLevel tarafından (24.12.2017 Saat 16:51 ) değiştirilmiştir.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •