font kalınlığını ayarlama

[ismailozkan4224]

değerli arkadaşlar 1. kod çalışıyor. ancak ben 2. kodun çalışmasını istiyorum. kod aynı işlemi yapmıyor. nasıl düzenlenmesi lazım
1.-----
private Sub KALINHARFYAPIFADE()
With Range("A17")
.Characters(Cells(17, 68), Cells(3, 68)).Font.Bold = True
.Characters(Cells(16, 68), Cells(5, 68)).Font.Bold = True
.Characters(Cells(15, 68), Cells(7, 68)).Font.Bold = True
.Characters(Cells(14, 68), Cells(9, 68)).Font.Bold = True
.Characters(Cells(13, 68), Cells(11, 68)).Font.Bold = True

End With
End Sub
2.------
private Sub KALINHARFYAPIFADE()
With Range("A17")
If Cells(11, 68) = 0 Then
.Characters(Cells(17, 68), Cells(3, 68)).Font.Bold = True
If Cells(9, 68) = 0 Then
.Characters(Cells(16, 68), Cells(5, 68)).Font.Bold = True
If Cells(7, 68) > 0 Then
.Characters(Cells(15, 68), Cells(7, 68)).Font.Bold = True
If Cells(5, 68) > 0 Then
.Characters(Cells(14, 68), Cells(9, 68)).Font.Bold = True
If Cells(3, 68) > 0 Then
.Characters(Cells(13, 68), Cells(11, 68)).Font.Bold = True
End If
End If
End If
End If
End If
End With
End Sub

 

[AdemCan]

Merhaba dosyanızı paylaşır mısınız?

 

[ismailozkan4224]

sayfa 11 deki kodlar üzerine çalışıyorum. teşekkürler.
dosya linki:

İndir SORUŞTURMA YENİ

Dosyayı indir SORUŞTURMA YENİ

dosya.co