Hücrelere Kenarlık Çizme

[airborne]

s.a.

Sub Aktar_adres()
Sheets("Sayfa46").Select
Range("A1").Select
Set s1 = Sheets("sayfa30")
Set s4 = Sheets("sayfa46")
son_s1 = s1.[a65536].End(3).Row
SATIR = 2
say = 0
For x = 1 To son_s1
say = say + 1
SATIR = SATIR + 1
If SATIR = 100 Then SATIR = 101
If SATIR > 101 Then Exit Sub
s4.Cells(SATIR, "A") = say
s4.Cells(SATIR, "B") = s1.Cells(x, "A")
s4.Cells(SATIR, "C") = s1.Cells(x, "Z")
s4.Cells(SATIR, "D") = s1.Cells(x, "AA")
s4.Cells(SATIR, "E") = s1.Cells(x, "AD")
Next
End Sub

bu kodlarla sayfadan sayfaya aktarma işlemi yapıyorum. Yalnız aktarma yaptığım sadece dolu hücrelere makro içerisnde düzenleme yaparak nasıl kenarlık çizdirebilirim.

Selametle.............

 

[Korhan Ayhan]

Merhaba,

"NEXT" ifadesinden önceki satıra aşağıdaki kodu ekleyin.

S4.Range("A" & SATIR & ":E" & SATIR).Borders.LineStyle = 1

 

[airborne]

S.A.

üstad Allah Razı olsun...

Sub temizle_Tlf_Adres()
Sheets("Sayfa46").Range("A3:E104").Value = ""
End Sub

birde bu makroda kenarlıkların silinmesini nasıl ekleyebiliriz

 

[Ömer]

Merhaba,

Value = ""


Yerine

Clear

yazmanız yeterli olacaktır.

.

 

[airborne]

s.a.

Allah Razı olsun üstad Çok teşekkür ederim.+