Userform Üzerinde Textbox Toplama Çarpma

[fledermaus]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

İngilizce

Merhaba,

User form üzerinde oluşturmuş olduğum bazı textbox öğelerinde yine aynı userform üzerindeki bazı textboxların toplama yada çarpmasını almak istiyorum.

Bunula ilgili örnek paylaşabilecek arkadaşlardan rica ediyorum. Site içerisinde arama yaptım ancak çok fazla sonuca ulaşamadım yada ulaştığım sonuçlardan bir yol çıkaramadım.

Yardımlarınız için şimdiden çok teşekkür eder, herkese iyi çalışmalar dilerim.

Syg,

 

Listbox Üzerinden Döküman Görüntüleme

Listbox Nesnesinde Anlık Kayıt Görüntüleme

[okutkan]

Dört işlem yapmanın çok bi teferruatı yok.
Örnek Textbox 1 e toplamı yazar
Textbox1 = cdbl(textbox3) + cdbl(textbox4)
*,/,- karakterlerini kullanarak istediğiniz dört işlemi yapabilirsiniz.
Cdbl sayının virgüllü olduğunu belirtir.

 

[okutkan]

Textbox değerlerini Değişkenlere atayıp o şekilde de kullanabilirsiniz;

Görüntülemek için giriş yapmanız gerekmektedir.
(6 satır)

 

[fledermaus]

Hocam teşekkürler. Peki aynı kodları label içinde kullanabilir miyim? Sanırım veri girişi yapılırken texboxlara sehven müdahele riski olduğunda label kullanılıyor.

Syg,

 

[okutkan]

Textbox a müdahale edilmesini istemiyorsanız textbox ın locked ayarını değiştirin.
Label kullanmak istiyorum dersenizde cdbl(label1.caption) şeklinde kullanabilirsiniz.

 

[fledermaus]

Hocam tekrar merhaba,

Kodları kullanıyorum ama veriler girilirken toplamı anlık olarak göstermiyor. Anlık olarak görebilmek için kodu farklı mı yazmak gerekir?

Syg,

 

[okutkan]

Hangi textbox değerleri değiştiğinde sonuç değişsin istiyorsanız o textbox ların change olayını kodlamanız gerekir.
textboxlardaki değerin sayı olup olmadığı kontrol edilmeli yoksa kod çalışırken hata alabilirsiniz;
Örnek

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

Aynı kodu tx3 içinde yazmanız gerekir, Tx3 e değer girdiğinizde tx1 in değeri tekrar hesaplanması için.

 

[okutkan]

Aşağıdaki gibi de kullanabilirsiniz.

Görüntülemek için giriş yapmanız gerekmektedir.
(18 satır)

 

[fledermaus]

Hocam aşağıdaki hata nedir anlam veremedim. Herşeyi tek tek kontrol ettim. Text box isimelrinde yanlışlıkta yok. Problem ne olabilir ?

Syg,

 

[fledermaus]

İlk textbox da görmediğim bir problem vardır diye düşündüm, sildim ve diğerleri ile denedim. Ama onda da deger1 hatası verdi.

Syg,

 

[ExcelDepo]

Konuya çok müdahil olmak istemem ama, resimde bir hata vs yok. Hata alıyorsanız, onun resmini eklemenizde fayda var.

 

[fledermaus]

@admin

Hocam hatayı bu şekilde veriyor. Kodu yeni açmış olduğum bir modüle yazdım. Ondan kaynaklı olduğunu sanmıyorum ama yine de bir danışayım istedim.

Syg,

 

[ExcelDepo]

O TextBox yok görünüyor. Kontrol etmenizde fayda var. İsmini vs değişmiş olabilirsiniz.

 

[okutkan]

Kodları textbox ların üzerinde bulunduğu Userform içinde kullanıyorsunuz değil mi?

 

[fledermaus]

@admin

Hocam yukarıda bahsetmiş olduğum gibi hata veren textbox ı silip ötekilerle devam ettim ama yien aynı hatayı verdi. Ayrıca diğer kodlarda hata veren textbox lar çalışıyor. Yani ilgili textboxlara değer girildiğinde kayıt işlemindne sonra dosyay yüklüyor.

Syg

 

[fledermaus]

@okutkan

#12Hocam hatayı bu şekilde veriyor. Kodu yeni açmış olduğum bir modüle yazdım. Ondan kaynaklı olduğunu sanmıyorum ama yine de bir danışayım istedim.

Şimdi userform içine yazdım çalıştı hocam ama bu seferde sonuç göstermesi gereken texbox da girilen değerlerin toplamı çıkması gerekirken yan yana çıkıyorlar.

 

[okutkan]

Cdbl(deger1) + cdbl(....) şeklinde kullanın. Virgüllü sayı kullanılmayacaksa val(deger1) kullanabilirsiniz.

 

[fledermaus]

@okutkan
@admin

Herkese çok çok teşekkür ederim. Kodları çalıştırdım. Umarım daha çok ilerletebilirim bu işi. Bazen pes etmeye yakınken siz yetişiyorsunuz ALLAH sizden bin kere razı olsun.

Sevgiler, Saygılar,

 

[fledermaus]

İşlemi devam ettirdim ancak bir yerde bir hata yapıyorum ama anlam veremedim. Bir önceki kodda toplama işlemi için çekmiş olduğum textbox11 i ikinci yazdığım kodda başka bir sonuc textbox da bulmak için çarpıyorum. Problem bundan kaynaklı olabilir mi acaba ? Arada end if gibi bir bitir başla komutu mu yazmam lazım ? Muhtemelen ilk kodun içine bu da eklenir ama ben acemi olduğum için çözemedim açıkcası.

İşlemin aslı şu şekilde

TextBoX9 * TextBoX10 = TextBoX11 Then

TextBoX11+ TextBoX12 +TextBoX13 +TextBoX14

= TextBox15

 

[okutkan]

Hesapla isminde iki prosedür kullanmışsınız. Birinin ismini değiştirin.