Alt Kenarlık Çizme

[ahmedummu]

Günaydın arkadaşlar, hayırlı Pazarlar.

Aktif hücrenin iki satır aşağısını A-J sütunlarının alt kenarlığını çizmek istiyorum. Ama aşağıdaki kod ile sağ, sol, üst kenarlıkları da çiziyor. Forumdan bir örnek buldum ama çalıştıramadım.

For c = 0 To 9
ActiveCell.Offset(2, c).Borders.LineStyle = 1
Next c

Bulduğum örneğiaşağıdaki gibi yaptım ama çalışmadı.

For c = 0 To 9
ActiveCell.Offset(2, c).XlBordersIndex.xlEdgeBottom = 1
Next c

 

[ÖmerFaruk]

Yapmaya çalıştığınız işlemi Makro Kaydet yöntemiyle manuel yaparak kenarlık kodlarını görebilir ona göre kendinize uyarlayabilirsiniz

 

[ahmedummu]

Yapmaya çalıştığınız işlemi Makro Kaydet yöntemiyle manuel yaparak kenarlık kodlarını görebilir ona göre kendinize uyarlayabilirsiniz

 

[ahmedummu]

Yapmaya çalıştığınız işlemi Makro Kaydet yöntemiyle manuel yaparak kenarlık kodlarını görebilir ona göre kendinize uyarlayabilirsiniz

Merhaba Ömer Faruk bey.

En yakın olarak resimdeki gibi oldu aşağıdaki kod ile. Diğer denemeler karışık kenarlık çizdi. Kırmızı kodları Makro Kaydet üretti. Sonuçta kendi dosyama uyarlıyamadım.

For c = 0 To 9
ActiveCell.Offset(2, c).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
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("a14").Select
Next c

 

[Necdet]

Merhaba.
Deneyiniz.

Sub Makro1()
    
    With Range("A" & ActiveCell.Row + 2 & ":J" & ActiveCell.Row + 2).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    
End Sub

 

[ahmedummu]

Merhaba.
Deneyiniz.

Sub Makro1()
   
    With Range("A" & ActiveCell.Row + 2 & ":J" & ActiveCell.Row + 2).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
   
End Sub

Teşekkürler Necdet bey çözüldü.