Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-11-2017, 14:06   #1
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan userform textbox toplama problemi

merhaba değerli arkadaşlar,

Hazırladığım bir userform var. Ancak bu formda farklı textboxlara girilen işlerde kdv leri toplatamıyorum. Örnek olarak ilk textboxa işyeri hekimi girelim 1000 tl yazalım. aşağıya %8 kısmına 80 tl çıkıyor. Burda problem yok. Ancak 2. textboxa da diğer sağlık personeli girelim. Ona da 500 tl yazalım. Bu sefer aşağıda sadece 40 tl %8 kdv çıkıyor. Halbuki 80+40 120 tl çıkması gerekiyor. Yani son yazdığımızı baz alıyor. Bunun aynısı %18 kdv için de geçerli. Bir türlü çözemediğim bir sorun. Umarım yardımcı olacak arkadaşlarımız çıkar. Şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: xlsm faturaotur.xlsm (47.0 KB, 7 Görüntülenme)
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 14:21   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,600
Excel Vers. ve Dili:
2010-2016
Varsayılan

KDV yi devam ettirmiyor. Son girilen KDV yi alıyorsunuz. Aşağıdaki şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox13_Change()

On Error Resume Next
    TextBox9 = TextBox8 + TextBox13 + TextBox17 + TextBox21 + TextBox25 + TextBox29 + TextBox33 + TextBox37
    KDV8 = TextBox11.Text
    KDV18 = TextBox10.Text
    If Err <> 0 Then TextBox9 = Empty
    
        If ComboBox3.Value = "İŞ GÜVENLİĞİ UZMANI" Then
    On Error Resume Next
    TextBox10 = KDV18 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
        If ComboBox3.Value = "İŞYERİ HEKİMİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    If ComboBox3.Value = "DİĞER SAĞLIK PERSONELİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    If ComboBox3.Value = "LABORATUVAR TAHLİLLERİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "SOLUNUM FONKSİYON TESTİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "ODYOMETRİ TESTİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "EKG" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "RÖNTGEN" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "İŞE GİRİŞ MUAYENESİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    
    If ComboBox3.Value = "ORTAM ÖLÇÜMÜ" Then
    On Error Resume Next
    TextBox10 = KDV8 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
   
    If ComboBox3.Value = "RİSK DEĞERLENDİRME RAPORU" Then
    On Error Resume Next
    TextBox10 = KDV18 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 14:38   #3
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
KDV yi devam ettirmiyor. Son girilen KDV yi alıyorsunuz. Aşağıdaki şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox13_Change()

On Error Resume Next
    TextBox9 = TextBox8 + TextBox13 + TextBox17 + TextBox21 + TextBox25 + TextBox29 + TextBox33 + TextBox37
    KDV8 = TextBox11.Text
    KDV18 = TextBox10.Text
    If Err <> 0 Then TextBox9 = Empty
    
        If ComboBox3.Value = "İŞ GÜVENLİĞİ UZMANI" Then
    On Error Resume Next
    TextBox10 = KDV18 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
        If ComboBox3.Value = "İŞYERİ HEKİMİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    If ComboBox3.Value = "DİĞER SAĞLIK PERSONELİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    If ComboBox3.Value = "LABORATUVAR TAHLİLLERİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "SOLUNUM FONKSİYON TESTİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "ODYOMETRİ TESTİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "EKG" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "RÖNTGEN" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
     If ComboBox3.Value = "İŞE GİRİŞ MUAYENESİ" Then
    On Error Resume Next
    TextBox11 = KDV8 + Replace(TextBox13 * 0.08, ".", ",")
    
    If Err <> 0 Then TextBox11 = Empty
    End If
    
    If ComboBox3.Value = "ORTAM ÖLÇÜMÜ" Then
    On Error Resume Next
    TextBox10 = KDV8 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
   
    If ComboBox3.Value = "RİSK DEĞERLENDİRME RAPORU" Then
    On Error Resume Next
    TextBox10 = KDV18 + Replace(TextBox13 * 0.18, ".", ",")
    
    If Err <> 0 Then TextBox10 = Empty
    End If
End Sub
Hocam dediğiniz gibi yaptım ama hem toplamayı yapmadı yine hem de değişik bir hata verdi. Dosyayı yüklüyorum hata veren şekilde. Bir de kdvlerde virgüllü değerlerde hata veriyor ya da direk 0 gibi değerler oluşturuyor kendiliğinden hocam
Eklenmiş Dosyalar
Dosya Türü: xlsm faturaotur.xlsm (48.7 KB, 5 Görüntülenme)
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 20:29   #4
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

askm hocam acaba bakabildiniz mi userformun son haline
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 22:02   #5
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

bu konuda desteklerinizi bekliyorum arkadaşlarım. programı ilerletemiyorum takıldım kaldım
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 22:20   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,600
Excel Vers. ve Dili:
2010-2016
Varsayılan

Textbox8 den itibaren Açıklamaların karşısına gizli iki textbox ekleyip birine KDV oranını diğerine KDV yi yazdırın. KDV oranı 8 olanların toplamını KDV8 toplamına, KDV 18 lerin toplamını da KDV 18 lerin toplamına ekleyin. Yoksa veriyi her değiştirmede KDV ekleme yapacaktır.Örneğin 100 yazdınız diyelim. 1 kdv 0,018 10=1,8 olması gerekirken 1,98 olacak,100 yazınca da 18 olması gerekirken 19,98 gibi bir değer çıkar.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 22:27   #7
TURUNCU28
Altın Üye
 
Giriş: 23/04/2017
Şehir: eskişehir
Mesaj: 69
Excel Vers. ve Dili:
excel 2010 türkçe
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Textbox8 den itibaren Açıklamaların karşısına gizli iki textbox ekleyip birine KDV oranını diğerine KDV yi yazdırın. KDV oranı 8 olanların toplamını KDV8 toplamına, KDV 18 lerin toplamını da KDV 18 lerin toplamına ekleyin. Yoksa veriyi her değiştirmede KDV ekleme yapacaktır.Örneğin 100 yazdınız diyelim. 1 kdv 0,018 10=1,8 olması gerekirken 1,98 olacak,100 yazınca da 18 olması gerekirken 19,98 gibi bir değer çıkar.
hocam anlayamadım kusura bakmayın. örnek yapabilir misiniz dosyaya
TURUNCU28 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 00:59


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden