ÖncekiMetin formülü yerine Makro Kodu

[hsynpkdmr]

Merhaba.
Öncekimetin formülü yerine kullanılabilecek Marko koduna ihtiyacım var.
A sutununda, hücrelerde metin bulunmakta. Bu hücrelerdeki metinde "Mah" ve "Mh" ifadelerinden herhangi birinden önceki kelimeyi C sutununa ilgili satıra yazacak.
Mümkün müdür...

 

[Korhan Ayhan]

Mümkündür..

Örnek dosya paylaşabilirmisiniz.

 

[hsynpkdmr]

Örnek dosya eklidir.
Teşekkürler.

 

[ÖmerFaruk]

Aşağıdaki kodu modül içine ekleyip sayfada çalıştırabilirsiniz.

Sub MAH_Oncesi()
Dim Say As Integer, Dizi, Liste, aranan, Oncekiler
    Range("B1:B" & Rows.Count).ClearContents
    Dizi = Range("A1").CurrentRegion.Value
    ReDim Liste(1 To UBound(Dizi), 1 To 1)
    For i = 1 To UBound(Dizi)
        If InStr(1, Dizi(i, 1), " MAH") > 0 Then
            aranan = " MAH"
        Else
            aranan = " MH"
        End If
        Oncekiler = Split(Trim(Dizi(i, 1)), aranan)
        If UBound(Oncekiler) = 0 Then
            Liste(i, 1) = aranan & " ifadesinden önce kelime bulunamadı"
        Else
            If InStr(1, Oncekiler(0), " ") > 0 Then
                Liste(i, 1) = Split(Oncekiler(0), " ")(UBound(Split(Oncekiler(0), " ")))
            Else
               Liste(i, 1) = Oncekiler(0)
            End If
        End If
    Next i
    Range("B1").Resize(UBound(Liste), 1) = Liste
End Sub

 

[hsynpkdmr]

Çok teşekkür ederim...
İyi ki varsınız....