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