Çözüldü Listview koşullu renklendirme

[Bluekaya]

Merhabalar hocalarım listview hakkında pek bir bilgim yok bende sizlerin bana öğrettikleri doğrultusunda kendimi geliştiriyorum yardımlarınız için teşekkür ederim.

Listviewde stok sayısı 0 a düşenleri kırmızı yapıyorum ama aynı zamanda eksiye düşen ( Örnek: -1 ) stoklarında kırmızı olmasını istiyorum kodlarım aşağıda teşekkür ederim.


HTML:

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

 

[Refaz]

UCase(Sheets("ürünstok").Cells(i, 3).Value)

Ucase kullanmanıza gerek yok burda.

Alttaki gibi or kullanıp deneyin if koşulunda

HTML:

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

 

[Bluekaya]

Öncelikle ellerinize sağlık hocam ama maalesef olmadı kodlar kırmızı yakıyor eksik yada hatalı ayrıca -1 i örnek verdim -10 da olabilir -25 de olabilir stok ta - ibaresini görünce kırmızı olmalı sizin yazdığınız kodda "0" ve "-1" olunca kırmızı yanar

 

[Bluekaya]

Dosya ektedir hocam

 

[Byyazar]

Merhabalar hocalarım listview hakkında pek bir bilgim yok bende sizlerin bana öğrettikleri doğrultusunda kendimi geliştiriyorum yardımlarınız için teşekkür ederim.

Listviewde stok sayısı 0 a düşenleri kırmızı yapıyorum ama aynı zamanda eksiye düşen ( Örnek: -1 ) stoklarında kırmızı olmasını istiyorum kodlarım aşağıda teşekkür ederim.


HTML:

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

Merhaba Kodların güncel hali

HTML:

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

 

[Refaz]

Merhaba denemedlm ama çalışması gerek

HTML:

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

 

[Bluekaya]

Merhaba denemedlm ama çalışması gerek

HTML:

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

maalesef hocam eksiye düşen rakamlar renklenmiyor

 

[Refaz]

Farkındaysanız hep bir üst satır renklenmiş.
İ+1 deki +1 i silip deneyin akşam bakarım bende.

 

[Refaz]

.ListItems(x).ForeColor = vbRed

Abey koda baktım x sıfırdan başlamış i ise 1 den.
Yukardaki kodu x+1 olarak değiştirin diperinide aynı.

 

[Bluekaya]

tamam sorunu çözdüm hocam

If (Sheets("ürünstok").Cells(i, 3).Value) <= "0" Then

bu şekilde tırnak işaretlerini ekleyerek.

 

[Refaz]

Abey koda baktım x sıfırdan başlamış i ise 1 den.
Yukardaki kodu x+1 olarak değiştirin diperinide aynı.

Diğer üstadın koda bakmışım
Neyse akşam doayayı indirip hallederim .
Byyazar üstadıki çalışmadımı?

 

[Bluekaya]

Diğer üstadın koda bakmışım
Neyse akşam doayayı indirip hallederim .
Byyazar üstadıki çalışmadımı?

hallettim hocam tırnak işaretleri eksikmiş ekledim oldu

diğer üstadın yazdığını okumadan atlamışım özür onun çözümü denemek nasip olmadı.

 

[Refaz]

Tamam abey.
Normalde tırnak işaretine gerek yok gibiydi ama çözülmüş sevindim

 

[Refaz]

tamam sorunu çözdüm hocam

If (Sheets("ürünstok").Cells(i, 3).Value) <= "0" Then

bu şekilde tırnak işaretlerini ekleyerek.

Dosyayı indirip tırnaksız denedim bende renklendi abey.

HTML:

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