• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Userform 2 hata kodu ve Textbox işlem yapılması

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

arslanbey

Yeni Üye
Katılım
19 Tem 2024
Mesajlar
224
Aldığı beğeni
25
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar;
Userfrom2 ComboBox1 ve ListView1 veri seçtiğim zaman " Run time error 13" hatası alıyorum. Bu sorunu nasıl çözebiliriz.

Userfrom2' de TextBox5' e sıfır (0) hariç herhangi bir rakam girildiğinde TextBox4'deki veriyi sıfır yapabilir miyiz.hata.png
 
Çözüm
Dediğiniz kodu ekledim ama TextBox5'a 1 yazdığımda TextBox4'ü sıfır yapmıyor.
Sayın hocam bu kadar örneklerden sonra siz yukardaki mantığı anlarsınız diye düşünmüştüm.

Yukardaki sayı değil ise şartıydı.Alttakide sıfır değilse için.
If Not IsNumeric(Trim(Me.TextBox5.Value)) Then Me.TextBox4.Value = 0 bunu silip alttakini ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Userfrom2' de TextBox5' e sıfır (0) hariç herhangi bir rakam girildiğinde TextBox4'deki veriyi sıfır yapabilir miyiz.
Alttakini ekleyin ama yine problem devam edecek gibimalum sayıdan sonra başka şeylerde geldiği için sağına.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Ayrıca class içindeki Private Sub ToplamlarTextbox_Kar_zarar(ByVal txtSonuc As String, ByVal txtCikarilacak As String, ParamArray textboxlar()) olan koddaki alkkki ilk kodu silip sondaki kodu ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Dediğiniz kodu ekledim ama TextBox5'a 1 yazdığımda TextBox4'ü sıfır yapmıyor.
Sayın hocam bu kadar örneklerden sonra siz yukardaki mantığı anlarsınız diye düşünmüştüm.

Yukardaki sayı değil ise şartıydı.Alttakide sıfır değilse için.
If Not IsNumeric(Trim(Me.TextBox5.Value)) Then Me.TextBox4.Value = 0 bunu silip alttakini ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Konu Sahibi
Sayın hocam bu kadar örneklerden sonra siz yukardaki mantığı anlarsınız diye düşünmüştüm.

Yukardaki sayı değil ise şartıydı.Alttakide sıfır değilse için.
If Not IsNumeric(Trim(Me.TextBox5.Value)) Then Me.TextBox4.Value = 0 bunu silip alttakini ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bu kod ile istediğim oldu şunu yapabilir miyiz.
TextBox5'e 1 yazdığımda TextBox4 sıfırlamadan önceki değeri TextBox10 (-) olarak yazdırabilirmiyiz.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst