taksit ayı kadar tablo ekleme

[mars2]

İyi Günler,

Çalışma sayfanın a1 hücresinde satış fiyatı, a2 hücresinde, taksit adedi, a3 hücresinde taksit miktarı bulunmaktadır.

a4 hücresi satış fiyatı, b4 hücresi taksitin sıras, C4 hücresi de taksit miktarını gösteren başlık bulunmaktadır.

Buna göre;
A1, A2,A3 hücresine bilgi girdiğimizde a4,b4 ve C4 hücreinin alt tarafına otyomatik olarak taksit adedi kadar tablo çizilsin veya açılsın ve bu hücrelere yukardaki bilgilere göre otomatik yazan makro nedir.
Teşekkürler.

 

[abdi]

sorunuzu tam anlamamakla birlikte
aşağıdaki kodlamayı deneyiniz

[vb:1:80335b6af2]Sub taksitlendir()

Dim i As Integer
Dim c As Currency
c = WorksheetFunction.RoundUp(((Sayfa1.Range("a3") / Sayfa1.Range("a2"))), 2)


For i = 1 To Sayfa1.Range("a2").Value

Cells(i + 4, 3) = c
Cells(i + 4, 1) = i
Next


End Sub
[/vb:1:80335b6af2]

 

[dost]

Merhaba,

[vb:1:876f5ca90e]Sub taksit()
Dim i As Integer, say As Integer
Dim taktut As Double, toptaktut As Double

say = Range("B4").End(xlDown).Row
Range("B5:C" & say + 4).ClearContents
taktut = WorksheetFunction.RoundUp(((Range("A1") / Range("A2"))), 2)

For i = 1 To Range("A2")
If i = Range("A2") Then taktut = Range("A1") - toptaktut
Cells(i + 4, "B") = i
Cells(i + 4, "C") = taktut
toptaktut = toptaktut + taktut
Next i
End Sub[/vb:1:876f5ca90e]