Tüm sayfalarda işlem yapmak

[Erdinç FIRTINA]

Değerli forum üyeleri,

Aşağıdaki formülü sadece sayfa birde değil, kod olarak yazdığımda Sayfa1 den başlayarak Sayfa25 e kadar tüm sayfalarda çalışmasını istiyorum.
bunun için "Sayfa1:Sayfa25" olabilir diye düşündüm ama olmadı.

"Sayfa1 than Sayfa25" diye düşündüm yine olmadı.
Nasıl bir değişiklik yapmalıyım?

Sub EnterFormula()
Worksheets("Sayfa1").Range("D6").Formula = "=SUM(D25)"
End Sub

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub EnterFormula()
For Each say In Worksheets
say.Range("D6").Formula = "=SUM(D2:D5)"
Next
End Sub

 

[Erdinç FIRTINA]

Sayın ripek,
zamansızlıktan deneyemedim ama deneyince de sonucu bildireceğim.

Her şey için çok teşekkür ederim!!!