Listviewe veri getirme

[TİKOS]

sayın hocalarım artık son dönemeçe girdim. Bu konudada yardımınızı rica ediyorum.
Ekteki dosyada pizza,salata,tatlı,içecek butonlara tıkladığımda satış_maliyet excel tablosundan ilgili bölümlerinin listview olarak görmek istiyorum
ben başaramadım sizden yardım rica ediyorum.
teşekkürler

 

[Muzaffer Ali]

Her bir grup için ayrı sayfalar kullanılarak yapmak daha doğru gibi duruyo. Dosya ekte istediğiniz gbi olmuş mu?

 

[TİKOS]

teşekkürler, bu şekilde olacak gibi gözüküyor
yalnız rakamları iki dijit nasıl yapabiliriz. Listwievde 8,00 gibi

 

[Muzaffer Ali]

Hangi kolonu yapmak istiyosanız aşağıdaki gibi yapın

Eski hali

.ListItems(x).SubItems(9) = Cells(i + 1, 10)

Yeni hali

.ListItems(x).SubItems(9) = [COLOR="Red"]FormatNumber([/COLOR]Cells(i + 1, 10)[COLOR="red"], 2)[/COLOR]

 

[TİKOS]

hocam çok sağol ama
aşağıdaki hatayı alıyorum
Type mismatch

 

[Muzaffer Ali]

ben sadece bir örnek verdim size siz o örneğe bakarak rakam içeren kolonlara bunu yazmalısınız

eğer kolonda bir satırda boşluk varsa da aynı hatayı alırsınız ilgili hücredeki verinin kesinliikle rakam olması gerekir. En azından boş hücreleri sıfır(0)yaparak hatadan kurtulabilirsiniz.

ayrıca dosyayı yeniledim ektekini indiriniz.

 

[TİKOS]

çok iyi olmuş teşekkürler
ama ben bir türlü yapamadım 2 dijit olayını
son gönderdiğiniz dosya da siz uygulayabilirmisiniz.
Kusura bakmayın uğraştırıyorum ama
o olmayınca eksik oluyor

 

[Muzaffer Ali]

.ListItems(x).SubItems(9) = Cells(i + 1, 10)

satırını silin aşağıdakini yazın

If Cells(i + 1, 10) = "" Then Cells(i + 1, 10) = 0'Eğer hücre boşsa 0 yaz ki hata vermesin
.ListItems(x).SubItems(9) = FormatNumber(Cells(i + 1, 10), 2)'Değer virgülden sonra iki ondalıklı göster

 

[TİKOS]

ok. teşekkürler

 

[TİKOS]

dalgalıkur hocam, dün aldım fırsatı şimdi buldum ama olmuyor
bir yerde hatamı yapıyorum anlamadım. Çok sıkıntıya soktu beni
sizide çok sıktım biliyorum ama üsteki calisma 4 dosyasında uygulayabilirmisiniz.
tekrar kusura bakmayın
bir el atmınızı rica ediyorum.
tşk

 

[Muzaffer Ali]

Dosya ekte

 

[TİKOS]

teşekkürler bu sefer oldu. elinize sağlık
Bana daha önce gönderdiğiniz maillerde .ListItems(x).SubItems(9) = FormatNumber(Cells(i + 1, 10).Value, 2) value yoktu bizde acemiyiz düşünemedik.
çok teşekkürler