sayıları userformdan tablo üzerindeki sayılara eklemek

[maras321]

arkadaşlar merhaba.ekteki dosyada bir tablo ve user form mevcut.user formda sayı olarak girmiş oldugum verileri nasıl tablo üzerine eklerim.yardımlarınız için şimdiden teşekkürler.

 

[belinay42]

Merhaba

arkadaşlar merhaba.ekteki dosyada bir tablo ve user form mevcut.user formda sayı olarak girmiş oldugum verileri nasıl tablo üzerine eklerim.yardımlarınız için şimdiden teşekkürler.

DOSYANIZ EKTEDİR USERFORMLA İLGİLİ DÜZELTMELERİ KENDİNİZ YAPABİLİRSİNİZ

ANCAK LİSTBOX KULLANDIĞINIZ İÇİN VERİ GİRİŞİ YAPILMIYORDU BEN TEXTBOX OLARAK DEĞİŞTİRDİM

KOLAY GELSİN

SAYGILAR

 

[maras321]

yardımınız için çok teşekkürler ama ben userformudaki sayı olarak girilen sayıları tabloya eklemek istiyorum 1 mesajdaki eke bakınız...

 

[maras321]

arkadaşlar yok mu yardım edecek?

 

[maras321]

Sayfa1.Range("C4").Value = Sayfa1.Range("C4").Value + TextBox1.Text
Sayfa1.Range("C5").Value = Sayfa1.Range("C5").Value + TextBox2.Text
Sayfa1.Range("C6").Value = Sayfa1.Range("C6").Value + TextBox3.Text
Sayfa1.Range("C7").Value = Sayfa1.Range("C7").Value + TextBox4.Text
Sayfa1.Range("C8").Value = Sayfa1.Range("C8").Value + TextBox5.Text
uzun uğraşlar sonucu bunları buldum ama bir türlü istediğim gibi olmadı sayfaya ekleme yapıyorum ama eror 13 hatası veriyor. oda genelde bi kutuya sayı girmezsem oluyor sizcde neden.

 

[maras321]

If IsNumeric(TextBox1.Text) Then Sayfa1.Range("C4").Value = Sayfa1.Range("C4").Value + TextBox1.Text
If IsNumeric(TextBox2.Text) Then Sayfa1.Range("C5").Value = Sayfa1.Range("C5").Value + TextBox2.Text
If IsNumeric(TextBox3.Text) Then Sayfa1.Range("C6").Value = Sayfa1.Range("C6").Value + TextBox3.Text
If IsNumeric(TextBox4.Text) Then Sayfa1.Range("C7").Value = Sayfa1.Range("C7").Value + TextBox4.Text


neyse ben kendim hallettim.yardımlarınız için teşekkürler.