Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

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
    26
    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
  •