Çözüldü kullanıcı tanımlı kod hatası

F

Feyzullah

Forum Yöneticisi

Yönetici

• 20 Tem 2020

• #2

Paylaştığın kod bloğunda Round(gvergi(TextBox34.Value, TextBox35.Value), 2) bu kodlar yok. Vergi benim anladığım konu değil zaten.

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #3

Feyzullah abi
Seni görmek beni sevindirdi. Allah canını sağ, Ömrünü uzun eylesin inşallah.

TextBox34 Bu ayki vergi
TextBox35 Kümülatif Vergi
Ancak hatanın niye oluştuğunu anlamadım.

Feyzullah abi
belki bir başka başlık ile sormak icap ederdi belki ama rica etsem
commandbutton ile Textbox34'ü TextBox35' in üstüne sürekli aktararak üst üste nasıl toplatabilirim.

 

Oyla 0 Olumsuz oyla

F

Feyzullah

Forum Yöneticisi

Yönetici

• 20 Tem 2020

• #4

Sağol hocam, teşekkürler.

Tam anlamamış olabilirim, bu şekilde dene.

VBA:

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

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #5

Feyzullah abi 2 kere aktardığım zaman
Aktaracağım rakam yani "avergi= TextBox34.Text" 172,93 TL
Aktarılan yani "kvergi= TextBox35.Text" değeri 172,93172,93 şeklinde çıkıyor

 

Oyla 0 Olumsuz oyla

F

Feyzullah

Forum Yöneticisi

Yönetici

• 20 Tem 2020

• #6

Hocam textboxların başına Cint eklermisin.
CInt(TextBox34.Text) şeklinde.

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #7

Feyzullah abi

Kod:

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

 

Oyla 0 Olumsuz oyla

F

Feyzullah

Forum Yöneticisi

Yönetici

• 20 Tem 2020

• #8

Aşağıdaki kodu deneyin hocam ç, ben mobil olduğum için test edemiyorum.

Kod:

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

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #9

Feyzullah abi
üst üste topluyor bu seferde ondalık kısmını (kuruşları) almıyor.

 

Oyla 0 Olumsuz oyla

F

Feyzullah

Forum Yöneticisi

Yönetici

• 20 Tem 2020

• #10

Val yerine CInt yaz dene hocam

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #11

TextBox35.Text = CInt(TextBox35.Text) + CInt(TextBox34.Text)
hata verdi

 

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 20 Tem 2020

• #12

Feyzullah abi
Format(CDbl(TextBox35.Value) + CDbl(TextBox34.Value), "#,##0.00")
ile üst üste topluyor. Ancak bu sefer TextBox35.Value boş olursa hata veriyor.
0 "Sıfır" ekler sonra aktarırsam sıkıntı yok. TextBox35.Value boş olursa hata vermemesi için yardımcı olabilir misin?

 

Oyla 0 Olumsuz oyla

Ö

Ömer BARAN

Forum Kurucusu

Yönetici

• 20 Tem 2020

• #13

Sayın @malatyalı .

Neden bir örnek belge eklemiyorsunuz merak ediyorum doğrusu.

.

 

Oyla 0 Olumsuz oyla

Ö

Ömer BARAN

Forum Kurucusu

Yönetici

• 20 Tem 2020

• #14

Sayın @malatyalı.
Madem işlemi Ms Excel kullanılan bir bilgisayarda yapıyorsunuz;
-- ekteki belgedeki gibi bir KTF kulanılabilir,
-- hiç KTF kullanmadan doğrudan formül ile sonuç alınabilir.
Belge ekte. Faydası olacaktır.

.

 

Ekli dosyalar

• Gelir_Vergisi_Hesaplama.xlsm

  15.7 KB · Görüntüleme: 4

Oyla 0 Olumsuz oyla

B

berkbaba

Normal Üye

• 21 Tem 2020

• #15

ÖMER Abi
teşekkür ederim.

 

Oyla 0 Olumsuz oyla