Range Sınıfının PasteSpecial Yöntemi Başarısız

[bistrobellman]

Worksheets("PERSONEL").Select: Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=vardiya1
Selection.AutoFilter Field:=5, Criteria1:="PB"
Range("A1").AutoFilter
Range("A1:F20").Select:
Selection.CurrentRegion.Copy

Workbooks.Add.SaveAs Filename:="aaa.xls"
Windows("aaa.xls").Activate: MsgBox "aktif" ' Program çalışınca bu mesaj kutusunu görüyorum!!!
Range("A1:F20").PasteSpecial Paste:=xlValues
' ActiveSheet.Paste Destination:=Worksheets("Sayfa1").Range("A1:F20")
Application.CutCopyMode = False
'ActiveSheet.Paste

vr = WorksheetFunction.CountA(Sheets(ActiveSheet.Name).[A1:A65536])
UserForm2.ListBox12.ColumnCount = 6
For i = 2 To vr
If Sheets(ActiveSheet.Name).Rows(i).Hidden = False Then
UserForm2.ListBox12.RowSource = "Sayfa1!A1:F" & i
End If
Next i

Unload UserForm1
UserForm2.Show


"Range Sınıfının PasteSpecial Yöntemi Başarısız" BU UYARIYI NEDEN ALIYORUM ACABA YA??? :? :?

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Range("A1").PasteSpecial Paste:=xlValues

 

[bistrobellman]

Aşağıdaki şekilde deneyin.

Range("A1").PasteSpecial Paste:=xlValues

YİNE AYNI HATA TÜRÜNÜ VERDİ . currentregion ile kopyalamada mı sorun var acaba ya? yine çalışmadı levent bey...!! :kafa:

 

[Levent Menteşoğlu]

kopyaladıktan sonra yeni kitap oluşturma işlemi olduğundan hata veriyor,bu esnada copy durumu false haline geliyor,bu durumda önce yeni kitap oluşturmayı yapıp sonra kopyalayıp yapıştırın.

 

[xxrt]

Windows("aaa.xls").Activate: MsgBox "aktif"
personel adlı dosyanızda Copy yapıp farklı kaydettiğiniz aaa.xls dosyasına geçişte
panoda yapıştırılacak veriler silindiğinden yapıştırma olayı gerçekleşmiyor..
Denemesi

Sub tt()
Workbooks.Add.SaveAs Filename:="aaa.xls"
Windows("aaa.xls").Activate: MsgBox "aktif" ' Program çalışınca bu mesaj kutusunu görüyorum!!!

Workbooks("aaa.xls").Worksheets("Sayfa1").Select
[a1] = "deneme"
Range("A1").Select
    Selection.Copy
Range("A2").Select
Range("A2").PasteSpecial Paste:=xlValues
End Sub

Buna göre başka bir mantık kurmanız gerek.

Edit.Leventm msj donradan gördüm..