1004 hatası

[kan-nas]

Sub Button1_Click()
For Each sayfa In ActiveWorkbook.Sheets
If sayfa.Name <> "yeni" Then
Sheets(sayfa.Name).Select
aaa = Range("c65536").End(3).Row
Range("a1:aaa").SelectSelection.Copy
End If
Next
End Sub

yukarı kodda 5 satır 1004 run time hatası veriyor.
Amacım A1 den C nin en son dolu hücresine kadar olan hücreleri kopyalamak.Başka kodda aklıma gelmiyor.
Sorun nedir ve nasıl kod yazmalıyım.

 

[zafer]

Merhaba

Sub Button1_Click()
For Each sayfa In ActiveWorkbook.Sheets
If sayfa.Name <> "yeni" Then
Sheets(sayfa.Name).Select
aaa = Range("c65536").End(3).Row
Range("a1:c" & aaa).Select
Selection.Copy
End If
Next
End Sub

Makronuza göre düzgün kodlar bunlar
Yalnız ne yapmak istediğinizi ayrıntılı yazarsanız çözüm üretebiliriz.
Yukarıdaki kodlar hiç bir şey ifade etmiyor.

 

[kan-nas]

Yapmak istediğim şu: 3 sayfa var ve buradaki verileri kopyalayıp 4 sayfaya alt alta yapuştırmak.
Kısaca 1 . sayfadaki bilgileri kopyalayacak.sayfa 4 e yapıştıracak
sonra sayfa2 yi seçecek bilgileri kopyalayıp sayfa 4e yapıştıracak.
sayfa1,2,3 deki bilgiler sayfa 4 e alt alta yazacak..

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.
3 sayfa olması önemli değil istediğiniz kadar sayfa açabilirsiniz.
Diğer sayfalardaki verileri "yeni" isimli sayfaya yapıştırır.

 

[kan-nas]

Üstad sağolun..