Yardım Kombinasyon Listeleme

Konunun bizim açımızdan daha iyi anlaşılabilmesi için 2 farklı örnek sormak istiyorum.

1= A1:2 A2:3 A3:5 A4:8 A5:9 (5'in 3'lüsü) çarpım işlemi yapılacak. Listeme D'ye olacak.

2= B1:2 B2:3 B3:5 B4:8 B5:9 B6:11 B7:12 (7'in 4'lüsü) toplama işlemi yapılacak. Listeleme E'ye olacak.

Makro içerisindeki;

1:Toplama ve çarpım işleminin yapıldığı yerleri kırmızı renkle belirtebilecek misiniz?
2:Listeleme yapılacak yeri mavi renkle belirtebilecek misiniz?

Merhaba;
Ekli dosyadaki iki sayfayı deneyin.
Makro içerisindeki 1,2 notunuzu anlamadım. (kodları dışarı alıp renklendirmek mi istiyorsunuz?

Sayın Uygun öncelikle değerli paylaşımınız için teşekkür ederim.Sorduğum soruların makro içerisindeki cevabını öğrenmiş bulunmaktayım.
Vermiş olduğunuz makrodan yola çıkarak (15'in 12'lisini) üretmek için alttaki makroyu hazırladım.

1)Mavi işaretlenmiş bölümde debug hatası aldım.Sanırım hatanın sebebi satır sayısı sınırıdır.Bu sorunu düzeltmek için ne yapmamız gerekir?
2)Kombinasyon içerisindeki seçilen hücrenin bir daha seçilmeme şartını nasıl uygulayabiliriz?
Örnek: 1= A1:2 A2:3 A3:5 A4:8 A5:9 (5/3) 2*2*2 değilde
2*3*5
3)Listeleme olmadan soru 2'de belirttiğim seçimlerin çarpım sonuçlarının ortalama değerini nasıl alabiliriz?

Sub kombinasyon_a()
Dim i As Long, k As Long, z As Long, y As Long, x As Long, p As Long, r As Long, l As Long, m As Long, n As Long, v As Long, w As Long, Satır As Long
Range("d1:e65536").ClearContents
Range("d1:e65536").Interior.ColorIndex = xlNone
For i = 1 To Range("a65536").End(xlUp).Row
For k = 1 To Range("a65536").End(xlUp).Row
For z = 1 To Range("a65536").End(xlUp).Row
For y = 1 To Range("a65536").End(xlUp).Row
For x = 1 To Range("a65536").End(xlUp).Row
For p = 1 To Range("a65536").End(xlUp).Row
For r = 1 To Range("a65536").End(xlUp).Row
For l = 1 To Range("a65536").End(xlUp).Row
For m = 1 To Range("a65536").End(xlUp).Row
For n = 1 To Range("a65536").End(xlUp).Row
For v = 1 To Range("a65536").End(xlUp).Row
For w = 1 To Range("a65536").End(xlUp).Row
Satır = Satır + 1
Cells(Satır, "D") = Cells(i, 1) & "*" & Cells(k, 1) & "*" & Cells(z, 1) & "*" & Cells(y, 1) & "*" & Cells(x, 1) & "*" & Cells(p, 1) & "*" & Cells(r, 1) & "*" & Cells(l, 1) & "*" & Cells(m, 1) & "*" & Cells(n, 1) & "*" & Cells(v, 1) & "*" & Cells(w, 1) 'listeleme
Cells(Satır, "e") = Cells(i, 1) * Cells(k, 1) * Cells(z, 1) * Cells(y, 1) * Cells(x, 1) * Cells(p, 1) * Cells(r, 1) * Cells(l, 1) * Cells(m, 1) * Cells(n, 1) * Cells(v, 1) * Cells(w, 1) 'çarpma
Cells(Satır, "e").Interior.ColorIndex = 28

Next w
Next v
Next n
Next m
Next l
Next r
Next p
Next x
Next y
Next z
Next k
Next i
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Merhaba Syn. Özgen;
12 adet iç içe döngü sonucuna excelin sınırları yetmez.
Basit bir hesaplama yapın;
1.döngü = 5 satır
2. döngü =5*5=25 satır
3. döngü =25*5=125 satır
...
...
7. döngü = 15625*5=78125 satır (kullandığım excelin sınırları bitti. Ofis2003=65536 satır)
...
...
12.döngü= 48.828.125*5=244.140.625 satır

sonuç bu...
Ne yazık ki ben yardımcı olamam.
İyi çalışmalar.

Sayın Uygun, 2. ve 3. sorular 1. sorudan bağımsız sorulardır.Bu sorular için cevabınız var mıdır?

Merhaba;
İlk örnekten devam ederek...
Eki deneyin.
NOT: Özgen-kombinasyon-1 dosyası işlemin adım adım uygulanışı ve ortalama alınmasını kontrol edebilmeniz içindir.
Özgen-kombinasyon-2 dosyası 3. sorunuzun karşılığı...

İyi çalışmalar.