Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme

1 2 3 4 5 6 7 8 9 10 11

(08/05/2021, 04:21)feraz yazdı: Dosyadaki, döngü içini alttaki gibi yaparsanız alt çizgi,kalın renk ve eğik yazı olur aranan kelime.

            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"

çok teşekkürler @feraz hocam)

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

ozaman fontla ilgili tüm diğer kodlar da çalışıyordur değil mi?
en azından size çalıştı.

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)

         With [a1].Characters(i, Len(aranan)).Font

           If Mid(veri, i, Len(aranan)) = aranan Then

                .Bold = True

                .Underline = xlUnderlineStyleSingle

                .FontStyle = "normal"

                .Size = 9

                .Color = vbBlue

                .Background = xlBackgroundAutomatic

            End If

        End With

        Next

    End With

son:

End Sub

(08/05/2021, 05:01)berduş yazdı: .Size = 9 .Color = vbBlue

Bunlar eklendiği için yukarısındaki kodada mesela veri alınan hücre rengi siyah ve boyutu 12 ise o kodda eklenmeli yada kısa yolu olabilir abey.

üst yada alt simge gibi kullanma kodunu bulamadım

1 2 3 4 5 6 7 8 9 10 11