hücredeki değeri alt alta hücrelerde tekrarlamak

[yaslan]

Merhaba Arkadaşlar,

Ekli dosyada ürün kodları ve ne kadar üretileceği bilgileri var.
Yapmak istediğim ;
Stok sayfasındaki ihtiyaçlara göre üretim planı sayfasına ürün kodlarının yerleştirilmesi. Bunu yaparkende stok sayfasındaki ihtiyaç kolonundaki değere göre yerleştirmesi. Örnek olarak ben yerleştirdim ama bu işlem makro veya förmül ile yapılabilirmi.

Yardımlarınız içim şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub İHTİYAÇ_LİSTESİ_OLUŞTUR()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Satır As Long, X As Long, Y As Integer
 
    Set S1 = Sheets("stok")
    Set S2 = Sheets("üretim planı")
 
    S2.Range("B3:B65536").ClearContents
 
    Satır = 3
 
    For X = 2 To S1.Range("A65536").End(3).Row
        If IsNumeric(S1.Cells(X, 2)) Then
            For Y = 1 To S1.Cells(X, 2)
            S2.Cells(Satır, 2) = S1.Cells(X, 1)
            Satır = Satır + 1
            Next
        End If
    Next
 
    S2.Select
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yaslan]

Sayın korhan Ayhan,

Yardımlarınız için çok teşekkürler.