Hücre içerisindeki ilk iki kelimeyi italik yapmak

[hadromer]

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]

A1 hücresi için aşağıdaki kodu deneyiniz.

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]

A1 hücresi için aşağıdaki kodu deneyiniz.

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]

A1 hücresi için aşağıdaki kodu deneyiniz.

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]

Hücrede boşluk varmı kontrol edin. En az iki boşluk olmalıdır.

 

[hadromer]

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]

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]

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]

ö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]

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

 

[numan şamil]

Size ve korhan bey'e çok teşekkür ederim. İStediğim şekilde çalıştı. Elinize sağlık

Dönüş yaptığınız için teşekkürler