Çözüldü Id numarası değişmeden döngü ile Taksit sayısı kadar satır ekleyerek sayfaya kaydetme.

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
Merhabalar Herkese sağlıklı günler dilerim.
Dosyada userform.PoliceKaydet formunda bilgileri doldurduktan sonra taksit oluştur dediğimde istenen taksit sayısı kadar bilgi form üstündeki ilgili textboxlara yazdırılıyor. Kaydetme tuşuna bastığımda 1 taksid seçtiğimde kayıt gerçekleşiyor fakat taksit sayısını arttırdığımda taksid sayısı kadar kaydı döngü ile oluşturarak satırlara kaydetmek için döngüyü nasıl kodlamalıyım, işin içinden çıkamadım. Resimlerde Kayıt formundaki bilgilere göre kayıt yapıldığında sayfadaki satırlarda nasıl bir sonuç gerçekleşmesi gerekiyor anlatmaya çalıştım. Yardımlarınız için şimdiden teşekkür ederim. Screenshot_2.png
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • KT Grup Poliçe Takip.xlsm
    90.4 KB · Gösterim: 12
  • Screenshot_1.png
    Screenshot_1.png
    48.9 KB · Gösterim: 7
Çözüm
halily
aşağıdaki kodlar ilk 15 sütun için diğerlerini kendiniz uyarlarsınız
bende textbox*1 dönüşümü, metin kutusu boşken hata verdi o nedenle sayısal alanlarda Val(TextBox_.Value) * 1 kodunu kullandım
tarihlerde sorun çıkarmıyordu o nedenle format komutlarını kullanmadım
Not: kod yenden düzenlenip
newRow = .Cells(.Rows.Count, 1).End(xlUp).row
If Len(.Cells(newRow, 1) & "") > 0 Then newRow = newRow + 1
satırları eklenmiştir
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
Dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
halily' Alıntı:
Dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Halil Hocam allah seni başımdan eksik etmesi hızır gibisin 40 yıl uğraşsam yapamazdım. Bir sorum olacak
aslında sayfada 23 sütunda bilgi var Ben döngüye giren 2 sütuna kadar kaydetme kodunu ilave etmiştim tek kayıt gerçekleşiyor mu diye. Bu Taksid Tarihi ve Taksit Tutarından sonra ki sütunları kodunuzun devamına nasıl entegre edebilirim.
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
değişken olan kaç sütun var hangileri?
sabit olan kaç sütun var hangileri? yanılmıyorsam taksit miktarı da sabit değil mi?
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
normalde 15 sütun vardı 23 sütun olacaksa
1 - ReDim TaksitDz(1 To 15) buradaki 12, 23 ile değiştirilmeli yani
ReDim TaksitDz(1 To 23) olmalı
2 -
ReDim TaksitDz(1 To 23)
TaksitDz(1) = TextBox_ID.Value
TaksitDz(2) = TextBox_IslemTarihi.Value
TaksitDz(3) = TextBox_PoliceNo.Value
TaksitDz(4) = ComboBox_PoliceTipi.Value
TaksitDz(5) = ComboBox_PlakaNo.Value
TaksitDz(6) = ComboBox_AracTipi.Value
TaksitDz(7) = TextBox_PoliceBaslangicTarihi.Value
TaksitDz(8) = TextBox_PoliceBitisTarihi.Value
TaksitDz(9) = ComboBox_Acente.Value
TaksitDz(10) = ComboBox_TeminatTipi.Value
TaksitDz(11) = TextBox_TeminatTutari.Value
TaksitDz(12) = TextBox_PoliceTutari.Value
TaksitDz(15) = TextBox_............
TaksitDz(16) = TextBox_............
TaksitDz(17) = TextBox_............
..............................................................
..............................................................
..............................................................
TaksitDz(23) = TextBox_............
For x = 1 To Me.ComboBox_TaksitSayisi
newRow = newRow + 1
TaksitDz(13) = x ' bu kısım taksit no
TaksitDz(14) = Controls("TextBox_T" & x).Value ' bu kısım taksit tarihi
.Range("A" & newRow).Resize(, UBound(TaksitDz)).Value = TaksitDz

Next x

kodu yukardaki gibi düzenleyebilirsiniz
değişmeyen sabit sütunlar dizinin ilgili sütununa eklenmeli
değişen 2 SATIR ise döngüye alınmalı
 
Olumlu oy 0 Negatif oyla
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
halily' Alıntı:
değişken olan kaç sütun var hangileri?
sabit olan kaç sütun var hangileri? yanılmıyorsam taksit miktarı da sabit değil mi?
Genişletmek için tıkla...
Toplam 23 sütun var sadece 13 ve 14. sütunlar değişken. Formda 13.sütunda görünen taksid sayısına göre 14 sütunda her bir taksid tutarı hesaplanarak textboxlara aktarılıyor. Geri kalan bütün textboxlar ve comboboxlardaki bilgiler sabit.
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
o zaman yukardaki önerim işinize yarayacaktır.
aslında 2 farklı dizi oluşturularak daha pratik de yaptırılabilirdi 1 dizi de sabit veriler olurdu diğerinde sadece değişken
 
