• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

turgay1983

Yeni Üye
Katılım
14 Haz 2022
Mesajlar
209
Çözümler
2
Aldığı beğeni
19
Excel V
Office 2016 TR
Konu Sahibi
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
 
Çözüm
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...
Konu Sahibi
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
sorunu çözdüm başlarına format yazmaz ve sondaki satırları silince düzeldi
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst