satır kopyalama

[neverkind]

standart bir formun b sütunu "quantitiy" sütunu.
yapılmak istenen sütundaki değerden 1 eksik satır kopyalayıp bir altına eklemek
örneğin quantity değeri 3 olan satırı kopyalayıp 2 satır olarak altına eklemek.
yardımcı olanların elleri dert görmesin.

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub quantity()
ss = Range("B1048576").End(3).Row
For i = ss To 2 Step -1
If Range("B" & i).Value > 1 Then
x = Range("B" & i).Value - 1
Rows(i).Copy
Rows(i + 1 & ":" & i + x).Insert Shift:=xlDown
End If
Next
End Sub

 

[neverkind]

Merhaba
Deneyiniz.

Sub quantity()
ss = Range("B1048576").End(3).Row
For i = ss To 2 Step -1
If Range("B" & i).Value > 1 Then
x = Range("B" & i).Value - 1
Rows(i).Copy
Rows(i + 1 & ":" & i + x).Insert Shift:=xlDown
End If
Next
End Sub

teşekkür ederim üstad.