(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.
