VBA-da kopyalama və yapışdırma ilə işləyərkən qarşılaşdığımız ən ümumi problemlərdən biri işləmə vaxtı xətası 1004 : PasteSpecial Method of Range Class Failed . Bu yazıda mən sizə bu səhvin arxasında hansı mümkün səbəblərin dayandığını və bunları düzgün nümunələr və illüstrasiyalarla necə həll edəcəyinizi göstərəcəyəm.

Təcrübə İş Kitabını endirin

Bu məqaləni oxuyarkən məşq etmək üçün bu məşq kitabını endirin.

PasteSpecial Method of Range Class Uğursuz oldu: Səbəblər və Həll üsulları

Daha da gecikmədən əsas müzakirəmizə keçək. Yəni, bu xətanın mümkün səbəbləri nə ola bilər və onları necə həll etmək olar.

Səbəb 1: Heç bir şeyi kopyalamadan PasteSpecial Metoduna daxil olmaq

Bu, ən çox səhvin arxasında ümumi səbəb. Yəni heç nəyi kopyalamadan PasteSpecial metoduna daxil olmağa çalışmaq.

Bunu aydın başa düşmək üçün aşağıdakı VBA kodu yoxlayın.

⧭ VBA Kodu:

1194

Burada biz VBA -nin PasteSpecial metodundan istifadə etdik. hər şeyi kopyalamaq. Beləliklə, siz onu işə saldığınız zaman Excel işləmə zamanı xətası 1004 göstərəcək.

⧭ Həll yolu:

Bu problemi həll etmək üçün əvvəlcə bir sıra xanaları kopyalamalısınız, sonra PasteSpecial metoduna daxil olmalısınız.

9995

Bu kodu işə saldığınız zaman, olacaqaktiv iş vərəqinin B3:B5 diapazonunun düsturlarını seçilmiş diapazona yapışdırın.

Ətraflı oxuyun: İş Cədvəli Sinfinin Xüsusi Paste Metodu Uğursuz Oldu (Səbəblər və Həll yolları)

Səbəb 2: Orfoqrafiya Xətası ilə PasteSpecial Metoduna daxil olmaq

Bu, iş vərəqinin işlənməsinin digər ümumi səbəbidir. səhv. Yəni hər hansı arqumentdə orfoqrafik xəta(lar) ilə PasteSpecial metoduna daxil olmaq üçün.

Bunu aydınlaşdırmaq üçün aşağıdakı VBA koduna baxın. Burada biz xlPasteAll arqumentində orfoqrafik səhvə yol verdik.

⧭ VBA Kodu:

2604

Bu kodu işə saldığınız zaman icra zamanı xətası 1004 alacaqsınız.

⧭ Həll yolu:

Həll asandır. Əminəm ki, siz artıq bunu təxmin etmisiniz. Sadəcə olaraq bütün arqumentlərin yazılışlarının düzgün tərtib edildiyinə əmin olun.

Və xəta avtomatik olaraq yox olacaq.

Ətraflı oxuyun: Yapışdırmaqdan Necə İstifadə Edilir Excel-də Xüsusi Komanda (5 Uyğun Yol)

Oxşar Oxumalar

• Excel VBA: Aralığı başqa bir iş kitabına kopyalayın
• Excel VBA ilə Dəyərləri Növbəti Boş Sıraya Kopyalayın və Yapıştırın (3 Nümunə)
• VBA PasteSpecial tətbiq edin və Excel-də mənbə formatını saxlayın
• Excel-də birdən çox xanada eyni dəyəri necə kopyalamaq olar (4 üsul)
• Meyarlara əsasən sətirləri başqa bir iş vərəqinə kopyalamaq üçün Excel VBA

Səbəb 3: Yenisini açmaqKopyalamadan Sonra Kopyalama/Yapışdırma Rejimini Ləğv edən İş Kitabı

Bu, xətanın arxasında duran digər mühüm səbəbdir. Yəni yapışdırmazdan əvvəl kopyala/yapışdır rejimini ləğv edən bir şey etmək.

Aydın başa düşmək üçün aşağıdakı koda baxın.

⧭ VBA Kodu:

1346

