tablo eslestırme

[kakara]

Merhaba ustadlarım ekte gönderdıgım dosyada barkod ve bedenlerın oldugu bır tablo var bu tabloda tum verılerı altalta olacak sekılde olusturmak ıstıyorum gercek verılerım buyuk o yuzden sıze ornek bır dosya hazırladım sımdıden ılgınız ıcın tesekkur ederım. dosya ıcınde detayları yazdım tesekkurler

 

[TiOr]

Slm,
Mesela 0010480000 barkod numaralı ürünün stoku 12 adet bunu 1XL-2XL-3XL-4XL şekilde yazarak 2XL-4 / 3XL- 4 / 4XL-4 kırılımını 1XL-2XL-3XL-4XL bu şekilde yan yana yazarak nasıl yapmayı düşünüyorsunuz? Bence formatınızın değişmesi gerek.
Kontrol edip yardımcı olmaya çalışacağım.

 

[TiOr]

Slm,

Böyle bir tablo sizin için uygun gözüküyor;

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.
Dosyanıza yeni bir sayfa ekleyin sayfa adı "Sayfa1" olsun.

Sub Test()
    Dim Bak As Long, Say As Long
    Dim BedenBak As Integer
    Dim Bedenler As Variant
    Dim syfHam As Worksheet, syfSon As Worksheet
    Set syfHam = Worksheets("OLMASI GEREKEN")
    Set syfSon = Worksheets("Sayfa1")
  
    For Bak = 2 To syfHam.Cells(Rows.Count, "A").End(xlUp).Row
        Bedenler = Split(syfHam.Cells(Bak, "D"), "-")
        For BedenBak = 0 To UBound(Bedenler)
            If syfHam.Cells(Bak, BedenBak + 6) > 0 Then
                Say = syfSon.Cells(Rows.Count, "A").End(xlUp).Row + 1
                syfSon.Cells(Say, "A") = syfHam.Cells(Bak, "A")
                syfSon.Cells(Say, "B") = syfHam.Cells(Bak, "B")
                syfSon.Cells(Say, "C") = syfHam.Cells(Bak, "C")
                syfSon.Cells(Say, "D") = syfHam.Cells(Bak, "D")
                syfSon.Cells(Say, "E") = Bedenler(BedenBak)
                syfSon.Cells(Say, "F") = syfHam.Cells(Bak, BedenBak + 6)
                syfSon.Cells(Say, "G") = syfHam.Cells(Bak, "O")
            End If
        Next
    Next
End Sub

 

[TiOr]

Dosyanızı da ekte paylaştım. Stoku olanları koşullu biçimlendirme ile renklendirilmiş hali ile.