kopyalama

[merpil]

Sevgili arkadaslar,

biraz önce bir arkadasimiz silinmis olan bir konuda asagidaki kopyalama kodunu vermisti. Maalesef bu kodla verileri degier sayfaya aktarmaya calistigimda, sayfadaki hücrelerin ayni büyüklükte olmasi gerektigini bildiren bir hata mesaji geliyor. Bu hatayi nasil yok edebilirim?

Sub Kopyala()
    [A11:E49].copy
    Sheets("sayfa2").Select
    [A11].PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    [A1].Select
End Sub

not: verilerin kopyalanmasini istedigim sayfa2 nin A11 den E49 arasi satirlari ayni.

Tesekkürler

 

[janveljan]

Bu hata yapıştırdığınız yerdeki birleştirilmiş hücrelerden kaynaklanıyordur muhtemelen. Birde aşağıdaki şekilde dener misiniz?

Sub Kopyala()
    [A11:E49].Copy Sheets("sayfa2").[A11]
    [A1].Select
End Sub

 

[merpil]

Birde aşağıdaki şekilde dener misiniz?

Harika, oldu. Cok cok Tesekkür ederim janveljan