listboxta en ust satır sabit kalsın

Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
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
 

Ekli dosyalar

Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
ılgınız ıcın tesekkurler
pekı onu nasıl yapacagım
?
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,734
Excel Vers. ve Dili
Excel 2019 Türkçe
Alternatif; Form üzerinde sütun başlıklarını "Label" olarak da gösterebilirsiniz.
 
Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
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
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
UserForm1 'deki ListBox nesnesini silin bir tane ListView nesnesi ekleyin, kodları silin aşağıdaki kodları yazın.

Kod:
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
 

Ekli dosyalar

Katılım
14 Mart 2008
Mesajlar
53
Excel Vers. ve Dili
excel 2003
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
 
Üst