Excel de Toplam değerleri Çoğaltmak

[dogansistem]

Merhabalar,

Excel listesinde örneğin kalem adeti 15 olarak gözüküyor.Biz bunu adeti 1'e düşürüp 15 satır olarak kalem yazsın atsın olarak istiyoruz.
Biliyorsunuz demirbaş listesinde toplam adet yerine ayrı ayrı satırlar halinde yazması gerekiyor.yani toplam 15 değil, 15 satır kalem olsun istiyoruz.Otomatik çoğaltmak gibi bir formül varmıdır?

 

[asi_kral]

Merhabalar,

Excel listesinde örneğin kalem adeti 15 olarak gözüküyor.Biz bunu adeti 1'e düşürüp 15 satır olarak kalem yazsın atsın olarak istiyoruz.
Biliyorsunuz demirbaş listesinde toplam adet yerine ayrı ayrı satırlar halinde yazması gerekiyor.yani toplam 15 değil, 15 satır kalem olsun istiyoruz.Otomatik çoğaltmak gibi bir formül varmıdır?

Merhaba
Dosya ekler misiniz_?

 

[uzmanamele]

Merhaba

Ek dosya gibi bir şey mi istediniz?

Sub DemirbasList()
Application.ScreenUpdating = False
For i = Range("a65536").End(xlUp).Row To 1 Step -1
satir = Cells(i, 2).Value
malzeme = Cells(i, 1).Text
For j = 1 To satir - 1
Rows(i + 1).EntireRow.Insert
Next
Range("a" & i & ":" & "a" & i + satir - 1) = malzeme
Range("b" & i & ":" & "b" & i + satir - 1) = 1
Next
Application.ScreenUpdating = True
MsgBox "Bittim..."
End Sub

 

[dogansistem]

öncelikle ilginize çok teşekkür ederim dosya ektedir.

adetleri fazla olanları nasıl teke düşürebilirim.

 

[dogansistem]

bir cevap yokmu