Hücre Aralığını Seçmek (sy = s1.Cells(65536, "D").End(xlUp).Row)

[DeliBalta58]

Tablomda D sütunundaki verileri

sy = s1.Cells(65536, "D").End(xlUp).Row

ila saydırıyorum.

Cells(65536, ActiveCell.Column).End(xlUp).Offset(5, 0).Select
ActiveCell.Offset(0, 0) = " TESLİM EDEN"
ActiveCell.Offset(3, 0) = TextBox24.Text
ActiveCell.Offset(4, 0) = TextBox25.Text

Son Dolu Hücreyi bulup 5 satır aşağısına Textbox değerleri yazılıyor.

Sorunum ise bu olaydan sonra A1 ile G sütunu son dolu hücre arasını seçip Hücre biçimlendirme den tüm seçili alanı Tüm kenarlıklar çizdirmek.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Set s1 = Range("a1:g" & [g65536].End(3).Row)
s1.Borders(xlEdgeTop).LineStyle = xlContinuous
s1.Borders(xlEdgeBottom).LineStyle = xlContinuous
s1.Borders(xlEdgeRight).LineStyle = xlContinuous
s1.Borders(xlEdgeLeft).LineStyle = xlContinuous
s1.Borders(xlInsideVertical).LineStyle = xlContinuous
s1.Borders(xlInsideHorizontal).LineStyle = xlContinuous

 

[DeliBalta58]

Teşekkürler Elinize sağlık