(03/12/2023, 03:24)feraz yazdı: Bir deneyin hem biraz hızlandı hemde istediğiniz oldu gibi.
elinize sağlık sayın feraz gayet iyi olmuş. sadece birkaç eksik kalmış.
d sayısı değiştiğinde 1 lt maliyeti hesaplanıyor, bu rakam değiştiğinde w/v deki hesaplanan değerlerde değişmeli.
birde sayfa listesinde güncelle butonuna basıldığında listeye gelmesi gereken bilgileri ayarlayamadım.
Sayfa Listeleri
Ürün Adı
Türü
Tipi
Formu
liste başlıkları
saygılar.
Rica ederim.
Hata olursa yeni konu açın.
Kolay gelsin.
(03/12/2023, 17:11)feraz yazdı: Rica ederim.
Hata olursa yeni konu açın.
Kolay gelsin.
evet bu tam istediğim şekilde oldu. çok teşekkürler elinize sağlık sayın feraz.
kodları incelemeye ve öğrenmeye çalışıyorum. umarım öğrenirim.
kodun bu kısmında Dolar işareti koymak istiyorum
yuzKG_Tutar.NumberFormat = "#,##0.00 $"
şeklinde yazdığımda "₺" işareti oluyor.
yuzKG_Tutar.NumberFormat = "#,##0.00 €"
yaptığımda euro işareti oluyor. neden dolar işareti "₺" şeklinde görünüyor anlayamadım.
saygılar.
Bendede aynısı oldu garip şekilde.
Bende sonucu makro kaydet kodu ile alttaki gibi aldım ve çalıştı.
(03/12/2023, 19:12)hnakis yazdı: yuzKG_Tutar.NumberFormat = "#,##0.00 $"
Yada yukardakini silip alttakini ekleyin.Bunda hücreye tıklayınca simge gözüküyor öncekinde görükmüyor.
Kod:
yuzKG_Tutar.Value = Format(yuzKG_Tutar.Value, "#,##0.00 $")
Bu dosyayı deneyin.
Fiyatın toplamı ve 100 kg yazan yer ve Fiyat yazan yerin yazısı kalın oldu.
Anlamaya çalıştığınız için yazayım modül içindeki örnek olarak paramatre içinde As Worksheet olanın solundaki aktif yayfa oluyor diğer sub larda başka yazıyor.
Aslında modül yerine Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) burayada yazılabilinirdi.
Dediğimin içine alırsanızda as olandan öncekileri Sh olarak değiştirmeniz gerekiyor ama denemedim ve gerek yok.
Sub Aktar(ByVal syf As Worksheet)
(03/12/2023, 21:13)feraz yazdı: Bu dosyayı deneyin.
Fiyatın toplamı ve 100 kg yazan yer ve Fiyat yazan yerin yazısı kalın oldu.
Anlamaya çalıştığınız için yazayım modül içindeki örnek olarak paramatre içinde As Worksheet olanın solundaki aktif yayfa oluyor diğer sub larda başka yazıyor.
Aslında modül yerine Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) burayada yazılabilinirdi.
Dediğimin içine alırsanızda as olandan öncekileri Sh olarak değiştirmeniz gerekiyor ama denemedim ve gerek yok.
Sub Aktar(ByVal syf As Worksheet)
güzel olmuş.
syf.Cells(birKGMaliyet, "D").NumberFormat = "#,##0.000 $"
yada burası
syf.Cells(birLTMaliyet, "D").Value = syf.Cells(birKGMaliyet, "D").Value * syf.Cells(dBul, "D").Value
syf.Cells(birLTMaliyet, "D").NumberFormat = "#,##0.000 $"
kodun burası da "₺" şeklinde çıkıyor. anlamak için soruyorum.
neyse sorun değil artık elinize emeğinize sağlık.