Başka bir sayfadan sabit aralıkla veri almak

[ugrkn]

Başka bir sayfadan belirli verileri atlayarak alıp tablo oluşturmam gerekiyor.
sayfa 1 de;
A1 için =Sheet3!B26 yazdım. Formülü 40 satır kaydırarak çoğaltmak istiyorum.
Yani;
A2: =Sheet3!B66
A3: =Sheet3!B106
A4: =Sheet3!B146
.
.
.
Aramadan bulduğum sonuçları uyarlayamadım. Yardımınız için teşekkürler.

 

[quesh]

Yeni bir modül ekleyip aşağıdaki kodu yazıp deneyin.
Bir buton oluşturup bu modüle bağlayın.

Sub formul()

i = 1
For j = 26 To 65000
Sheets("Sayfa1").Cells(i, 1) = Sheets("Sayfa2").Cells(j, 2)
i = i + 1
j = j + 40
Next

End Sub