[حل شده] تكرار كردن يك سلول بر اساس تعداد درج شده در سلول مقابل

[a_110_t]

با سلام خدمت اساتيد محترم
در فايلي كه من آپلود كردم ميخواستم در يك شيت ديگر كل يك سطر رو بر اساس موجودي نوشته بشه . مثلا اگر كالايي موجودي 2 داشت در شيت بعدي كل اون سطر دوبار نوشته بشه و اگر موجودي 1 داشت يك بار نوشته شود.
ممنون ميشم اگه راهنمايي كنين.
با تشكر.

[amir_ts]

با سلام
این فایل روببینید.
فرمول های ردیف های بعدی بر اساس نتیجه فرمول ردیف 1 نوشته شده است.

=IFERROR(INDEX('01'!$A$2:$D$27;MATCH(Sheet1!$B$1;'01'!$A$2:$A42;0);2);"") 

[a_110_t]

با سلام
این فایل روببینید.
فرمول های ردیف های بعدی بر اساس نتیجه فرمول ردیف 1 نوشته شده است.

=IFERROR(INDEX('01'!$A$2:$D$27;MATCH(Sheet1!$B$1;'01'!$A$2:$A42;0);2);"") 

ممنون از پاسختون ولي اين مشل منو حل نميكنه چون جوابها پشت سر هم نيستن...
من ميخوام براي پرينت باركد از اين ترفند استفاده كنم براي همين بايد كالاها پشت سر هم نوشته بشه كه بتونم پرينت بگيرم.

[iranweld]

با سلام

ماکرو ذیل را تست کنید

Sub test()

Application.ScreenUpdating = False


K = 1
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For j = 2 To Z

For i = Sheet1.Range("c" & j) To 1 Step -1

Sheet1.Range("A" & j & ":D" & j).Copy

Sheet2.Range("A" & K & ":D" & K).PasteSpecial

K = K + 1

Next

Next

Application.ScreenUpdating = True

Sheet1.Select

End Sub 

[a_110_t]

با سلام

ماکرو ذیل را تست کنید

Sub test()

Application.ScreenUpdating = False


K = 1
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

For j = 2 To Z

For i = Sheet1.Range("c" & j) To 1 Step -1

Sheet1.Range("A" & j & ":D" & j).Copy

Sheet2.Range("A" & K & ":D" & K).PasteSpecial

K = K + 1

Next

Next

Application.ScreenUpdating = True

Sheet1.Select

End Sub 

سلام
مشكل حل شد.
خيلي ممنون از شما و همه اساتيد ديگه...