Kapalı Excel Çalışma Kitabından İstenilen Sayfa Kopyalama

[schlecht]

Orion1 hocamın yazmış olduğu kod çok güzel çalışıyor. Fakat seçilen sayfaların her birini farklı sayfaya kopyalıyor. Benim ihtiyacım seçilen sayfaların alt alta bir sayfa toplanması. Yardımlarınızı rica ederim.

 

[schlecht]

Workbooks(dosya).Sheets(ListBox1.List(i, 0)).UsedRange.Copy Sayfa1.Range("A" & Sayfa1.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
bu şekilde yardımcı oldular.

Peki listbox a gelen veriyi Z den A ya nasıl sıralarım.

 

[schlecht]

Güncel.