Çözüldü listview değere göre renklendirme

[dogan.importexport]

Selamlar ekte dosyada E sütunundaki rakamlar sıfırdan küçük ise listviewde rakam kırmızı görünsün eğer sıfırdan büyük ise listview satırı komple mavi olsun.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde deneyebilirsiniz

 

[halily]

arada atlanan sütunlar yoksa ekleme işlemini döngüyle yapmak daha uygun olabilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

yukardaki yerine
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

şeklinde

 

[dogan.importexport]

Sıfırdan küçükler için gayet güzel oldu teşekkürler. Fakat sıfırdan büyük ise tüm satırı mavi de yapabilirmisiniz.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[dogan.importexport]

Ve bu ilk rakam eksi olmasına rağmen kırmızı yapmıyor. Sadece
If Sheet3.Cells(i + 1, "E") < 0 Then lst.ListSubItems(4).ForeColor = vbRed bu kısmı kullandım. Komple kullanırsam hata veriyor

 

[halily]

aşağıdaki kodu dener misiniz?HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[dogan.importexport]

İlk kolon renk değiştirmiyor hiç. Ayrıca 13 sütun var tablomda ama siz 1 to 12 yapmışsınız. İlk kolonun Renk değiştirmeme sebebi bu olabilir mi

 

[Refaz]

Tutar renklenecekse kodu resimdeki yere ekleyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ilk sütun için
If Sheet3.Cells(i, "E") > 0 Then ListView1.ListItems(i - 1).ForeColor = vbBlue <==bu satır eklenecek

 

[dogan.importexport]

Tutar renklenecekse kodu resimdeki yere ekleyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 3188

Bunda sorun yok. Ancak sıfırdan büyük ise komple satırı mavi yapsın. Bu kısım henüz çözülemedi

 

[halily]

Ayrıca 13 sütun var tablomda ama siz 1 to 12 yapmışsınız

ilk sütun zaten ListView1.ListItems.Add ile eklendiğinden geriye alt sütun olarak 12 tane kalıyor

 

[Refaz]

Bunda sorun yok. Ancak sıfırdan büyük ise komple satırı mavi yapsın. Bu kısım henüz çözülemedi

Aynı mantıkla olmuyormu denediniz mi?

 

[dogan.importexport]

Hayır olmuyor.Olsada ben yapamıyorum

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[dogan.importexport]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ilk kolon için
If Sheet3.Cells(i, "E") > 0 Then ListView1.ListItems(i - 1).ForeColor = vbBlue <==bu satır eklenecek

Bu şekilde oldu. ancak kodları değiştirirsem bendekilerle tüm yapıyı değiştiriyor. Çünki aynı tipte 25 e yakın userform ve modüller var. Eğer yapıyı bozmaz derseniz. Bu kodu aynı tipteki tüm formlara kopyalama yapacağım

 

[dogan.importexport]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ekli dosyayı görüntüle 3189

Bu da harika oldu. Kod yapısını değiştirmeme gerek kalmadı. Çok teşekkür ederim. Hem size Hemde Halilly beye. en azından hiç yokken elimde iki tane oldu. Madem başladık webbrowser ile ilgili sorduğum sorular var. İlgilenirmisiniz.

 

[Refaz]

Rica ederiz.Webbrowser bende çalışmıyor nedense.
32 bir önceden çalışıyordu şimdi olmuyor boş ekran geliyor.

 

[dogan.importexport]

Evet daha önce söylemiştin. ama muhakkak bir bilen çıkacaktır.

 

[Refaz]

Önceden söylediğim pdf çalışmıyorduki haha çalışmıyor.Webrowser çalışıyordu o da gitti elden
Güncelleme yaptım 2016 officeyi.Belki bundandır.