Eğer Yazı formatı "Arial Black" ise!!

[shenko]

Slm,

Mesela B5 deki yazı tipi "Arial Black" ise A5 den G5 hücresine kadar mevcut olan hücrelerin üst çizgilerini kalın çizgi yapabilirmiyim.

İlginize şimdiden teşekkür ederim.

 

[Ali]

Eğer doğru anladı isem.Aşağıdaki kodları deneyin.

Sub seçkalıncizgiyap()
If Range("B5").Font.Name = "Arial Black" Then
  Range("A4:G4").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Application.CommandBars("Borders").Visible = False
Else
Exit Sub
End If
End Sub

 

[shenko]

Değerli fructose,

Yardımlarınız için tekrar tşk etmek istedim verdiğiniz makroyu kullanabilirim ilginiz ve bilginiz için çok sağolun.