Formülleri ,tüm sayfalarda aynı kolonlara nasıl copy-paste yaparım?

[aylax]

Selamlar arkadaşlar,iyi akşamlar kolay gelsin,
Sayfa 1 de H ve O kolonlarında (H ve O dahil ) kolon boyunca formüllerim var.
Şimdi bu formülleri diğer sayfalara(6 dosyamda yaklaşık 625 çalışma sayfası var,) aynen (H ve O kolonlarına) copy-paste yapmak istiyorum.Tek tek yapabiliyorum ancak çok zor ve hatalı olabiliyor.
Bu mümkün olurmu?
Esen kalın.

 

[Zeki Gürsoy]

Merhaba,
baslama ve bitis değişkenlerine sayfa isimlerini yazıp çalıştırın.

Sub kopya()
Dim baslama As String, bitis As String, i As Integer

baslama = "Sayfa1"
bitis = "Sayfa3"

    For i = Sheets("" & baslama).Index To Sheets("" & bitis).Index
        Columns("h:o").Copy
        Sheets(i).Columns("h:o").PasteSpecial Paste:=xlPasteFormulas
    Next
    
    Application.CutCopyMode = 0

End Sub

 

[aylax]

Selamlar Sayın anemos,
Verdiğiniz kodları basitçe 1 ve 5 .sayfalar için denedim .Makroyu çalıştırdım ve mesaj kutusunda "Typemismatch" yazdı fakat formüller kopyalanmadı.
Nedendir.

 

[Zeki Gürsoy]

Değişkenleri hatalı tanımlamışım. Kodları tekrar düzenledim.

 

[aylax]

Teşekkür ediyorum Sayın anemos,
sonuç olumlu.
Esen kalın.

 

[baydeniro]

Paylaşım için teşekkürler.