60 sayfa excel dosyasında 61. sayfaya bütün verileri toplamak istiyorum.
sıkıntım şu:
1. sayfadaki dolu satırları 61.sayfa yapıştırırken "sırayı değiştir - transpose" yapmasını istiyorum.
sonra 2. sayfadaki verileri alıp yine yapıştırırken "sırayı değiştir - transpose" yapıp 61.sayfada kaldığı yere yapıştırmasını istiyorum.

yardımı olabilecek var mı?
#excel #teknoyardım #transpose

BeğenFavori PaylaşYorum yap
  • Kayrakli @kayrakli

    Sheets("Form Yanıtları 10").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Sayfa4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    ActiveCell.SpecialCells(xlLastCell).Select
    Selection.Offset(1, 0).Select
    Selection.End(xlToLeft).Select
    Sheets("Form Yanıtları 9").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Sayfa4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    ActiveCell.SpecialCells(xlLastCell).Select
    Selection.Offset(1, 0).Select
    Selection.End(xlToLeft).Select

  • Kayrakli @kayrakli

    böyle bir şeyle çözdüm fakat çok uzun oluyor bu kodu 64 kez kopyalamak yerine sadeleştirmede yardımcı olabilecek var mı ? 🙂

  • Kayrakli @kayrakli

    Sub Makro3()
    Sheets("Sayfa4").UsedRange.Clear
    For i = 2 To Sheets.Count
    Sheets(i).UsedRange.Copy
    Sheets("Sayfa4").Range("a65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Next
    End Sub