Formül Kopyalama

[cayaso]

İçinde tablolar bulunan 350 sayfadan oluşan bir excel dosyam mevcut.Sayfa adları rakamla belirlenmiş (1-350) şeklindedir.Bu sayfalardaki G29 hücresinde bulunan değerleri Anasayfa'da (E) sütununda E2:E351 aralığına formül olarak makro ile kopyalamak istiyorum. Teşekkür ederim.

 

[Muzaffer Ali]

Aşağıdaki kodlar ile kopyalayabilirsiniz.

Sub FormulKopyala()
    Dim Syf As Worksheet
    Dim Sira As Long
    Dim AnaSayfaAdi As String
    AnaSayfaAdi = "AnaSayfa" 'Buraya kendi ana sayfanızın adını yazın.
    Sira = 1
    For Each Syf In ThisWorkbook.Sheets
        If Not Syf.Name = AnaSayfaAdi Then
            Sira = Sira + 1
            Worksheets(AnaSayfaAdi).Range("E" & Sira).Formula = Syf.Range("G29").Formula
        End If
    Next
End Sub

 

[cayaso]

Sayın dalgalikur, makro hata verdi,acaba benmi anlatamadım. 1 adlı sayfada G29 hücresinde bulunan Anasayfada E3 hücresine, 2 adlı sayfadaki G29 hücresinde bulunan değer Anasayfanın E3 hücresine,150 adlı sayfadaki G29 hücre değeri ise Anasayfada E151 nolu hücreye formül olarak yazılacak. "Worksheets(AnaSayfaAdi).Range("E" & Sira).Formula = Syf.Range("G29").Formula" satırında hata veriyor. Makro üzerinde Anasayfa kelimesini tırnak içine aldım, bu sefer Anasayfada E5'ten başlayarak bütün hücrelere(G28+E29)-F29 formülünü yapıştırıyor.