Harf kelimenin sonunda mı?

[tamer42]

Option Explicit Sub Test() Dim S1 As Worksheet, Alan As String, Aranan As String, Formul As String, Sonuc As Variant Set S1 = Sheets("Sayfa1") Alan = S1.Cells(1, 1) Aranan = S1.Cells(1, 3) & "-" Formul = "=SEARCH(""" & Aranan & """,SUBSTITUTE(SUBSTITUTE(""" & Alan & ""","" "",""-""),""."",""-""))" Sonuc = Evaluate(Formul) MsgBox Sonuc End Sub

Çok teşekkürler Korhan Hocam