• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

listwiew e veri alamıyorum

Katılım
25 Aralık 2007
Mesajlar
335
Excel Vers. ve Dili
exel 2000 türkçe
ekteki dosyadaki litwiew e ne yaptıysam veri alamadım
başlıkları da yazdıramadım lütfen yardım
list wiew baslık adları
a sütünü hiç bir şekilde gözükmeyecek
listwiew 1 nci sutun tarih
listwiew 2 nci sutun işlem cinsi
listwiew 3 nci sutun işlem türü
listwiew 4 nci sutun türü
listwiew 5 nci sutun açıklama
listwiew 6 nci sutun miktar
saygılar
 

Ekli dosyalar

  • son.xls
    son.xls
    93.5 KB · Görüntüleme: 11
Dosyanız ektedir.:cool:
Kod:
With ListView1
    sat = Sheets("CARİ").Cells(65536, "B").End(xlUp).Row
    .View = lvwReport
    .ColumnHeaders.Add , , "tarih"
    .ColumnHeaders.Add , , "işlem cinsi"
    .ColumnHeaders.Add , , "işlem türü"
    .ColumnHeaders.Add , , "sutun türü"
    .ColumnHeaders.Add , , "sutun açıklama"
    .ColumnHeaders.Add , , "sutun miktar"
        For i = 2 To sat
            .ListItems.Add , , Sheets("CARİ").Cells(i, "B").Value
            With .ListItems(i - 1)
                .SubItems(1) = Sheets("CARİ").Cells(i, "C").Value
                .SubItems(2) = Sheets("CARİ").Cells(i, "D").Value
                .SubItems(3) = Sheets("CARİ").Cells(i, "E").Value
                .SubItems(4) = Sheets("CARİ").Cells(i, "F").Value
                .SubItems(5) = Sheets("CARİ").Cells(i, "G").Value
            End With
        Next i
End With
 

Ekli dosyalar

hocam walla çalışmadı
birde eğer tekrar uğraşısanız şöyle bir ricam olacak
liswiew1 combobox 4 ün değerine göre filtre yapmalı.
bu çalışmayı (eğer becerebilirsem bir muhasebe programı olarak çalıştırmayı düşünüyorum)
dolayısı ile bir çok userform lar olacak ve hepsi a sutun undan kayıt yapacak
yani şunu söylemek istiyorum. Yeni eklediğim dosyada örnek var)
a sutuunda kasa yazıyor cari yazıyor xxxx daah bi sürü olacak
bu formu kasa formu olarak tasarladım
demekki bu form içindeki listwiew
a sutunda sadece kasa yazan işlmeleri göstermeli diğerlerini filtrelemeli.
saygılar
 

Ekli dosyalar

Merhaba.
Bende çalıştı.
Siz listviewi silip tekrar ekleyip deneyin.Benim sp6 versiyonu kurulu ve makinem 64 bit olduğu için olabilir.
15185.jpg
 
Geri
Üst