DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1,B2,C3,F1")) Is Nothing Then Exit Sub
Range("C5").GoalSeek Goal:=[F1], ChangingCell:=Range("C4")
[c4] = Round([c4], 2)
End Sub
Çözdüm olayı, kodun diğer satırında hata yapmışım. Toplam satış fiyatını ayarlamam gerekirken, kâr oranını ayarlamışım. Kod aşağıdaki gibi olmalı:
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1,B2,C3,F1")) Is Nothing Then Exit Sub Range("C5").GoalSeek Goal:=[F1], ChangingCell:=Range("C4") [c4] = Round([c4], 2) End Sub
Sağlamanın da yapıldığı örnek dosya ektedir:
https://drive.google.com/file/d/0B43WMUs21VpfamxISjkzd3hEM00/view?usp=sharing
Çözdüm olayı, kodun diğer satırında hata yapmışım. Toplam satış fiyatını ayarlamam gerekirken, kâr oranını ayarlamışım. Kod aşağıdaki gibi olmalı:
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1,B2,C3,F1")) Is Nothing Then Exit Sub Range("C5").GoalSeek Goal:=[F1], ChangingCell:=Range("C4") [c4] = Round([c4], 2) End Sub
Sağlamanın da yapıldığı örnek dosya ektedir:
https://drive.google.com/file/d/0B43WMUs21VpfamxISjkzd3hEM00/view?usp=sharing
Biz programda sunu girebilirmiyiz maliyet fiyati yerine maliyet araligi seklinde girsek 2 deger girsek ornegin 1 ve 1.5 lira arasina gibi. Degerler degisken olsa diger kargo komisyon ve kar yerleri ayni kalsa.Merhaba. Tam olarak ne istediğinizi anlamadım. Ancak anladığım kadarıyla 0,50 lira 1 liranın %50'si iken 2 liranın %25'idir. Dolayısıyla belirttiğiniz gibi aralıklar ne kadar birbirine yakın olursa yüzdelik hesap da o kadar yakın olur.
Elbette yapılabilir. Bunun için tüm alternatifleri belirlerseniz ona göre gerek formül gerek makroyla çözüm bulmaya çalışırız.
Eğer tüm alternatifleri belirlerseniz makroya gerek kalmadan formülle çözülebilir.
Excel'e şartlar öğretildiğinde sonucu bulması çok basit olur. Şu şöyleyse şunu yap, böyleyse bunu yap. Dediğim gibi siz tüm şartları ve o şartlara karşılık ne olması gerektiğini belirleyin, formül işi kolay olur.
Tekrar tekrar aynı şeyleri söyletiyorsunuzSiz tüm şartlarınızı belirleyin ondan sonra sorunuzu sorun bence.
Ekli dosyada bir şeyler yapmaya çalıştım, inceleyiniz:
https://drive.google.com/file/d/0B43WMUs21VpfTmVNbFNxY21aSU0/view?usp=sharing
Sayfa2'ye bakmadınız mı? Bir de ekteki dosyanın Sayfa3'ünü inceleyin:
https://drive.google.com/file/d/0B43WMUs21VpfTmVNbFNxY21aSU0/view?usp=sharing
Örneğimde üst sınırı ayrıca belirtmeye gerek yok çünkü sonraki kademenin alt sınırı aynı zamanda önceki kademenin üst sınırı kabul edilir.