Süz Aktar Yazdır

[noxious]

Sayın Hocalarım
Forum içerisinde bir çok örnekle karşılaştım ama ne yaptıysam kendi çalışmama ekleyip istediğim sonucu alamadım

Ana sayfamızda bulunan veriler tarih aralığında süzülüyor ve Yazdır sayfasına aktarılıyor ayrıca ListBox üzerinde görüntüleniyor. Görüntülenen verileri yazdır dediğimizde sorun yok.

Ben sadece (Yazdır sayfasına aktarılan) yazdıracağımız verilerin kenarlık içerisine aldırmayı beceremedim yani B sütununun son dolu hücresine kadar A1 sütunundan I sütununa kadar hücrelerin kenarlıkla şekillendirilmesini istiyorum

Ekli dosyada yukarda istediklerimin REVİZE edilmiş hali var

 

[Levent Menteşoğlu]

Bunun kodlarını makro kaydet ile elde edebilirsiniz.

 

[noxious]

Hocam makro kaydet ile karşıma

Sub Makro1()
Range("A1:I56").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

Kodları çıkıyor


Range("A1:I56").Select kodu A1 ile I56 ya kadar olan hücreleri kapsıyor.
Ben son dolu satıra kadar kendisinin almasını istiyorum. Bu kodu bulamadım.

 

[Recep İpek]

son=[a65536].end(3).row

Range(Cells(1,"a"),Cells(son,"I")).Select

olarak deneyin.

 

[noxious]

Hocam teşekkürler sorun sayenizde çözüldü

Birinci mesajımın ekinde yukarda istediklerimin REVİZE edilmiş hali var. Umarım benden başka arkadaşlarında işine yarar