eğerli formülü makro ile yapmak

[moebius06]

selamlar

=EĞER(F6=0;((F6*0)+100);EĞER(F6=1;((F6*0)+95);EĞER(F6=2;((F6*0)+90);EĞER(F6=3;((F6*0)+85);EĞER(F6=4;((F6*0)+80);EĞER(F6=5;((F6*0)+75);EĞER(F6>5;((F6*0)+50))))))))

aynı sheet içerisinde farklı sütunlarda yukarıdaki formüle benzer formüllerle
değerler aldırıyorum... ama bunların sonuçları geldiğinde #sayı/0! gibi hatalar verdiği için genel ortalamaları aldıramıyorum...
örnek B sütunda iki tarih arasındaki gün sayısı v.b......
bu sütunlardaki değerler bazı sütunlarda 0,75 /0,50 /0,25 de olabiliyor.

sorum; makro ile
1. her sütun için bu değerleri nasıl tanımlarız 1 den 10000 satır gibi..
2. bu çalışma kitaplarından isimleri değişik olarak yaklaşık 300 kadar var
3. yaklaşık 15 sütunda farklı şartlarda eğerli formül var....

ricam
çalışma kitabı adı ile birlikte row / cell ve şartlara göre nasıl kodu yazarız
yukarıdaki eğerli formüle göre bir örnek tanımlarsanız ( 1 den 10000 satır olacak şekilde ) geri kalanı düzenleyecebileceğimi zannediyorum.

saygılar

 

[Ömer BARAN]

Merhaba.

Sorularınızı örnek belgeyle destekleyerek sonuca ulaşmayı hızlandırabilirsiniz.
Örnek belge özellikleriyle ilgili açıklama cevabımın altındaki İMZA bölümünde var.

Her seçenekte (F6*0)+... yazmışsınız, o kısımdaki maksatınız nedir onu anlamış değilim
ama mevcut formül yerine aşağıdaki formül de aynı sonucu verir.
.

=(F6<6)*(100-5*F6)+(F6>5)*50

 

[moebius06]

hocam ilginiz için teşekkürler

amacım;
birden fazla değişen parametre var
eğer 1 ise farklı bir değer
eğer 2 ise ise farklı bir değer....3 ise , 4 ise....v.b atayarak gidecek.....
Örnek dosya sizlere gereksiz zahmet olmasın diye koymamıştım.Ekliyorum..
6 farklı parametreden eğerlerle seçme yapılacak.. sonuçta bunlarla bir değer oluşturulacak.
her parametre için ; örnek toplam 100 puan / 5 e bölünecek
1 ise 20 ....2 ise 40 ....3 ise 60 gibi buradan da bir ortalama alınarak hesaplama yapılacak.

şimdiden teşekkürler

 

[moebius06]

not; bunları eğerli formül yerine makro ile yapmak tercihimdir. öğrenmek adına
2 veri olmayan hücrelerde ( #DEĞER! yada # sayı /0!hataları olmamalı.....

 

[Ömer BARAN]

Tekrar merhaba.

-- F sütunundaki formülde ÇİFT TIRNAK arasındaki BOŞLUK karakterlerini silin.
-- Önceki cevabımda verdiğim formülü de aşağıdakiyle değiştirin.
-- Ayrıca tüm formüllerinizde sonucu sıfır olacağı belli olduğu halde bir şeyleri sıfır ile çarpmanızı,
çıkartma işlemi sonucunu da 1 ile çarpmanızı anlamış değilim.
.

=[COLOR="red"]EĞER[/COLOR](F6="";"";(F6<6)*(100-5*F6)+(F6>5)*50)

 

[Ömer BARAN]

Bir önceki cevabımda formül önerisinde bulundum.
Formüller (F ve M sütunu için) yerine aşağıdaki kod'u kullanabilirsiniz.
.

[B]Sub HESAPLA()[/B]
For satır = 6 To Cells(Rows.Count, "A").End(3).Row
    If Cells(satır, "D") <> "" And Cells(satır, "E") <> "" And Cells(satır, "D") < Cells(satır, "E") Then
        Cells(satır, "F") = CDate(Cells(satır, "E")) - CDate(Cells(satır, "D"))
            If CDate(Cells(satır, "E")) - CDate(Cells(satır, "D")) > 5 Then
                Cells(satır, "M") = 50
            Else
                Cells(satır, "M") = 100 - (Cells(satır, "F") * 5)
            End If
    End If
Next
[B]End Sub[/B]