Hücredeki Veriyi Sayfa 2 de Farklı Satırlara Aktarma

[Shamaniac]

Arkadaşlar merhaba. Sorunum görsellerdeki gibidir. D( metinsel ve virgülle ayrılmış) ve E( sayısal) sütünlarındaki veriye göre satırın tamamını D ve E sütünlarındaki veriyi dagitarak sayfa 2 ye kopyalamam gerekiyor. kolay bir yolu yokmudur?
Görseller aşağıda.
1.
https://ibb.co/5x2xcpH bu formattan,

2. https://ibb.co/PQVr5Vv buna dönüştürmenin kolay bir yolu..

Acil Yardım

 

[blueyakii]

bunu ancak excel vba ile yapabilirsin. bilginiz olsun

 

[Shamaniac]

sorun çözüldü arkadaşlar. teşekkürler levent beye

 

[dEdE]

sorun çözüldü arkadaşlar. teşekkürler levent beye

Çözümü paylaşmayı düşünür müsünüz?
Benzer sorun yaşayan arkadaşlara yardımcı olur.

 

[Shamaniac]

Çözümü paylaşmayı düşünür müsünüz?
Benzer sorun yaşayan arkadaşlara yardımcı olur.

Tabiki. Levent Beyin affına sığınarak paylaşayım.

Butonu A satırına ekleyerek formu tamamladık.

Sub listele()

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

s2.Range("A2:M1048000").ClearContents

sonsatir = s1.Cells(Rows.Count, "A").End(3).Row

For a = 3 To sonsatir

If InStr(1, s1.Cells(a, "E"), ",") > 0 Then

belge = Split(s1.Cells(a, "E"), ",")

For b = 0 To UBound(belge)
satirno = s2.Cells(Rows.Count, "A").End(3).Row + 1

For sutun = 1 To 13
s2.Cells(satirno, sutun) = s1.Cells(a, sutun).Value
Next

s2.Cells(satirno, "E") = LTrim(belge(b))
s2.Cells(satirno, "G") = 1

Next


Else

satirno = s2.Cells(Rows.Count, "A").End(3).Row + 1

For sutun = 1 To 13
s2.Cells(satirno, sutun) = s1.Cells(a, sutun).Value
Next


End If

Next

End Sub