sayı serisi yapmak

[antroch]

Merhaba
1den 7 adet
2den 7 adet
3den 7 adet şeklinde 1den başlayarak 7tane aynı rakam sonra 1 artarak 7 tane o rakamdan ve aşağı doğru giden sutun oluşturmak istiyorum.
Nasıl yapabilirim?

 

[Korhan Ayhan]

İlk olarak hangi hücreden başlayacak?

 

[antroch]

a1 den ve 1 den başlayıp 7 adet 1 sonra altına 2..bundan da 7 adet sonra altına 3 bundanda 7 adet diye 1000 e kadar gidecek..

 

[aliveli06]

sayfanın kod bölümüne aşağıdaki kodları kopyalayıp çalıştırın. (f5)

Sub sayi()
Dim j As Integer, i As Byte, say As Integer
Application.ScreenUpdating = False
say = 1
    For j = 0 To 6993 Step 7
        For i = 1 To 7
            Cells(j + i, "a") = say
        Next i
      say = say + 1
    Next j
Application.ScreenUpdating = True
End Sub

 

[bzace]

Merhabalar,
Formül ile alternatif;
5 sayı için yapılmıştır!

• A1:A5 aralığına : 1,2,3,4,5
• B1 hücresine : Sayı adedimiz "5"

İlgili formülü C1 hücresine yazıp aşağı doğru sürükleyiniz.

=İNDİS(A$1:A$5;1+MOD((SATIR()-1)/7;B$1))

Daxe Syán

 

[Korhan Ayhan]

Alternatif;

A1 hücresine uygulayıp alt hücrelere sürükleyiniz.

=YUKARIYUVARLA(SATIR()/7;0)