Çözüldü Userformdaki verileri excele kaydetme

Erkan Bey, öncelikle yukarıdaki mesajınız için teşekkür ederim,
Dosyanızla ilgileniyorum, Ürün tanımlama giriş formu kaydet komutlarında da bir takım olumsuzluklar tespit ettim, bu olumsuzluklar malzeme listesi formunda da var, dolayısıyla sürekli sürekli form açmak yerine öncelikle kaydet tuşu komutlarına da giriştim, biraz zaman alacak, dosyanızı bitirince ekleyeceğim.

arschimet' Alıntı:

Erkan Bey, öncelikle yukarıdaki mesajınız için teşekkür ederim,
Dosyanızla ilgileniyorum, Ürün tanımlama giriş formu kaydet komutlarında da bir takım olumsuzluklar tespit ettim, bu olumsuzluklar malzeme listesi formunda da var, dolayısıyla sürekli sürekli form açmak yerine öncelikle kaydet tuşu komutlarına da giriştim, biraz zaman alacak, dosyanızı bitirince ekleyeceğim.

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

Merhaba arschimet hocam, çok teşekkür ederim gerçekten sizin hakkınızı ödeyemem hiç bir şekilde. Allah sizden gani gani razı olsun. Tamamdır, sabırsızlıkla bekliyor olacağım.

Merhaba arschimet hocam, ben o kadar kayıtlarda test ettim, düzgün kayıt ediyordu, gözümden kaçan bir şey mi oldu acaba? Veriler düzgün kayıt ediyordu, tekrar bende bir kontrol edeyim o zaman en son dosyayı.

Erkan Bey merhaba,
Dosyayı deneyiniz.

Merhaba,

Hocam çok teşekkür ederim. Ay sonu işlemlerinden dolayı henüz kontrol edemedim. Bugün kontrol edeceğim.

Merhaba arschimet hocam,

Öncelikle tüm forum ailesi ve sizlere hayırlı ramazanlar dilerim.

Çok teşekkür ederim gerçekten allah razı olsun şu mübarek günlerde tüm dualarınız kabul olsun inşallah.

Bütün kayıtları silerek tekrar yeni kayıtlar atarak kontrollerimi sağladım ancak bir kaç pürüz ile karşılaştım. Düzeltmeye çalıştım ama olmadı.

1. Ürün tanımlama girişi formunda yeni ürün tanımlama yapıyorken ürünleri çağırdıktan sonra miktar bölümüne 0, değer girdiğim zaman direk 1 olarak çıkıyor ve mesela bu değeri 0,04 giremiyorum. Ürünleri çağırmadan girebiliyorum sorun yok ama ekran görüntülerinde de görüldüğü gibi ürünü çağırdıktan sonra giremiyorum.

2. Bir diğer husus ve daha önce de düzeltmiştik aslında ama neden şimdi bozuldu anlamadım hatta düzeltme yaptığımız kodlara baktım ama bir türlü sorun nerede anlamadım. Ödenmez satış ekranı formunda ürünü çağırdıktan sonra miktar 1 olarak geliyor ve 3 nl ekran görüntüsünde olduğu gibi hesaplamalarda sorun yok ama miktarı değiştirdiğim anda 4 nl ekran görüntüsünde olduğu gibi KDV tutarı yanlış hesaplıyor. Modüle 4 de ki formüllerde ELse'de sonra ki formülleri mi düzelteceğiz acaba?

3. Ayrıca Ödenmez Giriş formunda ki bilgileri girdiğimiz zaman 5 nl ekran görüntüsünde gösterdiğim toplamların ondalık sistemini de değiştirmiştik ama yine yanlış geliyor kayıt ettiğimizde de haliyle yanlış kayıt ediyor.

Bunlar haricinde bir problem gözükmüyor ama anlamadığım düzelttiğimiz yerler neden tekrar bozuldu , Hocam müsait olduğun zaman tekrar kontrol edebilir misin rica etsem?

Erkan Bey, elimden geldiğince iyileştirmeye çalıştım.
Söz konusu hatalar kaydet butonu komutlarında bulunuyordu. Kodları tamamen değiştirdim, farklı bir yöntem ile yeniden yazdım.
Denemelerimde bir sorunla karşılaşmadım ama yine de siz kontrol edin.
Umarım hatasız şekilde halletmişizdir.

Merhaba Üstadım,

