macro kullanarak kopyala+yapıştır yapmak...

[MURATT]

merhaba bir konuda yardım rica edecektim.

aynı anda birden fazla sheet'i olan book1.xls dosyasındaki verileri book2.xls dosyadaki uygun sheet'lere macro kullanarak kopyala+yapıştır yapmak mümkünmü?Dosyaları ekte gönderiyorum yardımcı olabilirmisiniz?
Saygılar...

 

[danersin]

Book1 deki sayfa sayısı Book2'dekinden fazla olmama şartı ile aşağıdaki kod işinizi görür (veya en azından yol gösterir)

[vb:1:3545a43600]Sub kopyala()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Windows("Book2.xls").Activate
Sheets(i).Select
Range("A2:C5").Select
Selection.Copy
Windows("Book1.xls").Activate
Sheets(i).Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Next i
Application.CutCopyMode = False
End Sub[/vb:1:3545a43600]

 

[MURATT]

teşekkürler