Rica ederim abey,düzenlenmiş halini ekledim dosyadaki.

Private Sub CommandButton1_Click()

    Dim i As Integer, veri As String, aranan As String

    

    With [A1]

        veri = .Text

        aranan = [B4].Text

        .Font.Bold = False

        .Font.Underline = xlUnderlineStyleNone

        .Font.FontStyle = "Normal"

        If [B4].Value = "" Then GoTo son

        For i = 1 To Len(veri)

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Bold = True

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.Underline = xlUnderlineStyleSingle

            If Mid(veri, i, Len(aranan)) = aranan Then .Characters(i, Len(aranan)).Font.FontStyle = "Ýtalik"

        Next

    End With

son:

End Sub