excelde kayıt işlemi

[chilekeshhh]

merhaba arklar ekteki programımda kaydet tuşuna her basışta hep aynı satıra kayıt yapıyor alt alta atmıyor yardımcı olursanız sevinirim...

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

Ayrıca ONAY butonundaki yazdığınız kodlar için Excel derhanesinde DÖNGÜ'leri inceleyiniz.
zamanınızı ve fazladan satır kullanmanızı en aza indirebilirsiniz.

sizin kodlarınız

Sheets("stok").Range("B3") = Sheets("stok").Range("B3") - Sheets("stok").Range("C3")
Sheets("stok").Range("B4") = Sheets("stok").Range("B4") - Sheets("stok").Range("C4")
Sheets("stok").Range("B5") = Sheets("stok").Range("B5") - Sheets("stok").Range("C5")
Sheets("stok").Range("B6") = Sheets("stok").Range("B6") - Sheets("stok").Range("C6")
Sheets("stok").Range("B7") = Sheets("stok").Range("B7") - Sheets("stok").Range("C7")
Sheets("stok").Range("B8") = Sheets("stok").Range("B8") - Sheets("stok").Range("C8")
Sheets("stok").Range("B9") = Sheets("stok").Range("B9") - Sheets("stok").Range("C9")
Sheets("stok").Range("B10") = Sheets("stok").Range("B10") - Sheets("stok").Range("C10")
Sheets("stok").Range("B11") = Sheets("stok").Range("B11") - Sheets("stok").Range("C11")
Sheets("stok").Range("B12") = Sheets("stok").Range("B12") - Sheets("stok").Range("C12")
Sheets("stok").Range("B13") = Sheets("stok").Range("B13") - Sheets("stok").Range("C13")
Sheets("stok").Range("B14") = Sheets("stok").Range("B14") - Sheets("stok").Range("C14")
Sheets("stok").Range("B15") = Sheets("stok").Range("B15") - Sheets("stok").Range("C15")
Sheets("stok").Range("B16") = Sheets("stok").Range("B16") - Sheets("stok").Range("C16")
Sheets("stok").Range("B17") = Sheets("stok").Range("B17") - Sheets("stok").Range("C17")
Sheets("stok").Range("B18") = Sheets("stok").Range("B18") - Sheets("stok").Range("C18")
Sheets("stok").Range("B19") = Sheets("stok").Range("B19") - Sheets("stok").Range("C19")

Döngü ile

For i = 3 To 19
Sheets("stok").Cells(i, 2) = Sheets("stok").Cells(i, 2) - Sheets("stok").Cells(i, 3)
Next