Çözüldü UserFormu Excele Aktarma

[turgay1983]

Merhaba
ben daha önce aşağıdaki formül ile alış faturasındaki bilgileri exceldeki sorgu sayfasına aktarıyordum ama nerede bir işlem yaptıysam şimdi olmuyor ve bir türlü bulamadım. yardım edermisiniz.
formun çalışması için önce ana menüden cari işlemler sonra Alış Faturası menüsünden Evrak listesinde ekle deyip işleme başlanması gerek

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[turgay1983]

Merhaba
ben daha önce aşağıdaki formül ile alış faturasındaki bilgileri exceldeki sorgu sayfasına aktarıyordum ama nerede bir işlem yaptıysam şimdi olmuyor ve bir türlü bulamadım. yardım edermisiniz.
formun çalışması için önce ana menüden cari işlemler sonra Alış Faturası menüsünden Evrak listesinde ekle deyip işleme başlanması gerek

Sub Ekle()
yenisatir = yenisatir + 1

Dim ws As Worksheet
Dim lr As Long

Set ws = Worksheets("Sorgu")
lr = ws.Range("A100000").End(xlUp).Row + 1
If TxEvrakNo.Value = "" Or TxEvrakTarih.Value = "" Or TxBelgeNo.Value = "" Or TxBelgeTarih.Value = "" _
Or TxCariKod.Value = "" Or TxCariAd.Value = "" Or TxHareketKodu.Value = "" Or TxProje.Value = "" _
Or TxDepo.Value = "" Or CmbNoriade.Text = "" Or CmbAcikKapali.Text = "" Then
With ws
.Range("A" & lr).Value = UCase(TxEvrakNo.Text)
.Range("B" & lr).Value = TxEvrakTarih.Text
.Range("C" & lr).Value = UCase(TxBelgeNo.Text)
.Range("D" & lr).Value = TxBelgeTarih.Text
.Range("E" & lr).Value = UCase(TxCariKod.Text)
.Range("F" & lr).Value = TxCariAd.Text
.Range("G" & lr).Value = TxHareketKodu.Text
.Range("H" & lr).Value = UCase(TxProje.Text)
.Range("I" & lr).Value = UCase(TxDepo.Text)
.Range("J" & lr).Value = CmbNoriade.Text
.Range("K" & lr).Value = CmbAcikKapali.Text
.Range("L" & lr).Value = LbIslem.Caption
.Range("M" & lr).Value = TxStokKodu.Text
.Range("N" & lr).Value = TxStokAdi.Text
.Range("O" & lr).Value = CDbl(TxMiktar.Text)
.Range("Q" & lr).Value = TxBrim.Text
.Range("R" & lr).Value = CDbl(TxBrimFiyat.Text)
.Range("S" & lr).Value = CDbl(TxNetFiyat.Text)
.Range("T" & lr).Value = TxKdv.Text
.Range("U" & lr).Value = CDbl(TxKdvTut.Text)
.Range("V" & lr).Value = TxIsk.Text
.Range("W" & lr).Value = CDbl(TxIskTut.Text)
.Range("X" & lr).Value = CDbl(TXNetTutar.Text)
.Range("Z" & lr).Value = UCase(TxAciklama.Text)

End With
End If
If LbIslem.Caption = "Alış Faturası" Then
Sheets("Tanımlar").Range("M2").Value = Sheets("Tanımlar").Range("M2").Value + 1
End If

TxMalzemeTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("S2:S500").Value), "#,##0.00")

TxVergiTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("U2:U500").Value), "#,##0.00")
TxIskontoTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("W2:W500").Value), "#,##0.00")
TxEvrakTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("X2:X500").Value), "#,##0.00")

StokSatiriniTemizle

ListeyiYenile



End Sub

yardım edecek kimse var mı

 

[Adnan]

siz daha önce evrak giriş formundan kaydet tuşuna basarak mı bu işlemi yapıyordunuz

 

[turgay1983]

siz daha önce evrak giriş formundan kaydet tuşuna basarak mı bu işlemi yapıyordunuz

hayır evrak kısmında açıklama kısmındaki Txaçıklama texbox ın keydown da yapıyordum

 

[Adnan]

'Hata 1 TxtKdvTut Boş geliyor ve double çeviremiyor
.Range("U" & lr).Value = CDbl(TxKdvTut.Text)
TxtKdvTut.text i daha önce hesaplatmış mıydınız yoksa burada mı hesaplatacaksınız

 

[turgay1983]

'Hata 1 TxtKdvTut Boş geliyor ve double çeviremiyor
.Range("U" & lr).Value = CDbl(TxKdvTut.Text)
TxtKdvTut.text i daha önce hesaplatmış mıydınız yoksa burada mı hesaplatacaksınız

1. açıklmaya gidene kadar TxKdvTut hesaplı gösteriyor. boş geldiğini göremedim
2. txKdv tutarı miktar ve isk içinde hesaplıyor o txboxların keydownlarında yaptım

 

[turgay1983]

1. açıklmaya gidene kadar TxKdvTut hesaplı gösteriyor. boş geldiğini göremedim
2. txKdv tutarı miktar ve isk içinde hesaplıyor o txboxların keydownlarında yaptım

hesaplamaları Stok adından sonraki Txboxların keydownlarında yaptım daha önce oluyordu nerede ne yaptıysam olmadı

 

[Adnan]

'Hata 1 TxtKdvTut Boş geliyor ve double çeviremiyor
If TxKdv.Text <> "" Then
.Range("U" & lr).Value = CDbl(TxKdv.Text) * CDbl(TxNetFiyat.Text)
End If
kırmızılı yeri rastgele text kutusu değerini koydum. siz orayı düzeltirsiniz.

 

[turgay1983]

'Hata 1 TxtKdvTut Boş geliyor ve double çeviremiyor
If TxKdv.Text <> "" Then
.Range("U" & lr).Value = CDbl(TxKdv.Text) * CDbl(TxNetFiyat.Text)
End If
kırmızılı yeri rastgele text kutusu değerini koydum. siz orayı düzeltirsiniz.

tekrar merhaba maalesef olmadı

 

[Adnan]

1---'İSKONTO HESABI BURADA OLMAZ İSKONTONUN ÇIKIŞI OLABİLİR
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

End Sub
2--- HESAPLAMALARDA ÖNCE DEĞERLERİ GİRİŞ YAPIN SONRA HESAPLATIN HATA OLMASIN
3-- BU ŞEKİLDE DENEMESİNİ YAPTIM PROBLEM YOK
4-- SÖYLEDİĞİM DÜZELTMELERİ YAPINIZ PROBLEM KALMAYACAK
5--ÖNCELİKLE 1 NUMARAYI DÜZELTİNİZ