koşullu kombinasyon

[iskelet]

selam,
yapmak istediğim şey dosyada belirtilmiştir.Acaba yapmak istediğim şey yapılabilecek bir şey midir? Şimdiden teşekkürler.
iyi günler.

 

[iskelet]

iyi akşamlar acaba yapılması zor olan bir şey mi? Yapılamayacak birşey ise onu da söylerseniz sevinirim.

 

[Orion1]

Dosyanız ekte.

Sub kombonisyon()
Dim i As Byte, sat As Long, j As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "A").End(xlUp).Row
If sat <= 2 Then Exit Sub
Range("A4:IV" & sat).ClearContents
sat = 4
For i = 1 To 2
    For j = 1 To WorksheetFunction.Sum(Range("A2:D2"))
        Range(Cells(sat, "A"), Cells(sat, Range("A2").Value)).Value = Range("A1").Value
        Range(Cells(sat, Range("A2").Value + 1), Cells(sat, Range("A2").Value + _
        Range("B2").Value)) = Range("B1").Value
        Range(Cells(sat, Range("A2").Value + Range("B2").Value + 1), _
        Cells(sat, WorksheetFunction.Sum(Range("A2:C2")))).Value = Range("C1").Value
        Range(Cells(sat, WorksheetFunction.Sum(Range("A2:C2").Value) + 1), _
        Cells(sat, WorksheetFunction.Sum(Range("A2:D2")))).Value = Range("D1").Value
        sat = sat + 1
    Next j
    sat = sat + 1
Next i

End Sub

 

[iskelet]

sayın evren istediğim bu değildi ama benden kaynaklanan bir sorun. Sorumu tam anlatamadım herhalde sorum tekrar 1. mesajtaki dosyaya ekliyorum.
yinede teşekkür ederim.

 

[iskelet]

sorum burada