Aynı hücrede alt alta yazılanları alt alta ayrı hücrelere yazdırmak

[ckarabacak]

Sayın YUSUF44 Merhaba Hayırlı Bayramlar dilerim

Göndermiş olduğunuz kod tamam ancak Yazı tipi, Yazı tipi boyutu, birleştir ortala ve renklendirme değişikliklerine müsaade etmiyor.
Ve de önemlisi veri sayfasındaki kayıtların azalması halinde rapor sayfasında eski sütun kayıtları görülüyor
Sub taklaci() Set s1 = Sheets("veri")
Set s2 = Sheets("rapor")
son = s1.Cells(Rows.Count, "A").End(3).Row
s1.Range("A1:A" & son).Copy: s2.[B1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub

Yardım ederseniz sevinirim.

 

[YUSUF44]

Sayın YUSUF44 Merhaba Hayırlı Bayramlar dilerim

Göndermiş olduğunuz kod tamam ancak Yazı tipi, Yazı tipi boyutu, birleştir ortala ve renklendirme değişikliklerine müsaade etmiyor.
Ve de önemlisi veri sayfasındaki kayıtların azalması halinde rapor sayfasında eski sütun kayıtları görülüyor
Sub taklaci() Set s1 = Sheets("veri")
Set s2 = Sheets("rapor")
son = s1.Cells(Rows.Count, "A").End(3).Row
s1.Range("A1:A" & son).Copy: s2.[B1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
End Sub

Yardım ederseniz sevinirim.

Herkese hayırlı bayramlar.

Verdiğim kod sizin istediğiniz işlemi yapıyor. Burda bahsettiğiniz işlemleri daha önce belirtmemiştiniz. Farklı istekleriniz için o isteklere uygun örnek dosya paylaşıp, tam olarak istediklerinizi belirtirseniz ilgilenmeye çalışırım.

 

[aytekin44]

Selamlar,

Benimde benzer durum için yardıma ihtiyacım bulunuyor. Ekli dosyada Mevcut ve istenilen şeklinde iki farklı sheet bulunuyor. E2 hücresinde kaç adet madde varsa hepsi tek tek farklı satırlara yazılmalı sağda ve solda olan tüm hücrelerdeki veriler de aynı şekilde kopyalanması gerekiyor. Konuda ki kodları denedim uğraştım ancak yapamadım.

Excele sadece bir örnek bıraktım datamda 250 civarında bu şekilde veri bulunuyor.

Desteğinizi bekliyorum.
iyi çalışmalar