Matematiksel işlemi excel makroda yaptırma

[ekolman2003]

Mbüyük moment=a Döşemenin Kısa Kenarı=x

Mküçük moment=b Döşemenin Kısa Kenarı=y

Mdhesap=? (c)

yapılacak işlmler şöyle:

Mküçükmomentin Mbüyük momente oranı 0,8 ve daha büyük bir sonuçsa Mdhesap=Mbüyükmoment

0,8 den daha küçük bi değerse, (Mbüyükmoment-Mküçükmoment) değerini Kısa kenarlarıyla ters orantılı olacak şekilde;
Mbüyükmoment-(Mbüyükmoment-Mküçükmoment)*(y/(x+y))
Mküçükmoment+(Mbüyükmoment-Mküçükmoment)*(x/(x+y)) şeklinde işlem yaptırım buradan Mdhesabı bunlardan büyük olanını seçtiricek şekilde makro yazmak.
çok acemiyim yardımlarınızı bekliyorum.


Sub HESAP()


'Input a,b,x,y

a = dagıtım.Cells(6, 5)
b = dagıtım.Cells(8, 5)
x = dagıtım.Cells(6, 10)
y = dagıtım.Cells(8, 10)
dagıtım.Cells(10, 5) = c

If (b / a) >= 0.8 Then GoTo 20 Else GoTo 10

10 DM = (a - b)
k1 = y / (x + y)
k2 = x/ (x + y)
M1 = a - k1 * DM
M2 = b + k2 * DM
If M1 >= M2 Then c = M1 Else c = M2
dagıtım.Cells(10, 5) = c

20 If a >= b Then c = a Else c = b
dagıtım.Cells(10, 5) = c


End Sub

gibi bi işlem yaptım ama çalışmadı..

 

[hımmmmmmmm]

slm

hesaplamanı doğru kabul edip, excelde çalışır haldeki durumu..
bir incele...
ayrıca çalışma ekde..
'------------------------------------------------

Private Sub CommandButton1_Click()

a = Cells(1, 2)
b = Cells(2, 2)
x = Cells(3, 2)
y = Cells(4, 2)
'---------------------------
If (b / a) >= 0.8 Then
     GoTo 20
     Else:
     GoTo 10
End If

10:
    DM = (a - b)
    k1 = y / (x + y)
    k2 = x / (x + y)
    M1 = a - k1 * DM
    M2 = b + k2 * DM
    If M1 >= M2 Then
        c = M1
        Else:
        c = M2
    End If
    Cells(6, 2) = c
    Exit Sub

20:
    If a >= b Then
       c = a
       Else:
       c = b
    End If
    Cells(6, 2) = c
End Sub

 

[ekolman2003]

hocam çok teşekkür ederim...epey uğraşmıştım buna..çok sağol