listview de görünüm

[teknikyapı]

Merhaba.Eklediğim dosyada RAYİÇ KİTABI menüsünde her eklediğim ,değiştirdiğim ve sildiğim veriden sonra listview görünümü değişiyor.Yani her veri girişinde sağa doğru başlık verilerini alarak genişliyor.Sanırım sn anemos arkadaşımdan yararlandığım ve çok işimi gören ListView1.ListItems.Clear
Call UserForm_Initialize komutu ile ilgili birşey.Yardımcı olacak arkadaşlara teşekkür ederim.

 

[teknikyapı]

Arkadaşlar sorunumu kendi çapımda halletmeye çalıştım.Düzeltilmiş dosyayı benzer sorunlarla karşılaşan arkadaşlar için (listview de kaydet-değiştir-sil )örnek olması açısından ekliyorum.Eğer hatalı yerleri olduğunu düşünen/tespit eden arkadaşlarım var ise lütfen belirtsin.Çünkü ilk kez bu nesneyi kullanıyorum ezbere yapmak istemiyorum.İyi çalışmalar.

not : RAYİÇ KİTABI bölümünde

 

[teknikyapı]

Merhaba.Forumda aradım ama bulamadım.Lİstview de istenen satırı renkli yapabilirmiyiz acaba?Ayrıca bir sütundaki dolu hücreleri sayısını c = WorksheetFunction.CountA(ActiveSheet.Range("A:A")) formülü ile hesaplatabiliyoruz.Bu hücrelerde başında (*) işareti olanların sayısını nasıl buluruz acaba?

 

[Mahmut Kök]

Merhaba.Forumda aradım ama bulamadım.Lİstview de istenen satırı renkli yapabilirmiyiz acaba?Ayrıca bir sütundaki dolu hücreleri sayısını c = WorksheetFunction.CountA(ActiveSheet.Range("A:A")) formülü ile hesaplatabiliyoruz.Bu hücrelerde başında (*) işareti olanların sayısını nasıl buluruz acaba?

İstenen satırdaki yazıları renkli yapabilirsiniz.

Listview1.ListItems(1).ListSubItems(1).ForeColor = vbRed  'gibi.

Başında yıldız ( * ) işareti olanların sayısını da aşağıdaki gibi bir döngü ile bulabilirsiniz:

For a = 1 To [a65536].End(3).Row
If Left(Cells(a, "a"), 1) = "*" Then y = y + 1
Next
MsgBox y

 

[teknikyapı]

Sn mesleki yardımınız için çok teşekkür ederim.İyi çalışmalar

 

[teknikyapı]

sn mesleki döngü çalışıyor ama hep sıfır sonucu çıkıyor.Birdaha bakarsanız sevinirim

 

[teknikyapı]

sn mesleki özür dilerim bir harf hatası.sorun halloldu.Yardımlarınız için çok tşk ederim