Soru Yapıştırılan Tabloya Altçizgi

[hlojan]

Merhaba ;

Kopyaladığım range'i yapıştırırken içeriğindeki tablonun altına altcizgi koymak istiyorum.

.PasteSpecial
Selection.Borders

yaptığımda altçizgi taşıyor. Çünkü tablo kopyalanan range'den küçük olabiliyor.

Vba ile değer olan hücrenin altını tanımlamak gerekecek

Örnek dosya ektedir
İyi Çalışmalar dilerim

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
    Range("a1:g6").Copy
    Range("m1").PasteSpecial
    
    Dim Bak As Range
    Dim Alan As Range
    Set Alan = Selection.Rows(Selection.Rows.Count)
    For Each Bak In Alan.Cells
        If Bak.Text <> "" Then
            With Bak.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End If
    Next
End Sub

 

[Korhan Ayhan]

Alternatif;

Private Sub CommandButton1_Click()
    Range("A1:G6").Copy
    Range("M1").PasteSpecial xlPasteAll
    Selection.SpecialCells(xlCellTypeConstants, 23).BorderAround ColorIndex:=1, Weight:=xlThin
End Sub

 

[hlojan]

Korhan bey ve dalgalikur ,

Teşekkürler.

İkisinide denedim. İkiside sorunsuz çalıştı. Sadece daha kısa olduğu için Korhan beyin kodunu kullandım.

İkinize teşekkür ederim