Çoklu TextBox toplamı

[ulutanas]

Arkadaşlar merhaba,

10 tane TextBox toplamında ve sonuca göre tekrar veri girişinde sorun yaşıyorum. Sizlerden ricam ekte bulunan dosyada sorun açıklaması sayfasını kontrol ederek yardımcı olursanız çok memnun olurum.

İyi çalışmalar dilerim,
Saygılarımla...
Ulutan Uygur.

 

[işsiz123]

Dosyanız ekte

 

[ulutanas]

Yardımınız için çok teşekkür ederim arkadaşım. Her şey tam istediğim gibi olmuş net sonuçlara kavuştum sonunda, lakin işlemi kaydederken sorun çıkarıyor.

Private Sub CommandButton1_Click()
Sheets("FATURABASKI").Range("b1").CDblue = TextBox1.Text
Sheets("FATURABASKI").Range("b2").CDblue = TextBox2.Text
Sheets("FATURABASKI").Range("b3").CDblue = TextBox3.Text
Sheets("FATURABASKI").Range("b4").CDblue = TextBox4.Text

kaydet tuşuna bağlı tüm satırlarda hata veriyor.

Yardımcı olursanız sevinirim.

İyi çalışmalar dilerim,
Saygılarımla...

 

[ulutanas]

Bu şekilde düzelttim.

Sheets("FATURABASKI").Range("b1").Value = TextBox1.Text

İlginiz için çok teşekkürler,
İyi çalışmalar dilerim,
Saygılarımla...

 

[işsiz123]

Rica ederim iyi çalışmalar