1 nolu ekran görüntüsünde görüldüğü üzere ürün tanımlama giriş formunda ilk ürün tanımlaması yaptığımız zaman 1 ile işaretlediğim yer formda normal sıkıntı yok, 2 ile işaretlediğim yer de ondalık sistemlerinde sorun var ve 3 ile işaretlediğim yerde de aynı şekilde. Dolasıyla excele'de kayıt atarken 2 nolu ekran görüntüsünde ki gibi işaretlediğim yerlerde görüldüğü gibi yanlış kayıt ediyor.

Yanlız ilginç bir şey var ürün tanımlama giriş formunu çalıştırıp düzelt butonuna basarak en son kayıt ettiğimiz ürünü çağırdığımızda 3 ve 4 nolu ekran görüntüsünde görüldüğü rakamları doğru getiriyor ama bu sefer kur tarafının ondalık sistemini bozuyor. 5 nolu ekran görüntüsünde olduğu gibi mavi ile işaretlediğim yerler düzelt komutuyla oldu ama kırmızı ile işaretlediğim kurların ondalık sistemini farklı kayıt etti bu sefer.

Kayıtları yanlış attığı için haliyle diğer formda da ürünleri çağırdığımız da yanlış birim fiyatlarla geliyor. İşin içinden çıkamadık gitti hocam.

Desteklerini rica ederim. 🙏

Erkan bey, bu sıkınyılar hep eski kodlardan kaynaklı, kur bilgileri alımı ve bir sürü döngü oluşturulmuş, sürekli döngüden dongüye giriyor, bunlari takip edeyim dedim başım döndü, fazlaca zaman da bulamıyorum açıkçası, o zaman formun tüm kodlarını değiştirmek gerekiyor ki epey zaman alacak gibi

Merhaba Hocam,

Anladım, o küsürat kısmı iyice karıştı bir tarafı düzelttik küsürat kısmı bozuldu arap saçına döndü iyice.

Siz elinizden gelenin fazlasıyla yaptınız zaten hocam.

Teşekkür ederim. Allah razı olsun sizden.

ERKAN YILMAZ' Alıntı:

Merhaba Hocam,

Anladım, o küsürat kısmı iyice karıştı bir tarafı düzelttik küsürat kısmı bozuldu arap saçına döndü iyice.

Siz elinizden gelenin fazlasıyla yaptınız zaten hocam.

Teşekkür ederim. Allah razı olsun sizden.

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

Erkan Bey eski kodlar içerisinden format ve formatnumber ifadeleri yerine round(cdbl(değer),2) şeklinde ifadeler kullandım, sanırım küsürat problemi bu şekilde halloldu.

arschimet' Alıntı:

Erkan Bey eski kodlar içerisinden format ve formatnumber ifadeleri yerine round(cdbl(değer),2) şeklinde ifadeler kullandım, sanırım küsürat problemi bu şekilde halloldu.

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

Merhaba Üstadım,

Kontrol edeceğim, üzülüyordum açıkçası, çünkü zamanım daralıyor oteli açacağız kullanman gerekiyor ve kullanamayacağım diye bütün moralim alt üst olmuştu açıkcası allah razı olsun şu mübarek günlerde gönlünüzden ne geçiyorsa dualarınız kabul olur inşallah.

Merhaba sayın arschimet hocam,

Şimdi kontrol ettim ama hala ürün tanımlama giriş formunda kayıt yaparken ki ve excele kaydettiğimde işaretlemiş olduğum şekilde geliyor.

Erkan Bey tekrar merhaba
Bir de bu şekilde deneyelim bakalım, olacak mı?

arschimet' Alıntı:

Erkan Bey tekrar merhaba
Bir de bu şekilde deneyelim bakalım, olacak mı?

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

Merhaba Hocam,

Tamam deneyeceğim , burada takıldık kaldık bir türlü ilerleyemedik

Merhaba Üstadım,

Az da olsa ilerleme kaydetmişiz 🙏 Göndermiş olduğumuz 1 nolu ekran görüntüsünde mavi işaretlediğim yerlerde sıkıntı yok artık ama kırmızı ile işaretlediğim yerlerden sadece küsüratlar daha da bir fazla olmuş sanki mavi ile işaretlediğim yerin excel kayıtlarında da sıkıntı yok ama diğer 2 nolu ekran görüntüsünde de görüldüğü üzere bol küsüratlar mevcut.

Erkan Bey merhaba,
Gönderdiğim dosyadaki kodlardan kaynaklanmıyor gördüğüm kadarıyla problem.
Peki neden kaynaklanıyor?
Görselde 01.01.2022 tarihli kur bilgileri görünüyor. Bizim dosyamızda 01.01.2022 tarihine ait kur bilgisi yok, bu da kur bilgilerini nereden aldığınızı sorgulattı bana.
Kaynağa bakınca kur bilgilerini internet ortamından aldığınız görülüyor. Bu bilgiler de kaynaktan 15,1139 olarak gelmiş.
Biz dosyanın açılışına
Application.UseSystemSeparators = False
yapıp
decimal ve thousands seperatörlerini "." ve "," olarak tanımlattık.
yani dosyamız kur bilgisini 15.1139 olarak görmek yerine 15,1139 olarak görüyor. Haliyle de 151139.0000 olarak da değiştiriyor. Yani problem kur bilgilerinden kaynaklanıyor.
Ayrıca anlamadığım bir şekilde userform üzerinde halen "," kullanılıyor sizin görselinizde,
Oysa ki system seperatörlerimi "." olarak ayarlamıştım ben.
Manuel olarak,
Dosya>Seçenekler>Gelişmiş sekmesinden, Sistem Ayırıcılarını Kullan seçeneğinin seçili OLMADIĞINI ve onadalık ayracın ".", binlik ayracın ise "," olup olmadığını kontrol eder misiniz?

Şayet bu şekilde problem oluyorsa;
Bu çalışma kitabı, başlığı altındaki
Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
End With
Application.UseSystemSeparators = False
End Sub
kodunu
Private Sub Workbook_Open()
With Application
.DecimalSeparator = ","
.ThousandsSeparator = "."
End With
Application.UseSystemSeparators = False
End Sub
olarak değiştirip dener misiniz?

Ayrıca;
DovizKuru userformundaki
fonksiyon sub'ının kodlarını aşağıdaki şekilde değiştirip deneyebilirsiniz.

Erkan Bey merhaba,
Gönderdiğim dosyadaki kodlardan kaynaklanmıyor gördüğüm kadarıyla problem.
Peki neden kaynaklanıyor?
Görselde 01.01.2022 tarihli kur bilgileri görünüyor. Bizim dosyamızda 01.01.2022 tarihine ait kur bilgisi yok, bu da kur bilgilerini nereden aldığınızı sorgulattı bana.

Hocam, gönderdiğim görsellerde ben bütün verileri silip yeni tarihli kur çektim bu yüzden yeni tarihli kur bilgisi

Kaynağa bakınca kur bilgilerini internet ortamından aldığınız görülüyor. Bu bilgiler de kaynaktan 15,1139 olarak gelmiş.
Biz dosyanın açılışına
Application.UseSystemSeparators = False
yapıp
decimal ve thousands seperatörlerini "." ve "," olarak tanımlattık.
yani dosyamız kur bilgisini 15.1139 olarak görmek yerine 15,1139 olarak görüyor. Haliyle de 151139.0000 olarak da değiştiriyor. Yani problem kur bilgilerinden kaynaklanıyor.
Ayrıca anlamadığım bir şekilde userform üzerinde halen "," kullanılıyor sizin görselinizde,
Oysa ki system seperatörlerimi "." olarak ayarlamıştım ben.
Manuel olarak,
Dosya>Seçenekler>Gelişmiş sekmesinden, Sistem Ayırıcılarını Kullan seçeneğinin seçili OLMADIĞINI ve onadalık ayracın ".", binlik ayracın ise "," olup olmadığını kontrol eder misiniz?

Şayet bu şekilde problem oluyorsa;
Bu çalışma kitabı, başlığı altındaki
Private Sub Workbook_Open()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
End With
Application.UseSystemSeparators = False
End Sub
kodunu
Private Sub Workbook_Open()
With Application
.DecimalSeparator = ","
.ThousandsSeparator = "."
End With
Application.UseSystemSeparators = False
End Sub
olarak değiştirip dener misiniz?

Bütün her yeri değiştirdim ama hala yeni göndermiş olduğum ekran görüntülerinde ki gibi geliyor.

İlginç tarafı birim fiyatlar ve maliyetlerin küsuratları doğru gelirken aşağıda neden bozuluyor. ?

arschimet' Alıntı:

Ayrıca;
DovizKuru userformundaki
fonksiyon sub'ının kodlarını aşağıdaki şekilde değiştirip deneyebilirsiniz.

C#:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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

Merhaba Hocam,

Bu kodları değiştirdikten sonra hiç bir şey değişmedi.

Son göndermiş olduğunuz dosyaya göre sadece sorun şimdi kur ve aşağıdaki toplamların kusüratlarında