userformdan kayıt sayfada toplama sorunu

[mustafakoker]

Değerli arkadaşlar oluşturduğum userformdan sayfaya kayıt yaptığımda
G4 sutunununa kayıt yapıyor fakat G3 teki formul çalışmıyor (Formül =ALTTOPLAM(9;G4:G65500) şeklinde

yani G4 e sayı giriyorum 74 656,00 gibi formulde bu sayıyı göstermiyor

formdaki kayıt komutu ise ağağıdaki gibidir.,

' ************* eskik veri girişi kontrolü******************
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
Son_Dolu_Satir = Sheets("KAYIT").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
' ****************** veri girişi ***********************
Sheets("KAYIT").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("KAYIT").Range("A" & Bos_Satir).Value = TextBox2.Text
Sheets("KAYIT").Range("C" & Bos_Satir).Value = ComboBox2.Text
Sheets("KAYIT").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("KAYIT").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("KAYIT").Range("G" & Bos_Satir).Value = TextBox8.Text
Sheets("KAYIT").Range("D" & Bos_Satir).Value = ComboBox1.Text
' *************** kayıt sonrası temizlik ***************

TextBox1.Value = "": ComboBox2.Value = "": TextBox2.Value = "": TextBox8.Value = ""
TextBox4.Value = "": TextBox5.Value = "": ComboBox1.Value = ""
ComboBox2.SetFocus
End If
Else
MsgBox "Kayıt Girildi." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "UYARI"
End If

End Sub

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sheets("KAYIT").Range("G" & Bos_Satir).Value = TextBox8.Value

 

[mustafakoker]

Hocam verdiğiniz kodu denedim ama sonuş alamadım formdan kayıt yaptığımda sayfadaki formul toplama yapmıyor.dosyamı eklesem bakabilirmisiniz

 

[mustafakoker]

formdan kayıt yaptığımda sayfadaki formul toplama yapmıyor.dosya ekte

 

[mustafakoker]

formdan kayıt yaptığımda sayfadaki formul toplama yapmıyor

 

[İhsan Tank]

formdan kayıt yaptığımda sayfadaki formul toplama yapmıyor

merhaba syn : mustafakoker
userform'dan sayfaya kayıt yaptığınızda metin olarak kayıt yapar bunu rakama çevirmek için *1 ( yıldız bir ) kullanınız.
örneğin :

textbox1.text*1

 

[mustafakoker]

merhaba syn : mustafakoker
userform'dan sayfaya kayıt yaptığınızda metin olarak kayıt yapar bunu rakama çevirmek için *1 ( yıldız bir ) kullanınız.
örneğin :

textbox1.text*1

Sayın Ihsan Bey Çok Teşekkür ederim denedim oldu

 

[İhsan Tank]

Sayın Ihsan Bey Çok Teşekkür ederim denedim oldu

rica ederim
kolay gelsin :mutlu: