sınır çizgisi

[karaca1923]

merhaba üstadlar;

excel de sınır çizgisi belirleyemiyorum.gerekli açıklamayaı ektekiş dosyada yaptım.cevabı da aynı dosya üzerinden gönderir seniz sevinirim.

iyi çalışmalar...

saygılar...

 

[uzmanamele]

merhaba

satır silmek yerine, seçtiğiniz satırların içeriğini silseniz olmaz mı?

 

[karaca1923]

yok üstadım çerçeve istiyorum.O dediğiniz işime yaramıyor ne yazıkki.Çerçeve yapamıyomuyuz satır silerken değişmeyen şekilde?

 

[Ali]

Makro kaydet yöntemi ile yapıp düzenledim.

Sayfa sekmesini sağ tuş ile tıklayıp kod görüntüle dedikten sonra aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 Range("B3:F12").Borders(xlDiagonalDown).LineStyle = xlNone
    Range("B3:F12").Borders(xlDiagonalUp).LineStyle = xlNone
    With Range("B3:F12").Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range("B3:F12").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range("B3:F12").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Range("B3:F12").Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("B3:F12").Borders(xlInsideVertical).LineStyle = xlNone
    Range("B3:F12").Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

 

[karaca1923]

eyv üstadım büyüksün

 

[uzmanamele]

merhaba

alternatif olsun.
herhangi bir alanı seçin ve kodu çalıştırın.

Sub kenarlık_çiz()
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub