Aynı Hücrede İki Farklı Format

[İsmailCen]

Arkadaşlar Merhaba,

Benim yapmak istediğim;

Üretim.Cells(SatırYaz, 11) = Format(Numuneler.Cells(SatırAl, 84), "0;-0;-") & vbCrLf & Format(Numuneler.Cells(SatırAl, 36), "0;-0;-")

Yukarıdaki kodda olduğu gibi, bir hücreye iki ayrı hücreden veri giriyorum, ilk hücreden aldığım veriyi İtalik, ikinci hücreden aldığım veriyi Kalın girmek istiyorum. Bunu yapmanın bir yolu var mı?

Teşekkürler.

 

[Trilenium]

Range("D2").Select
'İlk seçilen Değer için yapılır
'başlangıç değeri 1 dir. 2 Karakter boyunda italik yapar
With ActiveCell.Characters(Start:=1, Length:=2).Font
.FontStyle = "İtalik"
End With
'İkinci seçilen Değer için yapılır
'başlangıç değeri 4 tür. 2 Karakter boyunda koyu yapar
With ActiveCell.Characters(Start:=4, Length:=3).Font
.FontStyle = "Kalın"
End With

 

[İsmailCen]

Teşekkür ederim.
Veri alınan hücrelerdeki karakter sayıları aynı değil, sanırım ilk hücreden aldığımız karakter sayısını bulursak olacak. Emeğinize sağlık.

 

[İsmailCen]

Sayın Trilenium,
Kodlarınızda yaptığım aşağıdaki değişiklikle sorun çözüldü, teşekkür ederim.

Üretim.Cells(SatırYaz, 11) = Format(Numuneler.Cells(SatırAl, 84), "0;-0;-") & vbCrLf & Format(Numuneler.Cells(SatırAl, 36), "0;-0;-")
Uzunluk1 = Len(Numuneler.Cells(SatırAl, 84))
Uzunluk2 = Len(Numuneler.Cells(SatırAl, 36))
With Üretim.Cells(SatırYaz, 11).Characters(Start:=1, Length:=Uzunluk1).Font
.FontStyle = "İtalik"
End With
With Üretim.Cells(SatırYaz, 11).Characters(Start:=Uzunluk1 + 1, Length:= Uzunluk2).Font
.FontStyle = "Kalın"
End With

:bravo:

 

[Trilenium]

Geri dönüş için teşekkürler..

Başarılarınızın devamını dilerim

Kolay gelsin