teklif mektubu

[yavuzadak]

combobox2 de urun u sectiğim zaman olcu ve fiyatı userforma getirtemedim ayrıca teklif gecerlilik süresine gün eklediğim zaman yeni tarihi hatalı yazıyor bi format hatam var yardımcı olursanız sevinirim...şimdiden herkesin mübarek kurban bayramını kutluyorum

 

[Levent Menteşoğlu]

Ã?ncelikle gun textboxunun exit olayına yazdığınız kodu silin ve aşağıdaki kodu yazın.

[vb:1:1e57384794]Private Sub gun_Change()
If gun = "" Then gun = 0
suresi = DateSerial(Year(tarih), Month(tarih), Day(tarih) + gun)
End Sub[/vb:1:1e57384794]

Combobox2 yede aşağıdaki kodu yazın.

[vb:1:1e57384794]Private Sub ComboBox2_Change()
Set s1 = Sheets("vt3")
sat = ComboBox2.ListIndex + 2
olcu = s1.Cells(sat, "g")
fiyat = s1.Cells(sat, "h")
End Sub[/vb:1:1e57384794]

 

[yavuzadak]

tşk ediyorum leventm, hocam iyi bayramlar diliyorum

 

[yavuzadak]

öncelikle herkesin bayramını kutluyorum...sorunum ekteki çalışma kitabında...
toptutar,topotv,topnakliye,aratoplam,topkdv,dtoplam ve gtoplam userform uzerinde bu textbox larda sorunum var ve ayrıca bu texboxlar cmd_ekle ve degis te hatalı değerler veriyor yardımcı olursanız çok sevinirim kafayı yedirtti inan bana :kafa:

 

[Levent Menteşoğlu]

Dosyanızı inceledim. Ã?ncelikle yukarıda bahsettiğiniz textboxları neden nakliye textboxunun exit olayına yazdığınızı anlayamadım. Ã?ncelikle yukarıda isimlerini yazdığınız textboxlarda ne görmek istediğinizi izah ederseniz ona göre gerekli düzeltmeleri yapalım.

 

[yavuzadak]

nakliye textbox sından cıkışta toplam tutar otv toplamı ve nakliyeyi toplayacak sonrasında cıkan rakama kdv ilave edecek bulduğumuz rakam döviz değeridir daha sonra kurla çarpacak ytl ya cevirecek yani hesaplama işlemini nakliye_exit tan sonra yapıp sheets("hicon") a yazacak (ekle ve değiştir)...aşağıdaki resimdede örneklemeye çalıştım

 

[Levent Menteşoğlu]

Nakliye textboxuna aşağıdaki kodu yazarak deneyin.

[vb:1:91834f8b7d]Private Sub nakliye_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("hicon").Select
If miktar = "" Then Exit Sub
If CheckBox2.Value = False Then
otvsi.Value = ""
Else
otvsi = Replace(miktar * fiyat * 0.067, ".", ",")
End If
If CheckBox1.Value = True Then
topkdv = ""
Else
tutar = miktar * fiyat
For a = 0 To ListBox1.ListCount - 1
aa = aa + ListBox1.List(a, 7) * 1
bb = bb + ListBox1.List(b, 8) * 1
cc = cc + ListBox1.List(c, 9) * 1
Next
topotv.Value = Format(aa, "###0.00")
topnakliye.Value = Format(bb, "###0.00")
toptutar.Value = Format(cc, "###0.00")
aratoplam = toptutar * 1 + topotv * 1 + topnakliye * 1
topkdv = aratoplam * 0.18
dtoplam = aratoplam * 1 + topkdv * 1
gtoplam = dtoplam * kur
End If
End Sub[/vb:1:91834f8b7d]

 

[yavuzadak]

aa = aa + ListBox1.List(a, 7) * 1

bu kodda hata veriyor hocam bu kodda direk I21 (Ã?tv) görüyor ve toplama yapamıyor1 altından toplatma yapabilmemiz için farklı bir kod girebilirmiyiz acaba?

 

[yavuzadak]

aşağıdaki resimde ötv sütununun sol üst köşesindeki yeşil renkli hata mesajları neden çıkıyor acaba bu hatadan dolayı hücreye yazdığını sanal görüyor ve toplam almıyor bu durumu nasıl çözebilirim acaba?

 

[Levent Menteşoğlu]

Bu işaretlerden verinin bir metin olarak sayfaya aktarıldığı anlaşılıyor. Ã?tv olarak veri aktarırken textboxtaki veriyi 1 (bir) ile çarparak aktarın.

 

[yavuzadak]

tutar.Value = Val(Format(miktar.Value, "#,##0.00")) * Val(Format(fiyat.Value, "#,##0.00"))

Bu kodda rakamalarda hesaplama yaparken virgülden sonrasını görmeyip hesap etmiyor yardımcı olursanız seviniriz

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

tutar = Format(miktar*fiyat, "#,##0.00")

 

[yavuzadak]

tşk ediyorum levent hocam oldu