Girilen sayının satırlara otomatik olarak eklenmesi

[why35]

Herkeze Merhaba ,
Yapmak istediğim şey
Bir hücreye yazdığım sayının makro yoluyla istenen sütundan aşağı kadar yazdığım sayı kadar rakamların artarak eklenmesi.Bu sayı 20 den büyüksek 20 ye kadar o başlanması istenen hücreden sıralanması geri kalanı belirlenen ikinci başlangıc noktasından artarak devam etmesi.

Örnek olarak "giris" sayfasının C9 hücresine 40 girdim
"tablo" sayfasının B8 hücresinden başlıyarak aşağıya doğru artan şekilde
B8=1
B9=2
B10=3 ....
Şeklinde B36 ya kadar rakamların artarak devam etmesi
B36 hücresinde 29 da bitip "tablo2" sayfasına giderek oranın B8 hücresinden 30 dan başlıyarak yine aynı şekilde girilen hane kadar aşağıya sıralanması.

Yardımlarınızdan dolayı şimdiden teşekkür ederim.
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub ornek()
sayi = [c9]
For t = 1 To sayi
k = k + 1
If t <= 29 Then
Sheets("giris").Cells(k + 7, 1) = [f10]
Sheets("giris").Cells(k + 7, 2) = t
ElseIf t >= 29 Then
c = c + 1
Sheets("tablo2").Cells(c + 7, 1) = [f10]
Sheets("tablo2").Cells(c + 7, 2) = t
End If
Next
End Sub

 

[why35]

Aşağıdaki kodu dener misiniz?

Sub ornek()
sayi = [c9]
For t = 1 To sayi
k = k + 1
If t <= 29 Then
Sheets("giris").Cells(k + 7, 2) = t
ElseIf t >= 29 Then
c = c + 1
Sheets("tablo2").Cells(c + 7, 2) = t
End If
Next
End Sub

İlginizden ve yardımlarınızdan dolayı çok teşekkür ederim.
Hamitcan arkadaşımızın vermiş olduğu kod tam olarak istediğim gibi olmuş.Ellerine sağlık.
Bir ilave sorum daha olacaktı.
giris sayfasındaki F10 hücresinde bulunan veriyi bir önceki sorumdaki C9 hücresinde yazan sayı kadar "tablo" sayfasının a8 hücresinden başlıyarak yine aşağıya kadar a36 ya kadar KOPYALAMASI fazla gelen sayı kadarda yine "tablo2" sayfasının a8 inden başlıyarak devam etmesi
; bir önceki sıralama mantığıyla kopyalamaya devam etmesi.
Teşekkür ederim.
Saygılarımla

 

[hamitcan]

Yukar&#305;daki kodu g&#252;ncelledim

 

[why35]

Yukarıdaki kodu güncelledim

Sayın hamit bey

Parçaparça sorduğum için beni affedin , buna tablo3,tablo4....tablo10 a kadar yeni çalışma sayfaları eklesem ve girmiş olduğum sayı 70 lerde yada 80 lerde olduğunda ikinci sayfadan kaldığı yerden tablo3,tablo4...tablo10 a kadar sıralaması mümkünkü?
Teşekkür ederim
Saygılarımla

 

[hamitcan]

&#214;rnek bir dosya ekler misiniz?