yamahato
Altın Üye
- Katılım
- 20 Mayıs 2009
- Mesajlar
- 233
- Excel Vers. ve Dili
- excel 2007
- Altın Üyelik Bitiş Tarihi
- 30-09-2026
İyi geceler.
Bir userformum var. Bunda kullandığım label da ürünün satış fiyatında yaptığımız karın yüzde (%) olarak gözükmesini istiyoruz.
yaptığımız kar oranını aşağıda ki kod ile STOK isimli excel sayfasında ki aradığımız değerin bulunduğu satırda ki U hücresinden alıyoruz.
Bunun için şöyle bir kod yazdım.
Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
Me.Label39 = ""
For XD = son To 2 Step -1: If s1.Cells(XD, "B") = Me.ListBox1.Value Then Me.Label39 = "%" & s1.Cells(XD, "U"): Exit For
Next
Şimdi kod çalışıyor ama Stok isimli excel sayfasında ki U hücresinde %40 olarak gözüken sonuç labela yazdığımız kodun ilgili bölümüne "%" & eklemeden önce 0,4 iken
koda "%" & eklediğimde %0,4 çıkıyor.
Label da %40 yazması için sizden yardım istiyorum.
Yeni konuya resim yükleyemediğim için ekran görüntüsünü indirebileceğiniz linki koyuyorum.
excel 2.jpg - 168 KB
Bir userformum var. Bunda kullandığım label da ürünün satış fiyatında yaptığımız karın yüzde (%) olarak gözükmesini istiyoruz.
yaptığımız kar oranını aşağıda ki kod ile STOK isimli excel sayfasında ki aradığımız değerin bulunduğu satırda ki U hücresinden alıyoruz.
Bunun için şöyle bir kod yazdım.
Set s1 = Sheets("STOK")
son = s1.Cells(Rows.Count, "B").End(3).Row
Me.Label39 = ""
For XD = son To 2 Step -1: If s1.Cells(XD, "B") = Me.ListBox1.Value Then Me.Label39 = "%" & s1.Cells(XD, "U"): Exit For
Next
Şimdi kod çalışıyor ama Stok isimli excel sayfasında ki U hücresinde %40 olarak gözüken sonuç labela yazdığımız kodun ilgili bölümüne "%" & eklemeden önce 0,4 iken
koda "%" & eklediğimde %0,4 çıkıyor.
Label da %40 yazması için sizden yardım istiyorum.
Yeni konuya resim yükleyemediğim için ekran görüntüsünü indirebileceğiniz linki koyuyorum.
excel 2.jpg - 168 KB
