Hücre içerisindeki ilk iki kelimeyi italik yapmak

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit 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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,319
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit 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
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit 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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,319
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hücrede boşluk varmı kontrol edin. En az iki boşluk olmalıdır.
 

hadromer

Altın Üye
Katılım
23 Ekim 2015
Mesajlar
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit Türkçe
Hücrede boşluk varmı kontrol edin. En az iki boşluk olmalıdır.
teşekkür ederim. Sadece A1 hücresini italik yapıyor. a sütunumda 987 adet veri var. Kodda "A1" yazan kısımları "A1:A987" olarak revize etsem yeterli midir ?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,319
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit 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,229
Excel Vers. ve Dili
Ofis 2013 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
382
Excel Vers. ve Dili
LTSC Professional Plus 2021 64 Bit 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