Hücreye Otomatik Çapraz Çizgi Yazdırmak

[selcukerd]

Merhaba arkadaşlar,

Bir hücrenin içine otomatik olarak Çapraz Çizgi çektirmek istiyorum. Örneğin hücre 5 ten büyük ise otomatik olarak çapraz çizgi çekilsin. Bunu imza föyünde tatil günleri için yapacağım.

 

[Korhan Ayhan]

Merhaba,

Çapraz çizgi yerine dolgu rengini değiştirmek isterseniz koşullu biçimlendirme menüsünü kullanabilirsiniz.

İlla ki çapraz çizgi olsun derseniz makro kullanmak gerekecektir.

 

[selcukerd]

Cevabın için teşekkür ederim Korhan hocam ama belli bir şablonu olduğu için renge boyayamam. Tek secenek makro dediğin gibi ama makro yazmayı bilmiyorum.

 

[Korhan Ayhan]

"A" sütunu için aşağıdaki kodu sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    On Error Resume Next
    For X = 1 To 6
        Selection.Borders(X).LineStyle = xlNone
    Next
    If Target.Value > 5 Then
        Target.Borders(xlDiagonalDown).LineStyle = 1
        Target.Borders(xlDiagonalUp).LineStyle = 1
    End If
End Sub

 

[selcukerd]

Hocam dosyayı buraya yükledim. http://dosya.web.tr/KGJL8N . Sayfa1 de tatil olan günler sayfa2de de çizelge var. Çizelgede göreceğiniz şekildeki gibi çizgi çekilmiştir. Benim istediğim örneğin ilk sayfada Ekim ayındaki tatil gün sayılarını yazdığımızda sayfa2 de bulunan çizelgede o güne ait boşluğa kalın çizgiyi çekmesi. "AY" kısmını "yatayara" ile bağladım.

 

[Korhan Ayhan]

Deneyiniz.

 

[selcukerd]

Altın üyeliğim yok Hocam maalesef.

 

[Korhan Ayhan]

Aşağıdaki linkten indirebilirsiniz...

Link

 

[selcukerd]

Hocam elinize emeğinize sağlık. muhteşem olmuş..