Sayfalardan sütun almak (Çözüldü)

[Serdarrk]

Merhaba,

Aşağıdaki tek dosyada, tarihlerle adlandırılmış yaklaşık 250 sayfa bulunmakta. İhtiyacım bu dosyada açılacak yeni sayfanın D sütunundan itibaren ( ilk üç sütuna isimleri girmem gerek) her sayfanın Y ve Z sütunlarını yan yana olacak şekilde alıp açılan yeni sayfada yan yana tek sayfada sıralamak. Bunun yanı sıra mümkün müdür bilmiyorum ancak Y ve Z sütununu aldığı sayfanın adını yani tarihi de yeni sayfaya yapıştırırken bir üst satırda alınan Y ve Z sütunun birinin veya ikisininde üstünde yazması. Umarım anlatabilmişimdir. Bu konuda yardımcı olabilirseniz çok sevinirim.

http://s7.dosya.tc/server3/9r93ou/01.02.2000-1.xls.html

 

[Serdarrk]

Aşağıdaki dosyada tam olarak ne yapmak istediğimin örneği mevcuttur.

http://s7.dosya.tc/server3/d7qlbg/01.02.2000-1.xls.html

 

[Serdarrk]

Sub CopyCols()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim lColumn As Long
    Dim ws As Worksheet
    For Each ws In Sheets
        lColumn = Sheets("Sayfa1").Cells(1, Columns.Count).End(xlToLeft).Column
        If ws.Name <> "Sayfa1" Then
            Sheets("Sayfa1").Cells(1, lColumn + 1).Resize(, 2) = ws.Name
            LastRow = ws.Range("Y" & ws.Rows.Count).End(xlUp).Row
            ws.Range("Y4:Z" & LastRow).Copy
            Sheets("Sayfa1").Cells(3, lColumn + 1).PasteSpecial xlPasteValues
        End If
    Next ws
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub