koşullu biçimlendirme kenarlık

[kitaro51]

Arkadaşlar ekteki dosyada veri girilmeyen hücreler için / kenarlığı yapmak istiyorum yardım ederseniz sevinirim şimdiden teşekürler

 

[ynmcan]

Arkadaşlar ekteki dosyada veri girilmeyen hücreler için / kenarlığı yapmak istiyorum yardım ederseniz sevinirim şimdiden teşekürler

Syn. Kitaro51;
Ekteki dosyayı inceleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [F10:J21,M10:Q21,T10:X21,AA10:AE21]) Is Nothing Then

       If Target = Empty Then Target.Borders(xlDiagonalUp).LineStyle = xlContinuous

       If Target <> Empty Then Target.Borders(xlDiagonalUp).LineStyle = xlNone

End If

End Sub