birleştir komutuyla birleştirilen hücre içersinde metni biçimlendirme

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BİRLEŞTİR()
    Dim X As Integer
    
    Range("E1").ClearContents
    
    For X = 1 To Cells(Rows.Count, "C").End(3).Row
        If Cells(X, "C") <> "" Then
            Range("E1") = Range("E1") & Cells(X, "C")
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bilalakdeniz]

Sayın Korhan Ayhan, Çok Teşekkür ederim,

 

[acemi7]

Aşağıdaki kodu dosyanızda çalıştırın.

Sub birlestir()
[b13] = [b8] & " VE " & [b9] & " " & [b10] & " TARİHİNDE İSTANBULA GİTTİLER"
ilk = InStr([b13], [b10])
son = Len([b10])
[b13].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın İtalik"
[b13].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
End Sub

teşekkürler bu kod işime yaradı ama kendi kullandığım çalışma sayfasında kullanmaya çalıştım ama kalın yazmasını istediğim hücre sayısı fazla olduğu fazla için olmadı.
aşağıdaki kodu kullanmaya çalıştım ama beceremedim yardımcı olur musunuz?

Sub birlestir()
[a25] = [A1] & " " & [A2] & " " & [A3] & " Saat: " & [A4] & "'de " & [A5] & " " & [A6] & " " & [A7] & " " & [A8] & " " & [A9]
ilk = InStr([a25], [A1])
son = Len([a5])
[a25].Characters(Start:=ilk, Length:=son).Font.FontStyle = "Kalın"
[a25].Characters(Start:=ilk, Length:=son).Font.Strikethrough = False
End Sub

bu kodu kullandığımda sadece a3 teki hücrenin ilk kelimelerini koyu yazıyor.
ben a1,2,3,4,5 i koyu yapamsını istiyorum..

kod konusunda fazla bilgim yok formlarınızdan yapabildiklerimi yapmaya çalışıyorum. çok teşekkürler...

 

[emraha]

Bir de bunlara bakın.

Sub FORMULICI()
[b13] = [b8] & " VE " & [b9] & " " & [b10] & " TARİHİNDE İSTANBULA GİTTİLER"
With ActiveCell.Characters(Start:=14, Length:=11).Font
.Name = "Arial Tur"
.FontStyle = "Bold Italic"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic

Range("C13").Select
End With
End Sub

Sub şeklinde bir makro değilde function şeklinde bir biçimlendirme makrosu yapmak mümkün mü? Örneğin BİRLEŞTİR(OZELBICIM("Ali")&"adem"&"metin") şeklinde

 

[Korhan Ayhan]

Merhaba,

Dinamik çalışan bir fonksiyonla biçimlendirme yapmanız mümkün değildir.