Sayıların açılımı

[el-vis]

Sipariş listesinde toplam olarak yazılan sayılar ne kadar ise,2.sekmede onları teker teker yazdırmak.

 

[Orion1]

Dosyanız ektedir.

Sub tekraretme59()
Dim sh As Worksheet, i As Long, sat As Long, sat2 As Long
Dim j As Long
Set sh = Sheets("BARKOD AÇILIMI")
Sheets("SİPARİŞ YAPIŞTIR").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
sh.Range("A2:B" & Rows.Count).ClearContents
Application.ScreenUpdating = False
sat2 = 2
For i = 3 To sat
    For j = 1 To Cells(i, "H").Value
        sh.Cells(sat2, "A").Value = j
        sh.Cells(sat2, "B").Value = Cells(i, "A").Value
        sat2 = sat2 + 1
    Next j
Next
sh.Select
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
        vbOKOnly + vbInformation, Application.UserName

End Sub

 

[el-vis]

çok teşekkür ederim