toplam satırının üstüne kaydetme

[talatcd]

Selam arkadaşlar benim yapmış olduğum böyle bir kayıt formülü var fakat en altta toplam almışım.
1- Benim yapmak istediğim yeni kaydı toplam satırın üstüne kaydetmesini istiyorum.
2-Bir de toplam almayı bütün sütunlarda =TOPLA ile yapmışım bunu nasıl otomatik olarak yapabilirz. yardımcı olursanız sevinirim. şimdiden herkese teşekkürler.


Private Sub CommandButton1_Click() 'Kaydet
Worksheets("Parametre").Select
For a = 1 To 110
If Controls("textbox" & a) = "" Then
MsgBox "VERİ GİRİŞİ EKSİKTİR"
Exit Sub
End If
Next
sonsat = [A65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2 * 1
Cells(sonsat, 4) = TextBox3 * 1
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6 * 1
Cells(sonsat, 8) = TextBox7
Cells(sonsat, 9) = TextBox8 * 1
Cells(sonsat, 10) = TextBox9 * 1
Cells(sonsat, 11) = TextBox10 * 1
Cells(sonsat, 12) = TextBox11 * 1
Cells(sonsat, 13) = TextBox12 * 1
Cells(sonsat, 14) = TextBox13 * 1
Cells(sonsat, 15) = TextBox14 * 1
Cells(sonsat, 16) = TextBox15 * 1
Cells(sonsat, 17) = TextBox16 * 1
Cells(sonsat, 18) = TextBox17 * 1
Cells(sonsat, 19) = TextBox18
Cells(sonsat, 20) = TextBox19
Cells(sonsat, 21) = TextBox20
Cells(sonsat, 22) = TextBox21
Cells(sonsat, 23) = TextBox22
Cells(sonsat, 24) = TextBox23 * 1
Cells(sonsat, 25) = TextBox24
Cells(sonsat, 26) = TextBox25
Cells(sonsat, 27) = TextBox26 * 1
Cells(sonsat, 28) = TextBox27 * 1
Cells(sonsat, 29) = TextBox28 * 1
Cells(sonsat, 30) = TextBox29 * 1
Cells(sonsat, 31) = TextBox30 * 1
Cells(sonsat, 32) = TextBox31 * 1
Cells(sonsat, 33) = TextBox32 * 1
Cells(sonsat, 34) = TextBox33 * 1
Cells(sonsat, 35) = TextBox34 * 1
Cells(sonsat, 36) = TextBox35 * 1
Cells(sonsat, 37) = TextBox36 * 1
Cells(sonsat, 38) = TextBox37 * 1
Cells(sonsat, 39) = TextBox38 * 1
Cells(sonsat, 40) = TextBox39 * 1
Cells(sonsat, 41) = TextBox40 * 1
Cells(sonsat, 42) = TextBox41 * 1
Cells(sonsat, 43) = TextBox42 * 1
Cells(sonsat, 44) = TextBox43 * 1
Cells(sonsat, 45) = TextBox44 * 1
Cells(sonsat, 46) = TextBox45 * 1
Cells(sonsat, 47) = TextBox46 * 1
Cells(sonsat, 48) = TextBox47 * 1
Cells(sonsat, 49) = TextBox48 * 1
Cells(sonsat, 50) = TextBox49 * 1
Cells(sonsat, 51) = TextBox50 * 1
Cells(sonsat, 52) = TextBox51 * 1
Cells(sonsat, 53) = TextBox52 * 1
Cells(sonsat, 54) = TextBox53 * 1
Cells(sonsat, 55) = TextBox54 * 1
Cells(sonsat, 56) = TextBox55 * 1
Cells(sonsat, 57) = TextBox56 * 1
Cells(sonsat, 58) = TextBox57 * 1
Cells(sonsat, 58) = CLng(CDate(TextBox57))
UserForm_Initialize
ListBox1.ListIndex = sonsat - 2
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu şekilde sorunuzdan ben birşey anlamadım örnek bir dosya üzerinde izah ederseniz daha sağlıklı olacaktır.

 

[talatcd]

dosya ekte

ilgin için saol Cost_Control dosyam ekte bir bakarsan sevinirim.

 

[Korhan Ayhan]

Selamlar,

Denedim toplam satırı olarak belirttiğiniz satırın üzerine kaydediyor. Siz tam olarak ne istemiştiniz.

 

[talatcd]

biraz uğraşmıştım yapmışım haberim yokmuş sizi yorduğum için özür dilerim.
bir sorum daha olacak,
toplu hesaplama yaptırabilirmiyim. şu an her şahsa puantaj girdikten sonra hesaplamayı tek tek yaptırıyorum bu da zahmetli oluyor. Tüm puantajları girdikten sonra toplu hesaplamama yaptırırsam çok iyi olur. Bir de nakit sayfasına = ile getirmişim değerleri toplam satırının değerlerini butonla atabilirmiyiz. Çünkü kaydettikçe toplam satırının yeri değişecek bu da her seferinde = kullanarak seçmek lazım