kopyalama sorunu

[fmt1976]

bütün excel.web.tr ciler selam . Öncelikle bu form bana çok sey kazandırdı burada bana yardım eden etmeyen herkese teşekkürler.

BEn bir sorum daha var örnekte kopyalama butonu var. Bu sayfa2 verileri alıyor sayfa1 kopyalıyor. Yanlız sayfa2 silinirse ve kopyalama yapılmak istenirse kod hata veriyor. Ben hata vermesini istemiyorum mesaj kutusu ile beni uyarsın ve kodu sonlandırsın

 

[Fuat Şirin]

dostum şimdi
bu kopyalamayı ne için yaptığını sölersen daha
iyi yardımcı olunur
sayfa2 de hangi aralığı kopyalamak istiyorsun
birde sayfa1 de alt altamı olacak eskisini silip yenisini mi kopyalıcak

 

[fmt1976]

kopyalamada bir sorun yok istediğim şekilde yapıyor. yanlız sayfa2 sildiğinizde kopyalama yapmıyor ve işlem durup hata ekranı geliyor.Benim istediğim ikod sonlanmasın veya hata vermesin ama "kaynak mevcut değil" diye mesaj vermesini istiyorum.

 

[Orion1]

Sub kopyala()
On Error GoTo hata
Sheets("sayfa2").Range("A1:b5").Copy
son = Sheets("sayfa1").[a65536].End(3).Row + 1
Sheets("sayfa1").Cells(son, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
[a1:b10].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
MsgBox "Kopyalama Yapıldı..!!", 64
Exit Sub
hata:
MsgBox "Bir hata oluştu..!!" & vbLf _
& "Büyük ihtimalle Sayfa1 veya Sayfa2 Yok..!!", vbCritical, "HATA"
End Sub

 

[fmt1976]

Büyük hocam