- Katılım
- 25 Aralık 2007
- Mesajlar
- 335
- Excel Vers. ve Dili
- exel 2000 türkçe
Dim i As Long, sat As Long, sh As Worksheet, deg As String, x As Long
Set s1 = Sheets("KASA")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "SIRA NO ", 0
.Add , , "DEFTER ", 0
.Add , , "DEFTER ", 0
.Add , , "DEFTER ", 0
.Add , , "ŞİRKETİ ", 40
.Add , , "TARİH", 50
.Add , , "BELGE NO", 30
.Add , , "HESAP TÜRÜ", 20
.Add , , "İŞLEM CİNSİ", 40
.Add , , "İŞLEM TÜRÜ", 40
.Add , , "TÜRÜ", 80
.Add , , "EVRAK KAYIT NO", 0
.Add , , "PARA BİRİMİ", 20
.Add , , "TUTAR", 80
.Add , , "ACIKLAMA", 120
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ComboBox9.Value = "KASA"
Call LİSTELE
End Sub
şeklinde listwiew sütün adlarını belirliyorum ancak
o değer verdiklerim listwiewde hic bir şekilde gozukmesin istiyorum.
yukarda yazdığım gibi uygularsam ornegin evrak kayıt no listwiew sutunlarını userform uzerinde oynadıgımda acılıyor
ne yaparsam o değer olamlar hic bir sekilde gozukmez
Set s1 = Sheets("KASA")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "SIRA NO ", 0
.Add , , "DEFTER ", 0
.Add , , "DEFTER ", 0
.Add , , "DEFTER ", 0
.Add , , "ŞİRKETİ ", 40
.Add , , "TARİH", 50
.Add , , "BELGE NO", 30
.Add , , "HESAP TÜRÜ", 20
.Add , , "İŞLEM CİNSİ", 40
.Add , , "İŞLEM TÜRÜ", 40
.Add , , "TÜRÜ", 80
.Add , , "EVRAK KAYIT NO", 0
.Add , , "PARA BİRİMİ", 20
.Add , , "TUTAR", 80
.Add , , "ACIKLAMA", 120
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ComboBox9.Value = "KASA"
Call LİSTELE
End Sub
şeklinde listwiew sütün adlarını belirliyorum ancak
o değer verdiklerim listwiewde hic bir şekilde gozukmesin istiyorum.
yukarda yazdığım gibi uygularsam ornegin evrak kayıt no listwiew sutunlarını userform uzerinde oynadıgımda acılıyor
ne yaparsam o değer olamlar hic bir sekilde gozukmez
