Otomatik Tablo Oluşturma Problemi

[_Sir_Lancelot_]

Merhabalar,

Otomatik oluşan tablo hazırladım fakat başlangıç ve bitiş noktalarını yapamadım. For döngüsü koymam gerekiyor, oldukça basit bir işlem ama sanırım kafam durdu yardımcı olursanız sevinirim. Dosya ektedir.

Birde Tabloyu Binom dağılım olarak doldurdum işlem yapılamayan yerlerde #NUM! hatası çıkmakta o hücreleri nasıl "0" (sıfır) ile doldurabilirim.. Teşekkürler...

 

[_Sir_Lancelot_]

    Selection.AutoFill Destination:[B]=Range("B10:AO10")[/B], Type:=xlFillSeries
    Selection.AutoFill Destination:=[B]Range("A11:A69")[/B], Type:=xlFillSeries

Örnek Olarak
C6 hücremizde bi sayı var. (örneğin 50) C7 de de son bulunacak nokta yazıyor. (örneğin 75)

B10 hücresine 50 giriyoruz ve 75 e kadar yatay eksen boyunca rakamları dolduruyor. B10-AA10 a kadar doldurmalı.

A11 hücresi tekrar aynı şekilde A36 ya kadar yani 50den75'e kadar doldurmasını istiyorum.

For döngüsünü buraya nasıl monte edebilirim.

 

[_Sir_Lancelot_]

C5 --> Başlangıç Noktası, D7 ----> Bitiş Noktası

For i=C5 to D7
RC
For i=C5 to D7
RC[A]

gibi olacakta fakat ben bunu nasıl kodu nasıl düzenlicem

 

[_Sir_Lancelot_]

Dim i As Integer

For i = Cells("C5").Value To Cells("D7").Value
Selection.AutoFill Destination:=Cells(i, 10), Type:=xlFillSeries
Next i


Burayı nasıl düzenleyebilirim? Belli ki For Argümanlarında problem var