listview nesnesini nasıl ekleyebilirim?

[udentr2002]

merhaba arkadaşlar formuma listview nesnesini yerleştirmek istiyorum fakat nesneler arasında listview yok nasıl ekleyebilirim? yardımcı olusanız sevinirim?

 

[gbaldogan]

toolbox'ta additional controls ü tılayın açılan pencereden microsoft listview nesnesini tıklayın. artık toolbox ta listview nesnesi olacaktır.

 

[udentr2002]

toolbox da sağ klik yapıp additonal controls u tıkladığımda hiç bir şey çıkmıyor üstte tools>additional controlsu tıkladığımda da bir şey çıkmıyor
tools>referance ı tıkladığımda açılan seçenekler içerisinde listwiev diye bir seçenekde yok yanlış yeremi bakıyorum acaba

 

[Zeki Gürsoy]

Selamlar,

Additional controlsda "Microsoft Listview Control, version 6.0" olarak geçiyor.
Eğer yoksa office programını kaldırıp yeniden yükleyin.
Yükleme seçeneğini "Tam" yapın.

 

[udentr2002]

hocam

hocam ben daha önce yapılmış olan bir formda listwiev i kopyalayıp kendi formuma yapıştırdım şu anlık bi sorun yok gibi görünüyor yarın office program cd sini bulup tekrar yükleyeceğim şu an böyle çalışsam bi sorun olurmu?

2. olarak ben sayfadaki bilgilerin listwiev de görün mesi için şu kodları yazdım userform initialize olayının altına

Dim X As ListItem
Dim Sayfa As Object
Dim Son As Integer, Satir As Integer, Sutun As Integer
ListView1.View = lvwReport
ListView1.ColumnHeaders.Clear
Call ListView1.ColumnHeaders.Add(, , "Sıra No", ListView1.Width / 20)
Call ListView1.ColumnHeaders.Add(, , "Tarih", ListView1.Width / 12)
Call ListView1.ColumnHeaders.Add(, , "Giriş/Çıkış", ListView1.Width / 14)
Call ListView1.ColumnHeaders.Add(, , "Banka Adı", ListView1.Width / 7)

Call ListView1.ColumnHeaders.Add(, , "İşlem Türü", ListView1.Width / 10)
Call ListView1.ColumnHeaders.Add(, , "Fatura No", ListView1.Width / 15)
Call ListView1.ColumnHeaders.Add(, , "Hesap Numarası", ListView1.Width / 10)
Call ListView1.ColumnHeaders.Add(, , "Giriş Şekli", ListView1.Width / 10)
Call ListView1.ColumnHeaders.Add(, , "Gider Yeri", ListView1.Width / 5)
Call ListView1.ColumnHeaders.Add(, , "Gider Türü", ListView1.Width / 5)
Call ListView1.ColumnHeaders.Add(, , "Açıklama", ListView1.Width / 5)
Call ListView1.ColumnHeaders.Add(, , "Alacak", ListView1.Width / 15)

Call ListView1.ColumnHeaders.Add(, , "Borç", ListView1.Width / 15)
Call ListView1.ColumnHeaders.Add(, , "Bakiye", ListView1.Width / 15)


Set Sayfa = Sheets("KASA")
Son = WorksheetFunction.CountA(Sayfa.Range("A:A"))
ListView1.ListItems.Clear
For Satir = 7 To Son
Set X = ListView1.ListItems.Add(, , Sayfa.Range("A" & Satir))
For Sutun = 2 To 14
X.SubItems(Sutun - 1) = Cells(Satir, Sutun)
Next
Next

