Formül ile olmaz ise şayet makro ile sayı saydırma.

[Carpintero]

Merhaba arkadaşlar.
"XY" sayfasına İLK KEZ giriş yaptığımda
D39 aralığında 1 2 3 4 5 6 7 .
2. kez geldiğimde 8 9 10 11 12 13 14
3. kez geldiğimde 15 16 17 18 19 20 21
rakamlarını görmek istiyorum
yani 7 şer 7 şer saydıracağız.

Eğer bunu formül ile yapabilir isek çok iyi olur.
Olmadı makro ile de yapılabilir.
Değerli yardımlarınızı bekliyorum.

https://www.dosyaupload.com/ex2o

 

[ÖmerBey]

Merhaba,
İlgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Activate()
Dim s As Integer, a As Byte
s = Range("D9").Value
For a = 1 To 7
    Cells(a + 2, "D").Value = s + a
Next
End Sub

 

[Carpintero]

Ömer Bey teşekkür ederim
Ellerinize sağlık.

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...