Başka sayfadan veri kopyalama

[tactless]

Sub kopyalavb()
Sheets("Bilgi").Select
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("çıktı").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ekteki kod'ta sayfa git gelleri belli oluyor. Diğer sayfayı select etmeden doğru sayfada bulunan veriyi çıktı sayfasına paste edebilirim.

Farklı bir yöntem varsa belirtilirse sevinirim.

Şimdiden tşkler.

Saygılarımla.

 

[Orion1]

aşağıdaki linki inceleyiniz
http://www.excel.web.tr/f48/farkly-sayfalary-birle-tirme-t104521.html

 

[tactless]

Application.ScreenUpdating = False, true şeklinde yaparak sorunumu çözdüm. Tşkler.