DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub BoldItalikYaz()
For i = 1 To Range("a65536").End(3).Row
b = Len(Cells(i, 1)) + 1
u = Len(Cells(i, 2))
Cells(i, 4) = Cells(i, 1) & Cells(i, 2) & Cells(i, 3)
Cells(i, 4).Characters(Start:=b, Length:=u).Font.FontStyle = "Kalın İtalik"
Next
End Sub
merhaba. makro ıle oldugunu bılıyorum ama ugrastım yukarıdakı makroyu kendıme uygulayamadım yazdıgım hucrelere uyarlayabılırsenız cok sevınırm.Merhaba,
Formülle birleştimede yazı biçimlendirmesi yapamazsınız. Mutlaka makro kullanmak gerekiyor.