Değere göre çoğalt

[senol1979]

Merhaba sevgili forum üyeleri. Kendim biraz üzerine çalışmama ve forum içerisinde fikir verebilecek örnekler bulmama rağmen işin içinden çıkamadım.Sorum biraz anlatması zor gibi. Bu yüzden aşağıdaki ekli dosyadan daha iyi anlaşılabileceğini düşünüyorum. Özetlemek gerekirse Hücredeki Değere Göre Çoğaltma işleminin biraz farklı bir versiyonu. Şimdiden hepinize çok teşekkürler.

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

[color=red]Sub TabloYap()[/color]
[color=blue]On Error Resume Next[/color]
Application.ScreenUpdating = False
Range("g3:l100").ClearContents
Set s2 = Sheets(2)
For i = 3 To s2.Cells(65536, 1).End(3).Row
    s = s + h
    h = s2.Cells(i, 5).Value
        For g = 1 To h
            j = s + g + 2
            s2.Cells(j, 7) = s2.Cells(i, 1)
            s2.Cells(j, 8) = s2.Cells(i, 2)
            s2.Cells(j, 9) = s2.Cells(i, 3)
            s2.Cells(j, 10) = s2.Cells(i, 4)
            s2.Cells(j, 11) = g
            s2.Cells(j, 12) = h & "-" & g
        Next g
Next i
Application.ScreenUpdating = True
[color=red]End Sub[/color]

 

[senol1979]

Çok teşekkürler. Tam İstediğim gibi olmuş. Ellerinize sağlık.