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