Makro ile kare içine alma (ÇÖZÜLDÜ)

[TanerSaydam]

Merhaba arkadaşlar;

Aşağıdaki kod ile hazırladığım bir userform'a girdiğim değerleri Sayfa1'deki I,J,K satırlarına alıyorum. Ama bunları alırken kare içine de almak istiyorum ama bir türlü yapamadım. Aşağıdaki kod hata veriyor. Yardımlarınızı bekliyorum.

Private Sub CommandButton1_Click()
Dim ilk As Integer, yer As Integer
Dim son As Integer
On Error Resume Next

ilk = 2
son = Sheets("ANA SAYFA").Range("I" & Rows.Count).End(xlUp).Row

yer = son + 1
    Range("I" & yer).Value = son
    Range("J" & yer).Value = TextBox1.Value
    Range("K" & yer).Value = TextBox2.Value


Range("I" & yer & ":K" & yer).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous

TextBox1.Value = ""
TextBox2.Value = ""

End Sub

 

[Ömer BARAN]

Ama bunları alırken kare içine de almak istiyorum...

[COLOR="Red"]Range("I" & yer & ":K" & yer).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous[/COLOR]

Merhaba.

Yukarıdaki kod satırlarını silip, bunların yerine aşağıdaki satırı kullanabilirsiniz.
.

    Range("I" & yer & ":K" & yer).Borders.LineStyle = xlContinuous

 

[TanerSaydam]

Saatlerdir bununla uğraşıyordum Çok sağolun Ömer bey. Sorunsuzca çalıştı.

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.
Basit düşünmek iyidir.
.