Birleştirilen hücrelerin bazılarının koyu olması

[sahika51]

Saygıdeğer arkadaşlar benim sorunum, örnektede anlattım a47 ye birleştir ile gelen bilgilerde kişinin adı ve T.C Kimlik Numarasının Koyu renkli ve yazı boyutunun sadece bu ikisinin 11 olmasını istiyorum. Forumda epey gezdim ama tam bunu sağlayacak bir şey bulamadım. Yardımlarınız için şimdiden teşekkür edrim.

 

[Ömer]

Merhaba,

Sayfa1'in kod sayfasına kopyalayın. AY1 deki okul noyu değiştirdiğinizde kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [AY1]) Is Nothing Then Exit Sub
    
    On Error GoTo atla
    [A47] = "     " & [AZ5] & " " & [AY3] & " " & [AZ6] & " " & [BC1] & " " & [AZ7]
    
    [A47].Font.Bold = False
    
    [A47].Characters(Start:=35, Length:=11).Font.Bold = True
    [A47].Characters(Start:=69, Length:=Len([BC1])).Font.Bold = True
    Exit Sub
atla:
    [A47] = ""
    
End Sub

 

[sahika51]

Ömer Bey çok teşekkür ederim. Harikasınız