Çözüldü UserFormu Excele Aktarma

turgay1983' Alıntı:

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

Genişletmek için tıkla...

Adnan' Alıntı:

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

Genişletmek için tıkla...

Adnan' Alıntı:

'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

Genişletmek için tıkla...

turgay1983' Alıntı:

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

Genişletmek için tıkla...

Adnan' Alıntı:

'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.

Genişletmek için tıkla...