excelde formuldeki hucreyi periyodik arttırmak

[optech_tr]

Merhaba,

Excelde 8000 kusur hucreden 500 kusur tanesini aralıklı olarak başka hücrelere almak istiyorum. Mesela A5 hucresine =J5 yazarak J5 hücresini alıyorum. A6 hücresine =J10 yazarak J10 hucresindeki degeri aliyorum. Sonra A5 ve A6 yı seçerek kenarından + işaretinden tutup çekip A7 de birakıyorum. Formül olarak =J15 yazmasını bekliyorum ama J7 yaziyor. Bunu nasıl yapabilirim. Zira elle 500 hucreyi tek tek yapmam ikmansiza yakin .

Tesekkurler

 

[Emir Hüseyin Çoban]

. . .

A5 hücresi için formül, aşağıya doğru çoğaltın.

=DOLAYLI("J"&SATIR($A$5)*(SATIR(A5)-4))

. . .

 

[optech_tr]

Hocam valla çok teşekkür ederim. Ödev işi olduğu için bir kaç saat uğraştım o gün. Makro ile yapılabildiğini görünce araştırıp birşeyler yaptım. Ama bu kodun bana çok şey kattı. Yaptığım makroyu da yazıyorum belki bir ihtiyacı olan olur. Pek parametrik değil ama fikir verir.

Private Sub hucrekopyala()
Dim i As Integer
Dim j As Integer

j = 5
For i = 5 To 905
Sheets("Sayfa1").Cells(i, 10).Select // J sutunu i satırından al
Selection.Copy
Sheets("Sayfa1").Cells(j, 13).Select //M sutunu j satırına yapıştır
ActiveSheet.Paste
i = i + 4
j = j + 1

Next i

End Sub