• DİKKAT

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

listview listeleme sorunu

B

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
674
Excel Vers. ve Dili
2010 Türkçe
Merhaba,

Aşağıdaki kodla listview veri sıralamak istiyorum ama son bitiş tarihini getiremedim yardımcı olabilir misiniz, kırmızı alan çalışmıyor,
B3 -F3 dahil sıralamak istiyorum,

Teşekkürler,


Kod: 
Private Sub CommandButton1_Click()
  Dim X As Integer
    Dim Liste As ListItem
        ListView1.ListItems.Clear
        With Sheets("Hesaplama Dönemi")
           For i = 3 To .[a65536].End(3).Row
              X = X + 1
                Set Liste = ListView1.ListItems.Add(, , .Cells(i, 2).Value)
                    Liste.SubItems(1) = .Cells(i, 3).Value
                    Liste.SubItems(2) = .Cells(i, 4).Value
                    Liste.SubItems(3) = .Cells(i, 6).Value
                    Liste.SubItems(4) = .Cells(i, 8).Value
                    [COLOR="Red"]Liste.SubItems(5) = .Cells(i, 10).Value[/COLOR]
                
    
            Next i
        End With
    Set Liste = Nothing
End Sub
 
Liste.SubItems(5) = .Cells(i, 10).Value tanımlamanızda varmı yokmu bilemeyiz. Lütfen konularınızı örnek dosya ile destekleyiniz.
 
Yukardaki kodun yerine ekleyin. Kırmızı ile belirtilen yerler verilerin bulunuğu sütun numaralarıdır.
Kod: 
Private Sub CommandButton1_Click()
  Dim X As Integer
    Dim Liste As ListItem
        ListView1.ListItems.Clear
        With Sheets("Hesaplama Dönemi")
           For i = 3 To .[b65536].End(3).Row
              Set Liste = ListView1.ListItems.Add(, , .Cells(i, [COLOR="Red"]2[/COLOR]).Value)
                    Liste.SubItems(1) = .Cells(i, [COLOR="red"]3[/COLOR]).Value
                    Liste.SubItems(2) = .Cells(i, [COLOR="red"]4[/COLOR]).Value
                    Liste.SubItems(3) = .Cells(i, [COLOR="red"]5[/COLOR]).Value
                    Liste.SubItems(4) = .Cells(i, [COLOR="red"]6[/COLOR]).Value
            Next i
        End With
    Set Liste = Nothing
End Sub
 
Teşekkürler sayın vardar size bir sorum daha olacak ama,

aşağıdaki kodla textboxlardan excele veri aktarıyorum kırmızı ile olan textboxa 30 yazdığımda bunu hücreye %30,00 olarak aktarmasını nasıl sağlayabilirim,

Teşekkürler,

Kod: 
Private Sub CommandButton1_Click()
With Sheets("Kiralık Araç Sözleşme Listesi")
Satır = .Range("A65536").End(3).Row + 1 ' a sütunundaki son dolu satırı bulup bir sonraki satıra aşağıdaki işlemi yapar
.Cells(Satır, 1) = TextBox1 
[COLOR="Red"].Cells(Satır, 3) = TextBox3[/COLOR]
.Cells(Satır, 4) = CDate(TextBox4.Text) 
.Cells(Satır, 5) = CDate(TextBox5.Text)
    

End With
End Sub
 
Deneyiniz.
Kod: 
.Cells(Satır, 3) =Format(TextBox3, "% ##.00")
 
Son düzenleme:
Sayın vardar ilginize teşekkürler ,

Fakat aşağıdaki hatayı veriyor kod,
Compile error
Syntax error

Kod: 
Private Sub CommandButton1_Click()
With Sheets("Kiralık Araç Sözleşme Listesi")
Satır = .Range("A65536").End(3).Row + 1 ' a sütunundaki son dolu satırı bulup bir sonraki satıra aşağıdaki işlemi yapar
.Cells(Satır, 1) = TextBox1 ' üçüncü sutuna textbox2 yazar
.Cells(Satır, 2) = CCur(TextBox2)
.Format(.Cells(Satır, 3) = TextBox3, "% ##.00")
.Cells(Satır, 4) = CDate(TextBox4.Text) 'birinci sütuna Textbox1 tarih formatında yazılır
.Cells(Satır, 5) = CDate(TextBox5.Text) 'birinci sütuna Textbox1 tarih formatında yazılır
 
