Not hesaplama alt alta yazdırma sorunu

[coldheart]

merhaba arkadaşlar excellde not hesaplama programı yazdım program çalışıyor fakat sadece ilk satıra işlem yapabiliyorum mesela a2 b2 bunlara vize final notlarını yazdırıyorum ortalama felan buluyorum çok iyi ondan sonra bi not daha girilince a3 b3 alt alta yazmasını istiyorum yani yardım ederseniz sevinirim.

döngü kullanmam gerekiyodur muhtemelen ama fazla bi bilgim yok.
kodlar aşağıdaki gibi

Private Sub CommandButton2_Click()
Dim s1 As Integer
Dim s2 As Integer
Dim s3 As Integer
Dim s4 As Integer
Dim ortalama As Integer
Dim vize As Integer
Dim final As Integer
Dim odev As Integer
s1 = Val(TextBox1.Text)
s2 = Val(TextBox2.Text)
s3 = Val(TextBox3.Text)
s4 = Val(TextBox4.Text)
vize = s2 * 0.3
final = s3 * 0.3
odev = s4 * 0.4
ortalama = vize + final + odev
Cells(2, 1) = s1
Cells(2, 2) = s2
Cells(2, 3) = s3
Cells(2, 4) = s4
Cells(2, 5) = ortalama
If ortalama >= 50 Then
Cells(2, 6) = "Geçti"
Else
Cells(2, 6) = "Kaldı"
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub

resimdeki karaladıgım yerlere yazmasını istiyorum teşekkürler.

 

[Murat OSMA]

Cells(2,1) = İkinci satır, birinci sütun demek...
Siz sürekli ikinci satıra kaydettiriyorsunuz...

Şu satırları;

[SIZE="2"]Cells(2, 1) = s1
Cells(2, 2) = s2
Cells(2, 3) = s3
Cells(2, 4) = s4
Cells(2, 5) = ortalama
Cells(2, 6) = "Geçti"
Cells(2, 6) = "Kaldı"[/SIZE]

Şu satırlarla değiştirin;

[SIZE="2"]Range("A65536").End(3) (2,1) = s1
Range("B65536").End(3) (2,1) = s2
Range("C65536").End(3) (2,1) = s3
Range("D65536").End(3) (2,1) = s4
Range("E65536").End(3) (2,1) = ortalama
Range("F65536").End(3) (2,1) = "Geçti"
Range("F65536").End(3) (2,1) = "Kaldı"[/SIZE]

ya da şu satırlarla...

[SIZE="2"]satır = range("a65536").end(3).row  + 1
cells(satır,1) = s1
cells(satır,2) = s2
cells(satır,3) = s3
cells(satır,4) = s4
cells(satır,5) = ortalama
cells(satır,6) = "Geçti"
cells(satır,6) = "Kaldı"[/SIZE]

 

[coldheart]

hocam çok teşekkürler aynen istediğim gibi oldu bide kodların ne işe yaradıgını yazasanız çok sevinirim allah razı olsun.