makro ile şöyle bi şey oluyor;
Sub toplam_18()
'ilgili sayilar 1. sütünda kabul edilmistir
n = 22 'toplam satir sayisi
toplam = 18 'ulasilmasi istenilen sayi
m = 1 'sayac
For i = 1 To n
For j = 1 To n
For k = 1 To n
arama = Cells(i, 1) + Cells(j, 1) + Cells(k, 1)
If arama = toplam Then
Cells(m, 2) = i
Cells(m, 3) = j
Cells(m, 4) = k
Cells(m, 5) = "satirlari toplamı 18'dir"
m = m + 1
End If
Next k
Next j
Next i
End Sub
0