Burada biz B3:B5 diapazonunu İş dəftəri1 adlı iş kitabının Cədvəl1 -dən kopyaladıq.

Sonra biz eyni qovluqda İş dəftəri2 adlı yeni iş kitabı yaratdıq və kopyalanmış diapazonu Cədvəl1<-in B3:B5 diapazonuna yapışdırmağa çalışdıq. həmin iş kitabının 2>-si.

Lakin biz kodu işə saldığımız zaman o, PasteSpecial Method of Range Class Failed Failed Xətası göstərəcək, çünki biz yeni iş kitabını yaratdığımız anda kopyalama/yapışdırmaq rejimi ləğv ediləcək.

⧭ Həlli:

Bu problemi həll etmək üçün əvvəlcə yazın İş dəftəri2 adlı yeni iş kitabını yaratmaq üçün kod sətirlərini aşağı salın.

Sonra İş dəftəri1 -ni aktivləşdirmək üçün sətirləri daxil edin və ondan istədiyiniz diapazonu kopyalayın.

Və nəhayət, İş dəftəri2 -ni aktivləşdirin və kopyalanmış diapazonu ora yerləşdirin.

1673

Bu kodu işə salın. O, B3:B5 diapazonunu İş dəftəri1-in Cədvəl1 -dən kopyalayacaq.

Və onu yerləşdirin İş dəftəri2 adlı yeni yaradılmış iş kitabının Cədvəl1 -də.

⧭ Ehtiyat:

Aydındır ki, proqramı işləyərkən İş dəftəri1 -ni açıq saxlamağı unutmayın.kod.

Ətraflı oxuyun: Makrolar olmadan Excel-də Kopyalama və Yapışdırmanı Necə Deaktiv Etmək olar (2 meyarla)

Səbəb 4: Application.CutCopyMode-un Kopyalama/Yapışdırmaq Rejimini Ləğv edən False rejiminə çevirmək

Nəhayət, xətanın baş verməsinin başqa səbəbi ola bilər. PasteSpecial metoduna daxil olmamışdan əvvəl səhvən Application.CutCopyMode -ni söndürə bilərik.

Bu çox geniş yayılmış təcrübə olmasa da, bəzən biz bunu lazım olanda edirik. uzun sətirlərlə işləyin.

Bunu aydın başa düşmək üçün aşağıdakı koda baxın. Burada biz B3:B5 diapazonunu kopyaladıq, lakin onu yapışdırmazdan əvvəl CutCopyMode -ni ləğv etdik.

⧭ VBA Kodu:

9454

Kodu işə saldığınız zaman o YapışdırınXüsusi Metodu Aralıq Sinfi Uğursuz xətasını göstərəcək.

⧭ Həll:

Məncə, indi hamınız həlli təxmin etmisiniz. Əslində olduqca sadədir. Sadəcə CutCopy rejimini söndürən koddan xətti çıxarın.

Beləliklə, düzgün VBA kodu belə olacaq:

4953

O, B3:B5 diapazonunu kopyalayacaq və heç bir problem olmadan D3:D5 üzərinə yapışdıracaq.

Ətraflı oxuyun: Excel-də Dəyərləri və Formatları Kopyalamaq üçün Xüsusi VBA Yapışdırın (9 Nümunə)

Yadda saxlamalı olduğunuz şeylər

Burada mən yalnız VBA-da PasteSpecial metodu ilə işləyərkən qarşılaşa biləcəyiniz problemləri göstərdim. Əgər PasteSpecial metodunu ətraflı bilmək istəyirsinizsə, bu linkə daxil olun.

Nəticə

Beləliklə, qısaca bunlar kodunuzda iş vaxtı xətası 1004: PasteSpecial Method od Range Class Failed səbəb ola biləcək səbəblərdir. Ümid edirəm ki, bütün məqamları aydın başa düşdünüz və bunlar gələcəkdə sizə çox kömək edəcək. Başqa səbəbləri bilirsinizmi? Və hər hansı bir probleminiz var? Bizdən soruşmaqdan çekinmeyin. Və daha çox yazı və yeniləmələr üçün ExcelWIKI saytımıza daxil olmağı unutmayın.