Modelleri adetleri ve fiyatları ayırma

[ismail-34]

Değerli Excel web ailesine selamlar saygılar.


Ben A-H sütununun kısaca K-S sütunu gibi olmasını istiyorum.örneğin b sütunundaki değerler çok karışık ama giriliş şekli o şekilde.* ile birbirlerinden ayrılan değer kümeleri var. örneğin: 1167(model no)-88(Adet)-4,25(fiyat) gibi.

Bu a-h daki kolileri tek tek gibi her seferinde el ile ayırıyorum.eğer tüm sütunları kapsayan komple mükemmel bir çözüm olmaz ise sadece B sütununu sütunlara ayıran bir olsada olur.çünkü b sütununu ayırmak beni çok zorluyor. diğer sütunları ben ellede oluşturabilirim.

Tüm Hocalarıma Saygılar Sevgiler.

 

[dEdE]

Merhaba,
Aşağıdaki kodları bir modüle yapıştırarak örnek dosyanızda dener misiniz?

Sub Ayir()
sat = 2
For i = 2 To Cells(Rows.Count, "B").End(3).Row
    x1 = Split(Cells(i, 2), "*")
        Cells(sat, "Q") = Cells(i, 6)
        Cells(sat, "R") = Cells(i, 7)
        Cells(sat, "S") = Cells(i, 8)
    
    For j = LBound(x1) To UBound(x1)
        x2 = Split(x1(j), "-")
        Cells(sat, "K") = Cells(i, 1)
        Cells(sat, "L") = x2(0)
        Cells(sat, "M") = x2(1)
        Cells(sat, "N") = CDbl(Format(x2(2), "#,##0.00"))
        Cells(sat, "O") = Cells(i, 4)
        Cells(sat, "P") = Cells(i, 5)
        sat = sat + 1
    Next j

Next i
End Sub

 

[ismail-34]

Hocam Saat gibi Harika Çalışıyor.Yine Mükemmelsiniz. ben örnek olsun diye sarı alanda örnek koymuştum.verilerin olduğu yere veya olmadı başka sayfada(sayfa2) a-h arasında olsa dahada mükemmel olurdu ..verilerin olduğu yerden veri alıp yine aynı yere koymak zor sanırım.

Tekrar Teşekkürler dEdE hocam.bağımlınızızzzz

 

[dEdE]

...(sayfa2) a-h arasında olsa daha da mükemmel olurdu ..verilerin olduğu yerden veri alıp yine aynı yere koymak zor sanırım....

Merhaba,
Aşağıdaki kod verileri Sayfa1'den alır Sayfa2'ye A:I sütunlarına istediğiniz formatta yazar.
Verilerin tümünü hafızaya alıp, aynı yere yazdırmakta mümkün ama benim için zor.

Sub Ayir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

sat = 2
For i = 2 To s1.Cells(Rows.Count, "B").End(3).Row
    x1 = Split(s1.Cells(i, 2), "*")
        s2.Cells(sat, "G") = s1.Cells(i, 6)
        s2.Cells(sat, "H") = s1.Cells(i, 7)
        s2.Cells(sat, "I") = s1.Cells(i, 8)
    
    For j = LBound(x1) To UBound(x1)
        x2 = Split(x1(j), "-")
        s2.Cells(sat, "A") = s1.Cells(i, 1)
        s2.Cells(sat, "B") = x2(0)
        s2.Cells(sat, "C") = x2(1)
        s2.Cells(sat, "D") = CDbl(Format(x2(2), "#,##0.00"))
        s2.Cells(sat, "E") = s1.Cells(i, 4)
        s2.Cells(sat, "F") = s1.Cells(i, 5)
        sat = sat + 1
    Next j
Next i
End Sub

 

[ismail-34]

Merhaba,
Aşağıdaki kod verileri Sayfa1'den alır Sayfa2'ye A:I sütunlarına istediğiniz formatta yazar.
Verilerin tümünü hafızaya alıp, aynı yere yazdırmakta mümkün ama benim için zor.

Sub Ayir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

sat = 2
For i = 2 To s1.Cells(Rows.Count, "B").End(3).Row
    x1 = Split(s1.Cells(i, 2), "*")
        s2.Cells(sat, "G") = s1.Cells(i, 6)
        s2.Cells(sat, "H") = s1.Cells(i, 7)
        s2.Cells(sat, "I") = s1.Cells(i, 8)
   
    For j = LBound(x1) To UBound(x1)
        x2 = Split(x1(j), "-")
        s2.Cells(sat, "A") = s1.Cells(i, 1)
        s2.Cells(sat, "B") = x2(0)
        s2.Cells(sat, "C") = x2(1)
        s2.Cells(sat, "D") = CDbl(Format(x2(2), "#,##0.00"))
        s2.Cells(sat, "E") = s1.Cells(i, 4)
        s2.Cells(sat, "F") = s1.Cells(i, 5)
        sat = sat + 1
    Next j
Next i
End Sub

süper çalışıyor değerli hocam. yeterde artar hocam.o işlerin zor olduğunu tahmin edebiliyorum.ordan alıp ana yere kopyalarım o kadarda tembel değilim ..sayenizde hastalık hastası oldukkk değerli hocammm