Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excelde Userform Üzerinden Sayfaya Veri Kaydederken Tarih Ve Sayı Değeri Sorunsalı :)

Oğuz Türkyılmaz
Oğuz Türkyılmaz
Excel Cevaplanmış Soruları
20
2634

Excelde Userform Üzerinden Sayfaya Veri Kaydederken Tarih Ve Sayı Değeri Sorunsalı :)

#13
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 56
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
(11/02/2021, 23:05)feraz yazdı: Wert yerine mesela
Textbox1.value yazılacak abey.
Textbox1.value =FORMAT(textbox1.value, "#,##0.00")
Yukardaki gibi örnek olabilir.

Feraz Hocam Kodu yanlış yazmadıysam eğer metinsel değer olarak aktarıyor.

[Resim: do.php?img=10708]
Kod:
If txt_MasrafTarihi <> "" And txt_BelgeNo <> "" And cmb_Firma <> "" And cmb_MasrafTuru <> "" And txt_MasrafTutari <> "" Then

    If IsNumeric(txt_MasrafTutari.Value) Then
        SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1
        
        txt_MasrafTutari.Value = Format(txt_MasrafTutari.Value, "#,##0.00")

        If SonSatir = 2 Then
            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1
            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
            Worksheets("Ana Sayfa").Cells(SonSatir, 7) = txt_MasrafTutari
        
        Else
            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1
            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
            Worksheets("Ana Sayfa").Cells(SonSatir, 7) = txt_MasrafTutari
        End If
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#14
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Konuyu tam bilmiyorum lakin format için bakmıştım.Pc açıp bir inceleyeyim.
Hücreye format uygulamak için yanılmıyorsam numberformat olarak yapılmalı.Son dosyayı ekler misiniz?
Cevapla
#15
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316 
Private Sub btn_KayýtEkle_Click()



If txt_MasrafTarihi <> "" And txt_BelgeNo <> "" And cmb_Firma <> "" And cmb_MasrafTuru <> "" And txt_MasrafTutari <> "" Then



    If IsNumeric(txt_MasrafTutari.Value) Then

        SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1



        If SonSatir = 2 Then

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = txt_MasrafTutari.Value + 0

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).NumberFormat = "#,##0.00"

        

        Else

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = txt_MasrafTutari.Value + 0

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).NumberFormat = "#,##0.00"

        End If

        

    Else

        MsgBox " Masraf Tutarý Hanesine Sadece Rakam Girilebilir "

        GoTo SoN:

    End If



Else

    MsgBox " Dikkat...! Tanýmlý Alanlar Boþ Geçilemez  "



End If

SoN:



txt_MasrafTarihi = ""

txt_BelgeNo = ""

cmb_Firma = ""

cmb_MasrafTuru = ""

txt_Aciklama = ""

txt_MasrafTutari = ""



End Sub
Yani alttaki gibi çözüldü.           
Kod:
Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = txt_MasrafTutari.Value + 0
Worksheets("Ana Sayfa").Cells(SonSatir, 7).NumberFormat = "#,##0.00"
Cevapla
#16
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,22:19
Yorumları: 8.530
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
@Oğuz Türkyılmaz bey az önce denedim size yazdığım kodu sorunsuz çalıştı
exceldeki g sütunu belirttiğiniz gibi gösterdi
siz kodu nereye eklediniz
[Resim: do.php?img=10710]
https://resim.accesstr.net/do.php?img=10710
Cevapla
#17
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 47
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
Yada G sütununu sayı olarak formatlayın binlik olarak ve alttaki gibide olur.

Kod:
Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = CDbl(txt_MasrafTutari.Value + 0)
Yukardaki kod ile yapıldı.

Private Sub btn_KayýtEkle_Click()



If txt_MasrafTarihi <> "" And txt_BelgeNo <> "" And cmb_Firma <> "" And cmb_MasrafTuru <> "" And txt_MasrafTutari <> "" Then



    If IsNumeric(txt_MasrafTutari.Value) Then

        SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1



        If SonSatir = 2 Then

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = CDbl(txt_MasrafTutari.Value + 0)

        

        Else

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1

            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi

            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma

            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo

            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru

            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama

            Worksheets("Ana Sayfa").Cells(SonSatir, 7).Value = CDbl(txt_MasrafTutari.Value + 0)

        End If

        

    Else

        MsgBox " Masraf Tutarý Hanesine Sadece Rakam Girilebilir "

        GoTo SoN:

    End If



Else

    MsgBox " Dikkat...! Tanýmlý Alanlar Boþ Geçilemez  "



End If

SoN:



txt_MasrafTarihi = ""

txt_BelgeNo = ""

cmb_Firma = ""

cmb_MasrafTuru = ""

txt_Aciklama = ""

txt_MasrafTutari = ""



End Sub
Cevapla
#18
Oğuz Türkyılmaz
Aktif Üye
Oğuz Türkyılmaz
Bul
Aktif Üye
Adı Soyadı: Oğ.... Tü....
Yaşı: 56
Konum: Antalya
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: 03/05/2023,09:23
Yorumları: 1.583
Konuları: 265
Kayıt Tarihi: 08/02/2018
Teşekkür Puanı: 0
Mesleğiniz: İşletmeci
(12/02/2021, 00:03)berduş yazdı: @Oğuz Türkyılmaz bey az önce denedim size yazdığım kodu sorunsuz çalıştı
exceldeki g sütunu belirttiğiniz gibi gösterdi
siz kodu nereye eklediniz
[Resim: do.php?img=10710]
https://resim.accesstr.net/do.php?img=10710
Kod:
If SonSatir = 2 Then


Sn.Berduş Hocam rica etsem sizde çalışan dosyayı buraya yüklermisiniz. O dosya benim bilgisayarımda nasıl çalışacak. Benim bilgisayarın binlik ve ondalık ayırıcı ayarları farklı acaba ordan kaynaklanabilirmi diye merak ediyorum.

            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1
            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
            Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_MasrafTutari.Value)
        
        Else
            Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1
            Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
            Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
            Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
            Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
            Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
            Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_MasrafTutari.Value)
        End If
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task