Excell ilk iki kelime italik yaparken kod hatası

[hadromer]

Merhaba,
Daha önce BU LİNKTEKİ konuda hücre içerisindeki metinlerden ilk iki kelimesinin italik olması konusunda yardım istemiştim. Sağolsun Korhan Bey ve Numan Şamil Bey ilgilenmişti. Şimdi yeniden böyle bir çalışma yapmak istiyorum. modül ekleyip çalıştırdığımda sadece ilk iki kelime italik olması gerekirken bazen hücrenin tamamı bazen 3 kelime italik oluyor. Örneğin A1 hücresinde "

Cymbopleura amphicephala (Nägeli ex Kützing) Krammer 2003 yazıyor. Ben Cymbopleura amphicephala (Nägeli ex Kützing) Krammer 2003 şeklinde olmasını istiyorum fakat Cymbopleura amphicephala (Nägeli ex Kützing) Krammer 2003 şeklinde çalıştırıyor.

Modül için aşağıdaki kodu kullanıyorum. örnek dosya ekledim Yardımcı olabilir misiniz ? TEşekkür ederim şimdiden

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

 

[ÖmerFaruk]

Sorun hücre içinde boşluk gibi görünen ancak excel tarafından tanımlanamayan karakterlerden kaynaklanıyor.

 

[ÖmerFaruk]

Bunu düzeltmek için verilerinizin olduğu tüm aralıkta Ctrl-H diyerek atomoides Monnier ifadesinde boşluk gibi görünen aradaki karakteri seçerek Kopyalayın ve Değiştir penceresindeki aranan kısmına yapıştırın.
Yeni değer kısmına klavye ile boşluk bırakın.
Tümünü değiştirin.
Daha sonra elinizdeki KODları tekrar çalıştırın.

 

[hadromer]

Bunu düzeltmek için verilerinizin olduğu tüm aralıkta Ctrl-H diyerek atomoides Monnier ifadesinde boşluk gibi görünen aradaki karakteri seçerek Kopyalayın ve Değiştir penceresindeki aranan kısmına yapıştırın.
Yeni değer kısmına klavye ile boşluk bırakın.
Tümünü değiştirin.
Daha sonra elinizdeki KODları tekrar çalıştırın.

ilgilendiğiniz için teşekkür ederim fakat söylemek istediğinizi anlayamadım özür diliyorum,rica etsem biraz daha açıklayabilir misiniz?

 

[hadromer]

tamam şimdi yaptım )) çok teşekkür ederimm