Tek sayfa için oluşturulan Makroyu kopyalamak

[GoynugurA]

Merhaba,

Tek bir sayfada oluşturduğum makroyu takip eden sayfalarda(360sayfa)
kopyalayabilmek için nasıl bir yol izleyebilirim ki F5 tıklattığımımda hepsi çalışsın

Teşkkürler

 

[Kemal Demir]

Konuyu azacık acarmısınız ve ornek dosya yolayablirmisiniz.

 

[GoynugurA]

Örnek Dosyayı yollayamıyorum çünkü ofis dışındayım, konuyu şöyle açıklayamaya çalışayım; 400 adet referansı ve çizimleri pdf formatından worde aldık orada değiştir komutu ile ilk sayfayı düzeltip excele aldık fakat tek tek yapmak çok vakit kaybı olacağından (böyle 360 sayfa) var tek bir makro yazabilirsek vakit kazanacağız.Umarım açıklayabildim

İlginiz için teşekkür ederim

 

[Kemal Demir]

Dosya Olmadan Belki Sağlıklı Değil ama Zannedersem Çözüm Şöle Olabilir.

Sub aa()
For x = 1 To Sheets.Count
Sheets(1).Select
Cells.Select
Selection.Copy
Sheets(x).Select
Range("A1").Select
Sheets(x).Paste
Range("A1").Select
Next
Sheets(1).Select
End Sub



Umarım işinize yarar

 

[GoynugurA]

Sayın Rakkas,

Çok teşekkür ederim , birazdan deneyeceğiz

İyi Günler dilerim