Olumlu oy 0 Negatif oyla
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
Olumlu oy 0 Negatif oyla
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
OğuzTürkyılmaz' Alıntı:
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Ekli dosyayı görüntüle 8238
Genişletmek için tıkla...
Halil Hocam performans da sorun yaratacak bir durum değil nasılsa bu kadarı yeterli. Sadece formatladığım tutarları bir türlü sayı olarak sayfaya kaydedemiyorum keza döngü içindeki sayısal değeride formatlamam gerekiyor ama Bu dizilim nasıl formatlanır hiç bir fikrim yok. Fikrim olanda zaten diğer formatlamalarda sayısal olarak kaydetmiyor. Bu konuda ne yapabilirim.
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
hangi alanda sorun var denediğimde tarih yada para alanında sorun göremedim ?
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,177
Çözümler
497
Aldığı beğeni
3,915
Excel Versiyonu
Office 2021 TR
Formatlamadan ×1 olarak kaydettirin.
Mesela alttaki gibi yapın sonra.Tabii sadece bir örnek alttaki fikir için .
range("a1").numberformat ="#,##0.00"
 
Olumlu oy 0 Negatif oyla
Refaz

Refaz

Destek Ekibi
Kullanıcı Bilgileri
Katılım
11 Ağu 2021
Mesajlar
4,177
Çözümler
497
Aldığı beğeni
3,915
Excel Versiyonu
Office 2021 TR
Yada önce cdbl olarak kaydetin sonra dediğim numberformatı uygulayın.
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
aşağıdaki kodlar ilk 15 sütun için diğerlerini kendiniz uyarlarsınız
bende textbox*1 dönüşümü, metin kutusu boşken hata verdi o nedenle sayısal alanlarda Val(TextBox_.Value) * 1 kodunu kullandım
tarihlerde sorun çıkarmıyordu o nedenle format komutlarını kullanmadım
Not: kod yenden düzenlenip
newRow = .Cells(.Rows.Count, 1).End(xlUp).row
If Len(.Cells(newRow, 1) & "") > 0 Then newRow = newRow + 1
satırları eklenmiştir
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
Refaz' Alıntı:
Formatlamadan ×1 olarak kaydettirin.
Mesela alttaki gibi yapın sonra.Tabii sadece bir örnek alttaki fikir için .
range("a1").numberformat ="#,##0.00"
Genişletmek için tıkla...

halily' Alıntı:
aşağıdaki kodlar ilk 15 sütun için diğerlerini kendiniz uyarlarsınız
bende textbox*1 dönüşümü, metin kutusu boşken hata verdi o nedenle sayısal alanlarda Val(TextBox_.Value) * 1 kodunu kullandım
tarihlerde sorun çıkarmıyordu o nedenle format komutlarını kullanmadım
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Halil Hocam İlginç Bir şekilde Formda Teminat Tutarı 80.000 tl yazdım 80,00 tl kaydetti sayfaya. Aynı kodun olduğu diğer textboxlar doğru sonucu sayısal olarak verdi. Textboxı silip tekrar yeniden yükledim forma ama sonuç değişmedi. Yarın denemelere devam edeceğim gerçekten garip. İyi geceler hayırlı sabahlar dilerim. Sabah 6 da kalkıp işe gideceğim biraz uyuyayım.
 

Ekli dosyalar

  • KT Grup Poliçe Takip.xlsm
    88.2 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
çalışmanızı indirip hiç bir değişiklik yapmadan veri girdim, soruna rastlamadım
değeri nasıl girdiniz? noktalı biçimde ise o noktalar silinerek işlem yapılmalı
Not: newRow = .Cells(.Rows.Count, 1).End(xlUp).row veri olan son satırdır boş olan SATIR için 1 eklenmeli bence
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
olmalı
 
Olumlu oy 0 Negatif oyla
O

OğuzTürkyılmaz

Yeni Üye
Kullanıcı Bilgileri
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
30
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
halily' Alıntı:
çalışmanızı indirip hiç bir değişiklik yapmadan veri girdim, soruna rastlamadım
değeri nasıl girdiniz? noktalı biçimde ise o noktalar silinerek işlem yapılmalı
Not: newRow = .Cells(.Rows.Count, 1).End(xlUp).row veri olan son satırdır boş olan SATIR için 1 eklenmeli bence
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
olmalı
Genişletmek için tıkla...
Halil Hocam benim bilgisayarın bölgesel ayarlarından nokta ve virgül ayraçları vs bir türlü dikiş tutmuyor sanırım hep bu tip sorunlar yaşıyorum bu bilgisayarda nedenini bilmiyorum Value değerini sayfaya yazdırırken Sorun yaratan Textboxta koda Cdbl ekledim bu sayede tutarı sayfaya doğru bir şekilde aktardım sonunda. +1 eklenmeli haklısınız gözümden kaçmış. Çok teşekkür ederim yardımınız için.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
cdbl değer girilmediğinde hata veriyor diye biliyorum
 
Olumlu oy 0 Negatif oyla
halily

halily

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Ağu 2021
Mesajlar
1,908
Çözümler
258
Aldığı beğeni
1,868
Excel Versiyonu
Office 2019 TR
önce çarpma işlemini yaparak dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
gibi
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Üst