Textbox rakamdan sonra virgül sorunu ve kdv ayarlama sorunu

[TURUNCU28]

arkadaşlar merhaba
işyerim için userform üzerinden bir tane fatura programı yapmaya çalışıyorum. ancak 2 sorunla başa çıkamadım. birincisi adet ile birim fiyat otomatik çarpılıp yanındaki textboxa yazılıyor ama birim fiyata virgül koyup rakam yazmaya çalışınca program kilitleniyor. ben örnek olarak 1 adet ve 9,75 tl değerlerini girdiğimde yan tarafta otomatik 9,75 çıksın istiyorum ve genel toplamda da böyle virgüllü gözüksün istiyorum.

ikinci sorunum işin özelliğine göre kdv ayarladım. 8 adet açıklama yeri mevcut. herbir yere farklı ürün gireceğim. sonunda %18 ya da %8 tüm kdv ler kendi içinde yan taraftaki textboxda toplansın istiyorum ama onu da beceremedim. örneğin 2 tane ürün olsun biri 100 tl diğeri 200 tl ikisi de % 18 kdv olsun. aşağıdaki kdv bölümünde ikisinin toplam olan 54 tl olması gerekirken ya 18 ya da 36 tl gözüküyor.
Yardımcı olursanız sevinirim

 

[antonio]

Merhaba,
Eğer doğru dosya yüklediyseniz, yanlış formatta kaydettikten sonra gönderdiğiniz için sözünü ettiğiniz hiçbir öğe yerinde bulunamadı.
Excel dosyaları; xlsx uzantısı ile kaydedilirlerse, makroları otomatik olarak silerler.
xls veya xlsm uzantılarından biri ile kaydettikten sonra, mevcut mesajınızdaki dosyayı kaldırıp, yenisi ile güncelleyebilirsiniz.

 

[TURUNCU28]

hocam merhaba dediğiniz gibi yeniden kaydettim ve yükledim

 

[antonio]

.................. adet ile birim fiyat otomatik çarpılıp yanındaki textboxa yazılıyor ama birim fiyata virgül koyup rakam yazmaya çalışınca program kilitleniyor. ben örnek olarak 1 adet ve 9,75 tl değerlerini girdiğimde yan tarafta otomatik 9,75 çıksın istiyorum ve genel toplamda da böyle virgüllü gözüksün istiyorum.
...

Örnek dosyanızı inceliyorum, yazdıklarınızın izi bile yok.
Textbox nerede? Ben göremedim.
Hadi onu geçtik, hesaplamayı hücrelerde mi yapacağız diye bakınıyorum,
9,75 i nereye yazdınız, sayfada göremedim. Birim diye başlık yok, Fiyat başlığı yok. K sütununda alt alta üç tane 100 rakamı, L sütununda alt alta 3 tane 1180 yazılı. Her ikisininde başlığı yok.
Hiç değilse sayfaya bir açıklama ekleseydiniz. şu hücreye şunu, şu hücreye bunu, sonucu şu hücrede şu formatta görmek istiyorum diye belirtseydiniz.

 

[TURUNCU28]

Örnek dosyanızı inceliyorum, yazdıklarınızın izi bile yok.
Textbox nerede? Ben göremedim.
Hadi onu geçtik, hesaplamayı hücrelerde mi yapacağız diye bakınıyorum,
9,75 i nereye yazdınız, sayfada göremedim. Birim diye başlık yok, Fiyat başlığı yok. K sütununda alt alta üç tane 100 rakamı, L sütununda alt alta 3 tane 1180 yazılı. Her ikisininde başlığı yok.
Hiç değilse sayfaya bir açıklama ekleseydiniz. şu hücreye şunu, şu hücreye bunu, sonucu şu hücrede şu formatta görmek istiyorum diye belirtseydiniz.

eklediğim dosyada user form açılmıyor mu? yanlış mı yüklüyorum bilemedim.

 

[antonio]

eklediğim dosyada user form açılmıyor mu? yanlış mı yüklüyorum bilemedim.

Maalesef! Düğmeye basınc bir xla dosyasını bulamadığını belirtiyor. Dosya içinde hazırlanmış ibr userform mevcut değil. Eğer ortada bir userform olması gerekiyorsa, dosyanızla birlikte açılan eklenti dosyalarından birine çizdiğinizi tahmin ediyorum.

 

[TURUNCU28]

Maalesef! Düğmeye basınc bir xla dosyasını bulamadığını belirtiyor. Dosya içinde hazırlanmış ibr userform mevcut değil.

hocam yüklüyorum ama olmuyor sanırım. nasıl kaydetmem gerekiyor. farklı kaydet dedim yine makro içerebilen excel çalışma kitabı yaptım. başka yöntem var mı peki.

 

[TURUNCU28]

Maalesef! Düğmeye basınc bir xla dosyasını bulamadığını belirtiyor. Dosya içinde hazırlanmış ibr userform mevcut değil. Eğer ortada bir userform olması gerekiyorsa, dosyanızla birlikte açılan eklenti dosyalarından birine çizdiğinizi tahmin ediyorum.

tekrar farklı şekilde laydettim ve yükledim. deneyebilir misiniz acaba?

 

[antonio]

hocam yüklüyorum ama olmuyor sanırım. nasıl kaydetmem gerekiyor. farklı kaydet dedim yine makro içerebilen excel çalışma kitabı yaptım. başka yöntem var mı peki.

Doğru yaptınız. Bunda sorun yok. Bazen (muhtemelen sizinki) kod penceresinde birden çok dosya birlikte açılırlar. sonu xla ile biten dosyalardır bunlar. Eklenti de diyebiliriz. Seçenekler menüsünden bu eklentileri devre dışı bırakırsanız, kod penceresinde kafanız karışmaz. Sadece dosyanız görünür. Farkında olmadan userformu başka bir dosyanın içine kaydetmiş olmazsınız. Biraz pratik yaparsanız bunların küçük ayrıntılar olduğunu anlayacaksınız.

 

[TURUNCU28]

Doğru yaptınız. Bunda sorun yok. Bazen (muhtemelen sizinki) kod penceresinde birden çok dosya birlikte açılırlar. sonu xla ile biten dosyalardır bunlar. Eklenti de diyebiliriz. Seçenekler menüsünden bu eklentileri devre dışı bırakırsanız, kod penceresinde kafanız karışmaz. Sadece dosyanız görünür. Farkında olmadan userformu başka bir dosyanın içine kaydetmiş olmazsınız. Biraz pratik yaparsanız bunların küçük ayrıntılar olduğunu anlayacaksınız.

Son yüklediğimde userform açıldı mı peki hocam? Kontrol edebildiniz mi

 

[antonio]

Ben size bir userform oluşturdum, ve üzerine 3 adet textbox, 1 adet combobox ve bir adet buton yerleştirdim.
nesneleri ve kodları inceleyiniz.

 

[TURUNCU28]

Ben size bir userform oluşturdum, ve üzerine 3 adet textbox, 1 adet combobox ve bir adet buton yerleştirdim.
nesneleri ve kodları inceleyiniz.

hocam elinize sağlık. ben de tekrar yükledim dosyayı. hazırladığım bir userform var eğer açabilirseniz onun üstünden tekrar konuşsak çok sevinirim

 

[antonio]

hocam elinize sağlık. ben de tekrar yükledim dosyayı. hazırladığım bir userform var eğer açabilirseniz onun üstünden tekrar konuşsak çok sevinirim

12.Mesajınızdaki dosyada bir userform var. İlk mesajınızdaki dosyayı kaldırırsanız iyi olur. Hem gereksiz form kirliliği hemde yanlış dosya yardım etmek isteyenleri yanıltabilir. Gelelim userformunuza. API desteği ile yapılmış bir userform. 64 bit bilgisayarlarda çalışmaya göre ayarlanmamış. Benim bilgisayarım 64 bit. 64 Bit bilgisayarlarda da açılması için gerekli düzelmeleri yapmama rağmen, kodları hata verdi. Umarım çalıştığı bir bilgisayardan destek alırsınız.
Söz konusu destek; ilk mesajınızda belirtiğiniz gibi textboxta ondalık kısmın görüntülenmemesi ise benim size örnek olarak gönderdiğim dosyada bunun kodlarına sıkça vurgu yaptım. Bunları aşağıda kırmızı renk ile gösteriyorum.

Private Sub CommandButton1_Click()
Dim adet As Long, fiyat As Double, tutar As Double, kdv As Double, toplam As Double

If Me.ComboBox1 = "" Or Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Or Me.TextBox1.Value = 0 Or Me.TextBox2.Value = 0 Then
    MsgBox "Bilgilerin girilmesi gereken alanlara, gereken bilgileri doldurdaktan sonra devam ediniz.", vbExclamation, "antonio"
    Exit Sub
End If
    adet = CLng(Me.TextBox1.Value)
    fiyat = [COLOR="Red"][B]CDbl(Me.TextBox2.Value)[/B][/COLOR]
    
    tutar =[COLOR="Red"][B] CDbl(adet * fiyat)[/B][/COLOR]
    If Me.ComboBox1.Value = "%18" Then
        kdv = (tutar * 18) / 100
    ElseIf Me.ComboBox1.Value = "%8" Then
        kdv = (tutar * 8) / 100
    End If
    toplam = [COLOR="Red"][B]CDbl(tutar + kdv)[/B][/COLOR]
    Me.TextBox3.Value =[COLOR="Red"][B] Format(toplam, "#,##0.00")[/B][/COLOR]
    ss = Sheets("Sayfa1").Range("K1000").End(3).Row + 1
    Sheets("Sayfa1").Range("I" & ss).Value = Me.ComboBox1.Value
    Sheets("Sayfa1").Range("J" & ss).Value = adet
    Sheets("Sayfa1").Range("K" & ss).Value = fiyat
    Sheets("Sayfa1").Range("L" & ss).Value = toplam  
End Sub

 

[TURUNCU28]

12.Mesajınızdaki dosyada bir userform var. İlk mesajınızdaki dosyayı kaldırırsanız iyi olur. Hem gereksiz form kirliliği hemde yanlış dosya yardım etmek isteyenleri yanıltabilir. Gelelim userformunuza. API desteği ile yapılmış bir userform. 64 bit bilgisayarlarda çalışmaya göre ayarlanmamış. Benim bilgisayarım 64 bit. 64 Bit bilgisayarlarda da açılması için gerekli düzelmeleri yapmama rağmen, kodları hata verdi. Umarım çalıştığı bir bilgisayardan destek alırsınız.
Söz konusu destek; ilk mesajınızda belirtiğiniz gibi textboxta ondalık kısmın görüntülenmemesi ise benim size örnek olarak gönderdiğim dosyada bunun kodlarına sıkça vurgu yaptım. Bunları aşağıda kırmızı renk ile gösteriyorum.

Private Sub CommandButton1_Click()
Dim adet As Long, fiyat As Double, tutar As Double, kdv As Double, toplam As Double

If Me.ComboBox1 = "" Or Me.TextBox1.Value = "" Or Me.TextBox2.Value = "" Or Me.TextBox1.Value = 0 Or Me.TextBox2.Value = 0 Then
    MsgBox "Bilgilerin girilmesi gereken alanlara, gereken bilgileri doldurdaktan sonra devam ediniz.", vbExclamation, "antonio"
    Exit Sub
End If
    adet = CLng(Me.TextBox1.Value)
    fiyat = [COLOR="Red"][B]CDbl(Me.TextBox2.Value)[/B][/COLOR]
    
    tutar =[COLOR="Red"][B] CDbl(adet * fiyat)[/B][/COLOR]
    If Me.ComboBox1.Value = "%18" Then
        kdv = (tutar * 18) / 100
    ElseIf Me.ComboBox1.Value = "%8" Then
        kdv = (tutar * 8) / 100
    End If
    toplam = [COLOR="Red"][B]CDbl(tutar + kdv)[/B][/COLOR]
    Me.TextBox3.Value =[COLOR="Red"][B] Format(toplam, "#,##0.00")[/B][/COLOR]
    ss = Sheets("Sayfa1").Range("K1000").End(3).Row + 1
    Sheets("Sayfa1").Range("I" & ss).Value = Me.ComboBox1.Value
    Sheets("Sayfa1").Range("J" & ss).Value = adet
    Sheets("Sayfa1").Range("K" & ss).Value = fiyat
    Sheets("Sayfa1").Range("L" & ss).Value = toplam  
End Sub

ilginiz için teşekkürler umarım destek olan biri olur.