Süz&Yazdır

[gdemir]

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Set sabit = Worksheets("aödeme").Range("A1")
Worksheets("arödeme").Range("A1").CurrentRegion.ClearContents

sabit.AutoFilter Field:=5, Criteria1:=TextBox1

Worksheets("aödeme").Range("A1").CurrentRegion.Copy Worksheets("arödeme").Range("A1")
sabit.AutoFilter

Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:Y14").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

With ListBox1
.ColumnHeads = True
.ColumnCount = 10
.RowSource = "akayit!B2:K65536"
.ColumnWidths = "0;50;40;40;80;80;50;55"


.RowSource = "arödeme!A2:I" & WorksheetFunction.CountA(Worksheets("arödeme").Range("A1:A65000"))
End With
partner = WorksheetFunction.CountA(Sheets("arödeme").[A2:A65000])
Label9.Caption = partner & " adet kayıt bulundu"

End Sub

iyi günler arkadaşlar yukarıdaki kodlara bastıgım zaman süzme işi gercekleşiyor
fakat yazdırken dolu olan hücrelerin kenarlık cizgilerininde oluşmasını iştiyorum bu mümkünmüdür?
neresıne nasıl bir kod girmemiz gerekir?
yardımlarınız için şimdiden teşekkür ederim
kolay gelsin

 

[gdemir]

arkadaşlar
dolu hücrelerin kenarlıklarını oluşturmak için bir makro yokmu acaba?