Çözüldü textboxtaki veriyi excele sayı olarak atma

turgay1983' Alıntı:

merhaba
ben textboxlara yazdığım verilerin Excel e sayı olarak geçmesini, istiyorum ama bir türlü yapamadım. aşağıdaki tüm kodları denemem rağmen olmadı acil yardım edebilir misiniz

Sub Ekle()
Dim Kdv As Double
Dim iskonto As Double
Dim Toplam As Double
Dim MalzemeToplami As Double
Dim VergiToplami As Double
Dim IskontoToplami As Double
Dim EvrakToplami As Double

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 = TxEvrakNo.Text
.Range("B" & lr).Value = TxEvrakTarih.Text
.Range("C" & lr).Value = TxBelgeNo.Text
.Range("D" & lr).Value = TxBelgeTarih.Text
.Range("E" & lr).Value = TxCariKod.Text
.Range("F" & lr).Value = TxCariAd.Text
.Range("G" & lr).Value = TxHareketKodu.Text
.Range("H" & lr).Value = TxProje.Text
.Range("I" & lr).Value = TxDepo.Text
.Range("J" & lr).Value = CmbNoriade.Text
.Range("K" & lr).Value = CmbAcikKapali.Text
.Range("L" & lr).Value = TxStokKodu.Text
.Range("M" & lr).Value = TxStokAdi.Text
.Range("N" & lr).Value = Format(CDbl(TxMiktar.Text), "#,##0.00")
.Range("O" & lr).Value = TxBrim.Text
.Range("P" & lr).Value = TxBrimFiyat.Text
.Range("Q" & lr).Value = Format(CDbl(TxNetFiyat.Text), "#,##0.00")
.Range("R" & lr).Value = TxKdv.Text
.Range("S" & lr).Value = Format(CDbl(TxKdvTut.Text), "#,##0.00")
.Range("T" & lr).Value = TxIsk.Text
.Range("U" & lr).Value = Format(CDbl(TxIskTut.Text), "#,##0.00")
.Range("v" & lr).Value = Format(CDbl(TXNetTutar.Text), "#,##0.00")
.Range("W" & lr).Value = TxAciklama.Text

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

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

TxVergiTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("S2:S500").Value), "#,##0.00")
TxIskontoTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("U2:U500").Value), "#,##0.00")
TxEvrakTop = Format(Application.WorksheetFunction.Sum(Sheets("Sorgu").Range("V2:V500").Value), "#,##0.00")

StokSatiriniTemizle

ListeyiYenile

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