Soru TextBox'lar arası anlık veri değişimi

[Sunaycakirr]

Merhabalar
TextBox_BirimFiyat değiştiğinde bu değişikliği algılayıp Kalem1_Fiyat textBox'un yeni değerle değişikliği algılayıp yeni tutarla hesaplamasını nasıl sağlayabilirim.

Private Sub Kalem1_Miktar_Change()
If TextBox_BirimFiyat = "" Then
On Error GoTo Bitir
If Kalem1_Miktar = "" Then Exit Sub
Bitir: MsgBox "Lütfen önce KDV Dahil  /  KDV Hariç fiyat belirleyiniz!!", vbCritical
Kalem1_Miktar = ""
Exit Sub
End If

If Kalem1_Miktar = "" Then
Kalem1_Fiyat = ""
Else
Kalem1_Fiyat = Replace(Kalem1_Miktar * TextBox_BirimFiyat, ".", ",")
End If

Kalem1_Fiyat = Format(Kalem1_Fiyat, "0.00")
End Sub

 

[yanginci34]

Örnek dosya eklermisiniz.

 

[Sunaycakirr]

Sayfa3'ten Fatura kes düğmesine basınca açılan userformda KDV Dahil yada KDV Hariç kısmına tutar girdikten sonra Birim Fiyat oluşuyor. Sonra kalemlerde Miktar kısmına değer girince Birim Fiyat ile çarpıyor ve Fiyat kısmına yazıyor. Ancak KDV Dahil yada KDV Hariç kısmından değeri değiştirince Fiyat eski kalıyor. İnşallah anlatabilmişimdir.

Dosya linktedir;
http://dosya.co/jidfqlq2xxtt/Proje.rar.html

 

[Korhan Ayhan]

Bir şeyler karaladım. Deneyiniz.

Private Sub KDV_Dahil_Change()
If Me.KDV_Dahil = "" Then Me.KDV_Haric.Enabled = True
If Me.KDV_Dahil <> "" Then Me.KDV_Haric.Enabled = False

If KDV_Dahil = "" Then
TextBox_BirimFiyat = ""
Else
TextBox_BirimFiyat = Replace(KDV_Dahil / 1.18, ".", ",")
End If
TextBox_BirimFiyat = Format(TextBox_BirimFiyat, "0.00")

For Each Nesne In Me.Controls
    If InStr(1, Nesne.Name, "Miktar") > 0 Then
        If Nesne.Value <> "" Then
            Ad = Replace(Nesne.Name, "Miktar", "Fiyat")
            Me.Controls(Ad).Value = Nesne.Value * IIf(TextBox_BirimFiyat.Value = "", 0, TextBox_BirimFiyat.Value)
        End If
    End If
Next
End Sub

Private Sub KDV_Haric_Change()
If Me.KDV_Haric = "" Then Me.KDV_Dahil.Enabled = True
If Me.KDV_Haric <> "" Then Me.KDV_Dahil.Enabled = False
If Me.KDV_Haric = "" Then Me.TextBox_BirimFiyat.Enabled = True
If Me.KDV_Haric <> "" Then Me.TextBox_BirimFiyat.Enabled = False

If KDV_Haric = "" Then
TextBox_BirimFiyat = ""
Else
TextBox_BirimFiyat.Value = KDV_Haric.Value
End If

For Each Nesne In Me.Controls
    If InStr(1, Nesne.Name, "Miktar") > 0 Then
        If Nesne.Value <> "" Then
            Ad = Replace(Nesne.Name, "Miktar", "Fiyat")
            Me.Controls(Ad).Value = Nesne.Value * IIf(TextBox_BirimFiyat.Value = "", 0, TextBox_BirimFiyat.Value)
        End If
    End If
Next
End Sub

 

[Sunaycakirr]

Merhaba Korhan Ayhan

Denedim değişiyor ancak eski tutarın üzerinden yükseltiyor.

 

[Korhan Ayhan]

Görsel üzerinde tarif edebilir misiniz?

 

[Sunaycakirr]

Dosya link;
http://dosya.co/275srho97l3p/Proje.rar.html

KDV Hariçte sorun yok. KDV dahilde sorun var.

 

[Sunaycakirr]

Aslında sorun küsuratlar da ortaya çıkıyor. Bu konuda yardımcı olabilecek birileri var mı?

 

[Korhan Ayhan]

Sebebi KDV DAHİL işleminde 3 küsürattan sonraki kuruş rakamlarını biçimlendirmenizden kaynaklanıyor.

Biçimi kaldırırsanız toplamlar tutacaktır.

 

[Sunaycakirr]

Biçimlendirmeyi kaldırdığımda 33.90 yapıyor. Ben bu veriyi Excelde hücreye atadığımda 33,90 olarak yazmasını nasıl sağlarım peki?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Range("A1").Value = CDbl(Tutar)