Veri Aktarma

[waytooraider]

Yüzlerce sayfalık bir excel dosyasınıdaki e3,a4,e5,f6,e88 yine aynı excel dosyasında mevcut özet sayfasında a2,b2,c2,d2,e2 alt alta gelecek şekilde nasıl aktarabilirim?mutlaka böyle bir örnek vardır,aradım bulamadım.Yönlendirebilir misiniz?

 

[muygun]

Merhaba;

Boş bir modüle;

Sub birleştir()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("özet")
Sheets("özet").Range("a2:e65536").ClearContents
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "özet" Then
Set s2 = ThisWorkbook.Worksheets(i)
sonsatir = s1.Range("a65536").End(xlUp).Row + 1
s1.Cells(sonsatir, 1) = s2.Cells(3, "e")
s1.Cells(sonsatir, 2) = s2.Cells(4, "a")
s1.Cells(sonsatir, 3) = s2.Cells(5, "e")
s1.Cells(sonsatir, 4) = s2.Cells(6, "f")
s1.Cells(sonsatir, 5) = s2.Cells(88, "e")
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin.
İyi çalışmalar.

 

[waytooraider]

Çok teşekkür ederim