-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kaydet butonu ile sıralı kayıt yapmak..
- Konbuyu başlatan yasilan
- Başlangıç tarihi
Eveeetdediğinizi yapınca oldu bu sefer
Son bir yardım daha istiycem sizden;taksit aralığı kısmını 1'den farklı bir rakam yapsamda yine 1 miş gibi kayıt yapıyor,ay atlatma yapmıyor..
Bir de taksit adedi sayısını 30 dan yukarı çıkarabilirmiyiz?mesela 60 a?
Sabrınız ve yardımlarınız için tekrardan teşekkür ederim..
İstediğiniz gibi yapmaya çalıştım. İyice kontrol ediniz.
Kolay gelsin.
Sn.Yayayolcu;
Herşey çok güzel olmuş,emeğiniz ve yardımlarınız için tekrardan çok ama çok teşekkür ediyorum...
S.Yayayolcu;
Tamamlamış olduğunuz dosya üzerinde ufak 1-2 değişiklik yaptım.Kredi tutarlarının TL karşılıklarını yazması için bir sutun(J) var(TL Karşılık),oraya formül girdiğimde hem dosyanın boyutu çok fazla büyüyor,hem de ilgili hücrelere formül bozulmasın diye şifreli koruma girdiğimde VBA işlemini yapmıyor.
Benim istediğim;bu tablonun "GENEL" isminde bir sayfası daha var ve orada manuel olarak girilen USD(hücre:AD32) ve EUR(hücre:AD34) kur bilgileri var.
Yazdığınız koda bir ilave ile TL Karşılığı sütununa;Kredi Kayıt esnasında Döviz Cinsinin TL olarak seçilmesi durumunda Taksit Tutarının aynen,USD olarak seçilmesi durumunda GENEL!AD32 hücresindeki kur ile çarpılarak,EUR olarak seçilmesi durumunda da GENEL!AD34 hücresindeki kur ile çarpılarak yazılması mümkün müdür?
Tekrardan yardımlarınızı rica ediyor,şimdiden teşekkür ediyorum..
İyi akşamlar..
Sayın yasilan,
kaydet kodu baş tarafına aşağıdaki gibi iki satır ekleyiniz:
if combobox(kaç ise veya değişmiş adı)="USD" then KrediTutari=KrediTutari* worksheets("Genel").cells(32, x )'(AD kaça denk ise x yerine yazınız)
kolay gelsin.
Sn.Yayayolcu;
Dediğiniz gibi yaptığımda krediyi önce USD olarak kayıt ediyor,sonra TL karşılığına çevirip bir de öyle kaydediyor.Ben böyle değil de daha ziyade sadece taksit tutarlarının TL karşılığının farklı bir sütunda yazmasını istiyordum.Bunun için sizin gönderdiğiniz kodu değiştirerek;
Worksheets("ataksit").Cells(c + v, 10) = Z
If (DövizCins) = "TL" Then Z = TaksitTutar.Value
If (DövizCins) = "USD" Then Z = TaksitTutar.Value * Worksheets("Genel").Cells(32, 30)
If (DövizCins) = "EUR" Then Z = TaksitTutar.Value * Worksheets("Genel").Cells(34, 30)
şeklinde yazdım ve istediğim oldu ama ufak bir sorun var bunda da,yaptığım kredi kayıtlarının 1.taksitlerinin TL karşılığını yazmıyor,diğer tüm taksitlerin TL karşılığını yazıyor.kaç kayıt yaptıysam ilk taksitleri dışında hepsi sorunsuz ama ilk taksitlerine bişi yapamıyorum.Bunun nedeni hakkında yardımcı olabilir misiniz?
Son düzenleme:
Sayın Yasilan,
If (DövizCins) = "TL" Then Z = TaksitTutar.Value
If (DövizCins) = "USD" Then Z = TaksitTutar.Value * Worksheets("Genel").Cells(32, 30)
If (DövizCins) = "EUR" Then Z = TaksitTutar.Value * Worksheets("Genel").Cells(34, 30)
Worksheets("ataksit").Cells(c + v, 10) = Z
şekline çevirin.
Kolay gelsin.
Evet bu şekilde yazınca oldu istediğim..Tüm yardımlarınız için çok teşekkür ederim tekrardan Sn.Yayayolcu,ellerinize sağlık..
İyi günler..