makro ile textbox larda hesaplama ve excele aktarma

[ararmisin]

öncelikle herkese merhaba
bana göre büyük size göre küçük bir kaç sorunum var

ekteki dosyada TextBox lara bilgi girişi yapılıp hesapla butonunu basıldığında TextBox9 . TextBox10 ve TextBox11 içeriklerini tek tek aktarma yapıyor ( her tıklamada birini hesaplatıyor )üçünüde tek tıklama ile yapabilir miyiz
yada hiç buton kullanmadan bilgiler girildikce ilgili TextBox larda hesaplama yaptırabilir miyiz

birde Aktar butınuna bastığımda TextBox14 ile A sütunundaki ayları karşılaştırıp verileri ilgili ayın karşısındaki hücrelere yazdırabilmek için ne yapmalıyım.

yardımlarınız için şimdiden tşk. ederim

 

[Levent Menteşoğlu]

Hesapla butonundaki kodu aşağıdaki ile değiştirin.

[vb:1:6a6cc06b0e]Private Sub hesap__Click()
Dim t(11) As Double
t(1) = TextBox2.Value
t(2) = TextBox3.Value
t(3) = TextBox4.Value
t(4) = TextBox5.Value
t(5) = TextBox6.Value
t(6) = TextBox7.Value
t(7) = TextBox8.Value
t(8) = TextBox1.Value
t(9) = TextBox13.Value
TextBox10 = Round(t(2) / (t(2) + t(4)), 2)
t(11) = TextBox10.Value
TextBox9 = Format(Round(((t(1) + t(2) + t(3) + t(4) + t(5) + t(6) + t(7)) - (t(8) + t(9))) * t(11), 2), "#,##0.00")
t(10) = TextBox9.Value
TextBox11 = Format(Round(((t(10) * 15) / 100), 2), "#,##0.00")
End Sub
[/vb:1:6a6cc06b0e]

Aktar butonundaki koduda aşağıdaki ile değiştirin.

[vb:1:6a6cc06b0e]Private Sub aktar__Click()
Sheets("aa").Activate
If TextBox2.Value <> "" Then
sat = Sheets("aa").[a1:a65536].Find(DateSerial(2006, Month(TextBox14), 1)).Row
Cells(sat, "b") = TextBox2.Value * 1
Cells(sat, "c") = TextBox3.Value * 1
Cells(sat, "d") = TextBox4.Value * 1
Cells(sat, "e") = TextBox5.Value * 1
Cells(sat, "f") = TextBox6.Value * 1
Cells(sat, "g") = TextBox7.Value * 1
Cells(sat, "h") = TextBox8.Value * 1
Cells(sat, "j") = TextBox1.Value * 1
Cells(sat, "k") = TextBox13.Value * 1
Sheets("bb").Range("b5").Value = TextBox9.Value
Sheets("bb").Range("b6").Value = TextBox12.Value
Sheets("bb").Range("b7").Value = TextBox11.Value
Sheets("bb").Range("b3").Value = TextBox14.Value & " - " & TextBox15.Value
End If
End Sub[/vb:1:6a6cc06b0e]

 

[ararmisin]

çok tşk. ederim leventm
ellerine sağlık...