listboxta en ust satır sabit kalsın

[hypnose]

arkadaslar selam
ektekı excelde userform ıcınde bulunan lıstboxta arama yapıldıgında en ust satırın sabıt kalmasını ıstıyorum

yardımcı olabılırmsınız

tesekkurler

 

[Tarkan VURAL]

ListView sütun başlıkları için daha şık durur.

 

[hypnose]

ılgınız ıcın tesekkurler
pekı onu nasıl yapacagım
?

 

[hamitcan]

Alternatif; Form üzerinde sütun başlıklarını "Label" olarak da gösterebilirsiniz.

 

[hypnose]

Alternatif; Form üzerinde sütun başlıklarını "Label" olarak da gösterebilirsiniz.

haklısınız fakat form uzun oldugu ıcın saga cektıgımde baslıklar sabıt kalıp alttakı sayfa farklı yerlere gelıyor

yınede onerınız ıcın tesekkurler

 

[Tarkan VURAL]

UserForm1 'deki ListBox nesnesini silin bir tane ListView nesnesi ekleyin, kodları silin aşağıdaki kodları yazın.

DefStr S
DefLng A-B

Private objCon As Object, objRs As Object

Private Sub TextBox1_Change()
On Error Resume Next
objRs.Filter = ""
objRs.Filter = "[TARİHİ]=" & Me.TextBox1.Value
Call Userform_Activate
End Sub

Private Sub UserForm_Initialize()
Set objCon = CreateObject("adodb.connection")
Set objRs = CreateObject("adodb.recordset")
strYol = ThisWorkbook.FullName
If objCon.State = 1 Then objCon.Close
objCon.Open "provider=microsoft.jet.oledb.4.0;data source=" & strYol & _
";extended properties=""excel 8.0;hdr=yes"""
If objRs.State = 1 Then objRs.Close
objRs.Open "select * from [VERITABANI$]", objCon, 3, 1
End Sub

Sub Userform_Activate()
With ListView1
    .View = lvwReport
    .ColumnHeaders.Clear
    .ListItems.Clear
For b = 0 To objRs.fields.Count - 1
    .ColumnHeaders.Add , , objRs.fields(b).Name
Next b
Do While Not objRs.EOF
    .ListItems.Add , , objRs.fields(0).Value
For a = 0 To objRs.fields.Count - 1
    .ListItems(.ListItems.Count).ListSubItems.Add , , objRs.fields(a).Value
Next a
objRs.movenext
Loop
End With
End Sub

 

[hypnose]

super tesekkurler
szın sayenızde lıstvıewıde ogrenmıs oldum
fakat bu raporlamada malasef ısıme yaramıyor
cunku ben aynı zamanda textbox 1 e yazdıgım verılerı fıltrelesın ıstıyorum bunda olmuyor
ama bana ogrettıgınız ıcın tesekkurler