Birden çok sayfadaki bilgileri, istenilen sayfaya nasıl çekebiliriz.

[yenilik025]

(Sayfa1,Sayfa2Sayfa3) teki bilgileri belirtilen sütunlardaki bilgileri
("Sayfa4") e nasıl çekebiliriz. sayfa sırasıyla .

 

[Orion1]

Buyurun.

Sub sayfaaktar_59()
Dim i As Integer, sonsat As Long, sh As Worksheet
Range("A2:F" & Rows.Count).ClearContents
For i = 1 To 3
    Set sh = Sheets(i)
    sonsat = sh.Cells(Rows.Count, i).End(xlUp).Row
    sh.Range(sh.Cells(1, i), sh.Cells(sonsat, i)).Copy Cells(2, i)
    Set sh = Nothing
Next i
MsgBox "işlem bitti"
End Sub

 

[yenilik025]

Hocam çok teşekkür ederim ancak
sadece sayfa 1 deki bilgileri getirmektedir.
sayfa 2 ve sayfa 3 ü altına eklemedi acaba ben bir yerde hata mı yapıyorum.

 

[Orion1]

A sütununa sayfa1'deki A sütununu
B sütununa sayfa2'deki B sütununu
C sütununa Sayfa 3 teki C sütununu
Getiriyor.

 

[yenilik025]

QUOTE="Orion1, post: 997664, member: 3205"]A sütununa sayfa1'deki A sütununu
Hocam çok teşekkür ederim her şey için.
B sütununa sayfa2'deki B sütununu
C sütununa Sayfa 3 teki C sütununu
Getiriyor.[/QUOTE]


Hocam çok teşekkür ederim her şey için.
Benim bahsettiğim
sayfa 1 A:F SONRA
sayfa 2 A:F SONRA
sayfa 3 A:F nin

sayfa 4 de bulunan A:F ye aktarılması idi.

 

[Orion1]

Buyurun.

Sub cagır2()
Dim i As Integer, sonsat As Long, sh As Worksheet
Range("A2:F" & Rows.Count).ClearContents
For i = 1 To 3
    Set sh = Sheets(i)
    sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
    sh.Range(sh.Cells(1, "A"), sh.Cells(sonsat, "F")).Copy _
        Range("A" & Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Set sh = Nothing
Next i
MsgBox "işlem bitti"
End Sub

 

[yenilik025]

Hocam çok teşekkür ederim harika olmuş

 

[Orion1]

Hocam çok teşekkür ederim harika olmuş

Rica ederim.
İyi çalışmalar.