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.