Kopyala yapıştırı yanlış yapmışım özür dilerim. Üst mesajda yeniledim.
 
Tarihe göre işlem

Sayın vardar öncelikle desteğiniz için tekrar teşekkür ederim,

Ek dosya hakkında tekrar desteğinizi rica ederim,

"Motorin Girişleri" ne tıklayıp çıkan Userform'da Tarih ve tutar girdiğim kaydet dediğim zaman "MOTORİN FİYATLARI" sayfasında tarihi bulup karşısına tutarı nasıl yazdırabiliriz,

Ayrıca daha önce siteden ulaşmış olduğum bul komutuna ait kodu kendi dosyama uygulamaya çalıştım ama ne yazık ki olmadı yapmak istediğim hesaplama dönemine tıkladığımda listele dediğimde tüm listeyi dökmesi Plaka yazdığımda o plakaya ait verileri dökmesi, dönem dediğimde o döneme ait verileri dökmesi her iki alanda doluysa bu iki alana göre listeleme yapması,

Birde anlayamadığım şekilde "SSözleşme Listesi" tıklayıp yeni kayıt yapınca "Kira Hesaplama" sayfasındaki plakaların olduğu Listbox1 otomatik olarak küçülüyor bu neden olabilir,

Son olarak da "Kira Hesaplama" sayfası hariç tüm sayfaların gizli olmasını sağ tıkla göster deyip sayfaya ulaşılmaması gerekiyor,

Çok fazla olduğumun farkındayım ama destek verirseniz sevinirim,

Saygılarımla,

Teşekkürler,
 

Ekli dosyalar

Son düzenleme:
Sayın vardar kusura bakmayın sağlık sorunları nedeni ile dosyayı inceleyememiştim,

Bugün bakma fırsatım oldu, dosyadaki kodları uyguladığımda sonuca ulaşamadım, aşağıdaki durumlar çalışmadı motorin fiyatlarında tarih bulunamadı hatası alıyorum,

Bul komutunda ise plaka ve tarihe göre bulmuyor tüm listeyi yeniliyor,

Motorin Girişleri" ne tıklayıp çıkan Userform'da Tarih ve tutar girdiğim kaydet dediğim zaman "MOTORİN FİYATLARI" sayfasında tarihi bulup karşısına tutarı nasıl yazdırabiliriz,

Ayrıca daha önce siteden ulaşmış olduğum bul komutuna ait kodu kendi dosyama uygulamaya çalıştım ama ne yazık ki olmadı yapmak istediğim hesaplama dönemine tıkladığımda listele dediğimde tüm listeyi dökmesi Plaka yazdığımda o plakaya ait verileri dökmesi, dönem dediğimde o döneme ait verileri dökmesi her iki alanda doluysa bu iki alana göre listeleme yapması,

Desteğinizi rica ederim,

Saygılarımla,
 
1. motorin fiyatlarında tarih bulunup yan hücreye yazıyor.
2.plaka girince süzme
3.dönem girince süzme
4. plaka ve dönem girince süzme.
5.hepsini gösterme.
Userform1 ve Userform3 ü deneyiniz.

Dosya #12 nolu mesajda.
 
Sayın Vardar Merhaba,

Sayfa #12'deki dosyayı açtığımda "Could not load object because it is not avilable on this machine" diye bir uyarı verdi,daha sonrasında userform3 tıkladığımda "Compile error" "Can't find project or library" hatası veriyor,

Userform1 de de aynı hatayı alıyorum acaba benmi yanlış birşey yapıyorum,

Saygılarımla

Teşekkürler,
 
Sayın Vardar Merhaba,

Biraz kurcalayınca sorunun bir kısmını çözdüm, motorin fiyatları tamam, hesaplama dönemi "Userform1" kira hesaplama sayfasındayken dönem ve plakaya göre süzme yapmıyor ama hesaplama dönemi sayfasında süzme işlemini gerçekleştiriyor, bunu kira hesaplama sayfasında süzmesi için nasıl bir değişiklik yapmak gerekiyor,

Ayrıca motorin fiyatlarında da aynı şekilde süzme işlemi yapabilir miyiz,

Dosyanın son hali ekte emeğiniz ve sabrınız için çok teşekkürler,

Saygılarımla,
 

Ekli dosyalar

Dosya #12 nolu mesajda.
 
Çok teşekkürler sayın vardar,

Emeğinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst