kapalı bir kitaptan verileri kopyalayıp başka kapalı bir kitaba yapıştırma!

[olymposss]

sn hocalarım iyi çalışmalar
aşağıdaki kodlar ile kapalı olan bir çalışma kitabından a:z arasındaki hücreleri kopyalayıp başka bir kapalı kitabın aynı sayfasına yapıştırmaya çalışıyorum. aşağıdaki kodlar hata veriyor. yardımcı olabilir misiniz?
kod:
On Error GoTo 10
Workbooks.Open ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls" 'ortak sayfasının c1 inde geçmiş yıl olan 2005 var
With Workbooks("cari.xls")
Sheets("caria").Select
Columns("A:Z").Copy
.Close
End With
Workbooks.Open ThisWorkbook.Path & "\" & Label5 & "\cari.xls" 'label5 te 2006 var
With Workbooks("cari.xls")
Sheets("caria").Select
Columns("A:Z").Paste
.Save
.Close
End With
MsgBox "İLGİLİ CARİ HESABA KAYIT YAPILMIŞTIR."
Exit Sub
10 MsgBox "HATA! Geçmiş yıla ait klasör bulunamadı."
End Sub
çok teşekkürler saygılar:yardim:
--------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[alpi]

aşağıdaki kodları deneyin. Çok fazla gerekli olmadıkça On Error komutunu kullanmamanızı öneririm

Sub deneme()
    If Dir(ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls") = "" Then
        MsgBox "HATA! Geçmiş yıla ait klasör bulunamadı."
        Exit Sub
    End If
    Workbooks.Open ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls"
    With Workbooks("cari.xls")
        .Sheets("caria").Columns("A:Z").Copy
        .Close
    End With
    Workbooks.Open ThisWorkbook.Path & "\" & Label5 & "\cari.xls"
    With Workbooks("cari.xls")
        .Sheets("caria").Columns("A:Z").Paste
        .Save
        .Close
    End With
    MsgBox "İLGİLİ CARİ HESABA KAYIT YAPILMIŞTIR."
End Sub

 

[olymposss]

sn alpi

.Columns("A:Z").Copy

kodunda "method" hatası veriyor.
ben yanlış mı yazdım acaba.
bu arada yardımlarınız ve ilginiz için çok teşekkürler.saygılar:yardim:

 

[alpi]

Kodları düzelttim tekrar deneyin.

 

[olymposss]

sn alpi sizi yoruyorum kusura bakmayın lütfen

.Sheets("caria").Columns("A:Z").Paste

koduna yine aynı method hatası verdi. copy için hata yok ncak paste için verdi.
çok ama çok teşekkürler. saygılar:yardim:

 

[olymposss]

sn alpi sn hocalarım

affınıza sığınarak şöyle bir düzeltmeden sonra sorunu halletiğimi söylemek isterim.

kod:
If Dir(ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls") = "" Then
MsgBox "HATA! Geçmiş yıla ait klasör bulunamadı."
Exit Sub
End If
Workbooks.Open ThisWorkbook.Path & "\" & Sheets("ortak").Range("c1").Value & "\cari.xls"
With Workbooks("cari.xls")
.Sheets("caria").Columns("a:z").Copy
.Close
End With
Workbooks.Open ThisWorkbook.Path & "\" & Label5 & "\cari.xls"
With Workbooks("cari.xls")
.Sheets("caria").Range("a1").Select
.Sheets("caria").Paste
.Save
.Close
End With
MsgBox "İLGİLİ CARİ HESABA KAYIT YAPILMIŞTIR."

yalnız bir sorum daha olacak . denedim ama beceremedim. biz a:z aralığını seçiyoruz. bunu mesela b3:e50 aralığını seçip koplyalamayı nasıl yapabiliriz.
bir de ben yukardaki kod ile kopyala-yapıştır yaptığım zaman bir uyarı alıyorum. şöyle "kopyaladığınız veri çok büyük devam edilsin mi yoksa pano temizlensin mi?" bu uyarıyı almamak mümkün mü?
çok teşekkürler saygılar.:yardim:

 

[alpi]

Belli bir hücre aralığını kopyalamak için

.Sheets("caria").Range("a1:c2").Copy

İletiyi almamak için kodlarınızın başına
application.displayalerts=false
sonuna
application.displayalerts=true yazın

 

[olymposss]

sn alpi

çok teşekkür ederim ellerinize emeğinize sağlık
saygılar