ama sanırım doğru çalışmıyor sorun şu : liste yani kasa sAyfasında 7. satırdan sonra herhangi bir bilgi yoksa formu açmıyor hata veriyor. ve eğer 7. satırda bilgi varsa, sayfadaki tüm bilgileri göstermiyor bilgi girdikçe yani (4 tane bilgi girdikten sonra listview de görünmeye başlıyor hiç bir zaman sondan 4 bilgi görünm üyor sebebi ne olabilir?

 

[Zeki Gürsoy]

Bu şekilde deneyin.

Set Sayfa = Sheets("KASA")
Son = WorksheetFunction.CountA(Sayfa.Range("A:A"))
ListView1.ListItems.Clear
If Son > 7 then
For Satir = 7 To Son
Set X = ListView1.ListItems.Add(, , Sayfa.Range("A" & Satir))
For Sutun = 2 To 14
X.SubItems(Sutun - 1) = Cells(Satir, Sutun)
Next
Next
End If

 

[udentr2002]

hocam öncelikle ilginiz için teşekkür ederim

fakat olmadı yine aynı şey benim veriler sayfanın 7. satırında başlıyor ve mesala 26. satıra kadar 20 adet veri var fakat ben formu açtığımda listview de 22. satıra kadar yani 16 adet veriyi gösteriyor yeni bilgi eklesem bile son 4 veriyi göstermiyor tekrar bakabilme imkanınız varmı acaba hocam?

 

[udentr2002]

hocam yaptığım küçük programı ekledim

hocam ekli dosyadaki formu açtığınızda göreceksinizki sayfada ki değerlerin ilk 2 sini gösteriyor diğerlerini listview de göstermiyor. bakabilrseniz çok sevineceğim

 

[Zeki Gürsoy]

Ben listview görmedim. Ayrıca "kasa" isminde sayfa mevcut değil.

 

[udentr2002]

hocam özür

yanlış isimlki dosya göndermişim dosyayı gönderiyorumm

 

[Zeki Gürsoy]

Formun initialize olayını bununla değiştirin.

Private Sub UserForm_Initialize()
Dim i As Integer, ii As Integer

TextBox13.Text = Sheets("KASA").Range("I1")
TextBox14.Text = Sheets("KASA").Range("I1")
TextBox15.Text = Sheets("KASA").Range("I1")
With ComboBox1
    .AddItem "NAKİT"
    .AddItem "BANKA"
End With

With ComboBox4
    .AddItem "PARA YATIRMA"
    .AddItem "PARA ÇEKME"
End With
With ComboBox2
    .AddItem "GENEL YÖNETİM"
    .AddItem "ÜRETİM"
    .AddItem "HAMMADDE / ÜRÜN DEPO"
    .AddItem "KALİTE GÜVENCE"
    .AddItem "KALİTE KONTROL"
    .AddItem "MİKROBİYOLOJİ"
    .AddItem "AR-GE"
    .AddItem "İDARİ İŞLER"
    .AddItem "İŞ YERİ HEKİMLİĞİ"
    .AddItem "SU SİSTEMLERİ"
    .AddItem "BAKIM ONARIM"
    .AddItem "ATIK SU ARITMA"
End With

With ComboBox3
    .AddItem "İŞLETME MALZEMESİ GİDERLERİ"
    .AddItem "ELEKTRİK MALZEMESİ GİDERLERİ"
    .AddItem "ALET VE EDEVAT GİDERLERİ"
    .AddItem "MAKİNA YAĞLARI GİDERLERİ"
    .AddItem "KİMYEVİ MADDE GİDERLERİ"
    .AddItem "İNŞAAT MALZEMESİ GİDERLERİ"
    .AddItem "GIDA MALZEMESİ GİDERLERİ"
    .AddItem "GİYİM VE KORUYUCU MALZEME GİDERLERİ"
    .AddItem "TEMİZLİK MALZEMESİ GİDERLERİ"
    .AddItem "KIRTASİYE VE MATBU EVRAK GİDERLERİ"
    .AddItem "LABORATUAR CAM MALZEMESİ GİDERLERİ"
    .AddItem "DİĞER İŞLETME MALZEMELERİ"
    .AddItem "MAKİNA BAKIM ONARIM GİDERLERİ"
    .AddItem "BİNA BAKIM ONARIM GİDERLERİ"
    .AddItem "GENEL BAKIM ONARIM GİDERLERİ"
    .AddItem "YANGIN SİSTEMİ GİDERLERİ"
    .AddItem "SU GİDERLERİ"
    .AddItem "ELEKTRİK GİDERLERİ"
    .AddItem "DOĞAL GAZ GİDERLERİ"
    .AddItem "MOTORİN GİDERLERİ"
    .AddItem "İTHAL YEDEK PARÇA GİDERLERİ"
    .AddItem "YERLİ YEDEK PARÇA GİDERLERİ"
    .AddItem "LPG GİDERLERİ"
    .AddItem "AZOT GAZI GİDERLERİ"
    .AddItem "HİDROJEN GAZI GİDERLERİ"
    .AddItem "YEMEK GİDERLERİ"
    .AddItem "KURS-EĞİTİM-SEMİNER GİDERLERİ"
    .AddItem "YER ALTI VE YER ÜSTÜ TESİS BAKIM GİDERLERİ"
    .AddItem "BİNA BAKIM GİDERLERİ"
    .AddItem "TESİS-MAKİNA-CİHAZ BAKIM GİDERLERİ"
    .AddItem "DEMİRBAŞ BAKIM GİDERLERİ"
    .AddItem "DİĞER BAKIM ONARIM GİDERLERİ"
    .AddItem "KİRALIK İŞ MAKİNALARI GİDERLERİ"
    .AddItem "GÜVENLİK HİZMETLERİ GİDERLERİ"
    .AddItem "TAŞIT YAKIT GİDERLERİ"
    .AddItem "TAŞIT BAKIM ONARIM GİDERLERİ"
    .AddItem "PARK-KÖPRÜ VE OTO YOL GEÇİDİ GİDERLERİ"
    .AddItem "TAŞIT VERGİLERİ"
    .AddItem "TAŞIT SİGORTASI"
    .AddItem "TAŞIT SAİR GİDERLERİ"
    .AddItem "FAKS-TELEKS GİDERLERİ"
    .AddItem "POSTA-KARGO GİDERLERİ"
    .AddItem "ADSL GİDERLERİ"
    .AddItem "GAZETE-DERGİ-KİTAP GİDERLERİ"
    .AddItem "YÜKLEME-BOŞALTMA-HAMALİYE GİDERLERİ"
    .AddItem "HAFRİYAT GİDERLERİ"
    .AddItem "TEKNİK YARDIM GİDERLERİ"
    .AddItem "DENETİM VE DANIŞMANLIK GİDERLERİ"
    .AddItem "HUKUKİ DANIŞMANLIK GİDERLERİ"
    .AddItem "MİSAFİR AĞIRLAMA GİDERLERİ"
    .AddItem "HEDİYE AŞANTİYON GİDERLERİ"
    .AddItem "ÇİÇEK-DAVETİYE GİDERLERİ"
    .AddItem "İŞVEREN SENDİKA AİDATLARI"
    .AddItem "TİCARET SANAYİ ODASI AİDATLARI"
    .AddItem "İHRACATCI BİRLİKLERİ AİDATI"
    .AddItem "BORSA AİDATI"
    .AddItem "DİĞER AİDATLAR"
    .AddItem "KAMU KURULUŞLARINA YAPILAN BAĞIŞLAR"
    .AddItem "KAMU MENF. YARAR. DERN. BAĞIŞLARI"
    .AddItem "VERGİDEN MUAF DER. BAĞIŞLAR"
    .AddItem "OKUL-KREŞ-SPOR-SAĞ. KUR. YAPILAN BAĞIŞLAR"
    .AddItem "EMLAK VERGİLERİ"
    .AddItem "DAMGA VE HARÇ PULU GİDERLERİ"
    .AddItem "NOTER HARÇLARI"
    .AddItem "BELEDİYE VERGİLERİ"
    .AddItem "MADENLERDE DEVLET HAKKI"
    .AddItem "TİC. SİCİL VE ODA HARÇLARI"
    .AddItem "DİĞER VERGİ RESİM VE HARÇLAR-ÖZEL İLETİŞİM VERGİSİ"
    .AddItem "ORMAN KULLANIM BEDELİ"
End With

    With ListView1
        .View = lvwReport
        .LabelEdit = lvwManual
        .FullRowSelect = True
        .ColumnHeaders.Clear
        .ColumnHeaders.Add , , "Sıra No", .Width / 20
        .ColumnHeaders.Add , , "Tarih", .Width / 12
        .ColumnHeaders.Add , , "Giriş/Çıkış", .Width / 14
        .ColumnHeaders.Add , , "Banka Adı", .Width / 7
       
        .ColumnHeaders.Add , , "İşlem Türü", .Width / 10
        .ColumnHeaders.Add , , "Fatura No", .Width / 15
        .ColumnHeaders.Add , , "Hesap Numarası", .Width / 10
        .ColumnHeaders.Add , , "Giriş Şekli", .Width / 16
        .ColumnHeaders.Add , , "Gider Yeri", .Width / 10
        .ColumnHeaders.Add , , "Gider Türü", .Width / 5
        .ColumnHeaders.Add , , "Açıklama", .Width / 5
        .ColumnHeaders.Add , , "Alacak", .Width / 14
    
        .ColumnHeaders.Add , , "Borç", .Width / 14
        .ColumnHeaders.Add , , "Bakiye", .Width / 14
  
        sh = Sheets("KASA").Name
        
        satirsay = Sheets("" & sh).[a65000].End(3).Row
        
        If satirsay > 6 Then
        
          For i = 7 To Sheets("" & sh).[a65000].End(3).Row
              .ListItems.Add , , Sheets("" & sh).Cells(i, 1)
              For ii = 1 To 13
                  .ListItems(.ListItems.Count).SubItems(ii) = Sheets("" & sh).Cells(i, ii + 1)
              Next
          Next
          
        End If
    End With
    

End Sub

 

[udentr2002]

hocam

kodları yazıp çalıştırdığımızda formu açtığımızda sayfa tam olarak görünüyor yanlız textboxlara veri girip kaydet tuşuna bastığımzda listview deki bilgileri çift gösteriyor yani üsütüne yeniliyor denerseniz ne demek istediğim daha iyi anlarsınız formu açıp textboxlara veri girin ve kaydet tuşuna basın listview deki bilgiler altına tekrar aynı bilgileri yazıyor

 

[Zeki Gürsoy]

Kırmızı ilavenin de yapılması gerekir.

With ListView1
        .View = lvwReport
        .LabelEdit = lvwManual
        .FullRowSelect = True
        .ColumnHeaders.Clear
        [color=red].ListItems.Clear[/color]
              *
              *
              *
End With

 

[udentr2002]

hocam çok teşekkür ederim emeğinize ve bilginize sağlık