ismailozkan4224
Altın Üye
- Katılım
- 22 Kasım 2011
- Mesajlar
- 175
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 22-12-2027
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
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