Hücre içerisindeki ilk iki kelimeyi italik yapmak

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
156
Excel Vers. ve Dili
Excel 2019, Türkçe
Merhaba,
Bir hücre içerisindeki ilk iki kelimeyi italik yapmak istiyorum. örneğin ; A1 hücresinde yazan " Dolichospermum spiroides (Klebhan) Wacklin, L.Hoffmann & Komárek" cümlesinin ilk iki kelimesini (Dolichospermum spiroides) italik yapmak istiyorum. Yardımcı olabilir misiniz ?
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
25,383
Excel Vers. ve Dili
OFFICE 2019 PRO TR
A1 hücresi için aşağıdaki kodu deneyiniz.

Kod:
Option Explicit

Sub TEST()
    Dim Veri As Variant
    
    Veri = Split(Range("A1").Value, " ")
    
    With Range("A1")
        .Font.Italic = False
        .Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
    End With
End Sub
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
156
Excel Vers. ve Dili
Excel 2019, Türkçe
A1 hücresi için aşağıdaki kodu deneyiniz.

Kod:
Option Explicit

Sub TEST()
    Dim Veri As Variant
   
    Veri = Split(Range("A1").Value, " ")
   
    With Range("A1")
        .Font.Italic = False
        .Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
    End With
End Sub
çok teşekkür ederim ellerinize sğlık
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
156
Excel Vers. ve Dili
Excel 2019, Türkçe
A1 hücresi için aşağıdaki kodu deneyiniz.

Kod:
Option Explicit

Sub TEST()
    Dim Veri As Variant
   
    Veri = Split(Range("A1").Value, " ")
   
    With Range("A1")
        .Font.Italic = False
        .Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
    End With
End Sub
modül ekleyip, çalıştırdığımda "Subscript out of range (Error 9)" hatası almaktayım. debug bölümüne girdiğimde ".Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True" bu kodun sarı işaretli olduğunu görüyorum Yardımcı olabilir misiniz ?
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
25,383
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Hücrede boşluk varmı kontrol edin. En az iki boşluk olmalıdır.
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
25,383
Excel Vers. ve Dili
OFFICE 2019 PRO TR
Eğer ilk mesajınızda hücre aralığı deseydiniz ona göre kod önerirdim.

Önerdiğim kodu döngü içine alırsanız sonuç alabilirsiniz.
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
156
Excel Vers. ve Dili
Excel 2019, Türkçe
Eğer ilk mesajınızda hücre aralığı deseydiniz ona göre kod önerirdim.

Önerdiğim kodu döngü içine alırsanız sonuç alabilirsiniz.
özür dilerim anlatım eksikliği yaptığım için. Malumunuz kod yazmayı bilmediğimizden alıştık = ile başlayan hazır kodları sürükleyip çoğaltarak kullanmaya.. Döngü ye almayı da bilmiyorum. İlgilendiğiniz ve vakit ayırdığınız için teşekkürlerimi sunuyorum Korhan Bey, ellerinize sağlık .
 

numan şamil

Destek Ekibi
Destek Ekibi
Katılım
27 Ocak 2011
Mesajlar
1,137
Excel Vers. ve Dili
Ofis 2010 Türkçe
özür dilerim anlatım eksikliği yaptığım için. Malumunuz kod yazmayı bilmediğimizden alıştık = ile başlayan hazır kodları sürükleyip çoğaltarak kullanmaya.. Döngü ye almayı da bilmiyorum. İlgilendiğiniz ve vakit ayırdığınız için teşekkürlerimi sunuyorum Korhan Bey, ellerinize sağlık .
Korhan Beyin affına sığınarak
Korhan Beyin kodlarını aşağıdaki gibi deneyebilirmisiniz
Sub TEST()
Dim Veri As Variant
For x = 1 To 987
Veri = Split(Range("A" & x).Value, " ")
Range("A" & x).Font.Italic = False
Range("A" & x).Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
Next x
End Sub
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
156
Excel Vers. ve Dili
Excel 2019, Türkçe
Korhan Beyin affına sığınarak
Korhan Beyin kodlarını aşağıdaki gibi deneyebilirmisiniz
Sub TEST()
Dim Veri As Variant
For x = 1 To 987
Veri = Split(Range("A" & x).Value, " ")
Range("A" & x).Font.Italic = False
Range("A" & x).Characters(1, Len(Veri(0)) + Len(Veri(1)) + 1).Font.Italic = True
Next x
End Sub
Size ve korhan bey'e çok teşekkür ederim. İStediğim şekilde çalıştı. Elinize sağlık
 
Üst