Son satırın altını çizme

[ahmett46]

Excel de yapılan bir listenin son satırdan sonraki satıra çift çizgi ile kapatmak istiyorum. Bunu makro ile yapmamız mümkünmü?

 

[Metin Karaağaç]

Çift çizgiden neyi kastettiğinizi anlayamadım.

 

[ahmett46]

çift çizgi örnekte gösterilmiştir.

 

[Metin Karaağaç]

Bişeyler yapmaya çalıştım ama işinizi görür mü bilmem.

 

[ahmett46]

Hocam uğraştığınız için teşekkür ederim. Ama sayfa 2 de belirlenmiş bi alanda çiçziyor. İstediğim mesela 8 satırlı bir liste yaptığımda 9. satırda 20 satırlı bir liste yaptığımda 21. satırda çizmesini istiyorum.

 

[Metin Karaağaç]

Eminmisiniz?
En alttaki satırın iki satır altına çizecek şekilde ayarladım ben.

 

[ahmett46]

Hocam sayfa 2 de çiziyor

 

[Metin Karaağaç]

Sayın ahmett46,
Ben denedim birkaç defa. Sayfa 2 deki şekli kopyalayıp, sayfa 1 deki son satırın altına yapıştırıyor. Kodları o şekilde düzenlemiştim. Lütfen bir kaç defa deneyiniz. Söylediğiniz durumun oluşmaması lazım.

 

[ahmett46]

Hocam office 2007 de açmıştım. herhalde ondan kaynaklanıyor. 2003 te oluyor. Ancak bunu resim olarak değilde son satırda çizgi olarak çizse.

 

[leumruk]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub Cizgi()
sat = [a65536].End(3).Row + 2
Range("a" & sat & ":" & "c" & sat).Borders(xlEdgeBottom).LineStyle = xlDouble
Cells(sat + 1, "c").Borders(xlDiagonalUp).LineStyle = xlDouble
Cells(sat + 2, "b").Borders(xlDiagonalUp).LineStyle = xlDouble
Cells(sat + 3, "a").Borders(xlDiagonalUp).LineStyle = xlDouble
End Sub

 

[Metin Karaağaç]

Çizgi olarak yerini ayarlamaya kalkınca koordinat sistemi giriyor işin içine.
Bu sorunu da ben çözemem.