Bir formül çözemedim yardım rica ediyorum

[kadir_bb]

Sayın arkadaşlar

a*c/b*d= x şeklinde bir formülüm var;
burada a,b,c,d sayıları;
e sütununda bulunan ve 100 satırdan oluşan bir tamsayı listeden alınmaktadır.
buna göre yapmak istediğim a,b,c,d sayılarını her sayıyı formül içerisinde sadece 1 defa kullanarak eşitlik sağlanana kadar döngüyü tekrarlamak
örnek olarak
1-2-3-4-5-6-7-8.... listemiz olsun
1 döngü a=1,b=2,c=3,d=4 listeden seçilenler (sonuç biliniyor X=0.5)
1*3/2*4=0.5 sonuç yanlış
2 döngü a=1,b=2,c=3,d=5 listeden seçilenler X=0.5
1*3/2*5=0.5 sonuç yanlış
3 döngü a=1,b=2,c=5,d=6 listeden seçilenler X=0.5
1*5/2*6=0.5 sonuç yanlış
doğru sonuca ulaşana kadar işlem devam edecek

yardımcı olacak arkadaşlara şimdiden teşekkür ederim
iyi günler dilerim .

 

[kulomer46]

Aşağıdaki kod işinizi görür..
Sub Düğme1_Tıklat()
Dim i, j, k, l, x, x1, x2, deneme
x = 0.5
x1 = 100
For i = 1 To x1
For j = 1 To x1
If j = i Then GoTo j1
For k = 1 To x1
If j = k Or k = i Then GoTo k1
For l = 1 To x1
If l = k Or l = j Or l = i Then GoTo l1
deneme = deneme + 1
If Cells(i, 5) * Cells(j, 5) * Cells(k, 5) / Cells(l, 5) = x Then
Cells(1, 1) = "a = " & Cells(i, 5)
Cells(1, 2) = "b= " & Cells(j, 5)
Cells(1, 3) = "c= " & Cells(k, 5)
Cells(1, 4) = "d= " & Cells(l, 5)
MsgBox deneme & " deneme sonunda bulundu."
Exit Sub
End If

l1:
Next
k1:
Next
j1:
Next
Next
MsgBox "bulunamadı " '& deneme

End Sub

 

[kadir_bb]

Yardımınız için teşekkür ederim iyi günler dilerim

 

[kulomer46]

Sorunuz diğer sorular gibi değildi, ilgimi çekti.. Yardımcı olabildiysek ne mutlu bize..