Çö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
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ı:
cdbl değer girilmediğinde hata veriyor diye biliyorum
Genişletmek için tıkla...
Textboxların default değerlerini Özellikler menüsünden 0,00 yaptım. Cdbl olarak sayıları aldım. Kulağı tersten göstererek Sorunsuz olarak istediğim gibi kaydedebildim Halil Hocam. EĞER silmediyseniz son yüklediğim dosyada sayfada hiç veri yokken 3.satırı boş bırakıp tabloya yazmıyor 4.satırdan itibaren kayıtları tablonun dışından başlatıyor. Hiç kayıtlı Veri yokken SATIR boşken neden bunu yapıyor tablo olarak gözüktüğü için yapıyor da çaresi var mı 3 satırdan itibaren kaydetmeye başlamasının. Son çare başlangıçta 3. satıra bir veri giriyorum sonraki kayıtlarım 4 satırdan itibaren tabloya yazılıyor.
 
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
Abey dosyayı incelemedim ama Tablo ise find ile son SATIR numara bulunursa bence dediğiniz olur.
Bu kodu bulunca eklerim kafadan yazmak zor bazı parametrelerini.
 
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
Bu şekilde de hata veriyor. Neyse çözdüm bir şekilde artık Halil hocam. Uğraşmayın lütfen.
 
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
Alttaki kodu bir çalıştırın doğru sonuç verecekmi.Önceki tecrübelerimden çalışır diye biliyorum.Tabii cells önüne sayfa isminid3 ekleyin ben kopyala yapıştır yaptım bir forumdan bulup.

MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
 
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
Birde o sayfada hiçbir veri yoksa yani tamamen boşsa hata vermesi gerek bunun için şartlar yazılabilr .
 
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
Refaz' Alıntı:
Alttaki kodu bir çalıştırın doğru sonuç verecekmi.Önceki tecrübelerimden çalışır diye biliyorum.Tabii cells önüne sayfa isminid3 ekleyin ben kopyala yapıştır yaptım bir forumdan bulup.

MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
Genişletmek için tıkla...
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ortada tablo bırakmadı Refaz hocam :) Çalıştı ama kayıtları tablonun içine yazamadı tablo ortadan kalktı 3 no lu satırdan başlayarak sayfaya yazdı. Tabloyu uçurdu .:)
 
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
Refaz' Alıntı:
Birde o sayfada hiçbir veri yoksa yani tamamen boşsa hata vermesi gerek bunun için şartlar yazılabilr .
Genişletmek için tıkla...
1 ve 2 satırlar dolu 1 üst başlık 2 tabloya çevrilen satırın filtrelenmiş sütun sayıları içeren hali o satırı gizliyorum normalde. Tablonun ilk ve son boş satırı 3. SATIR.
 
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
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
Dosyayı inceledim newRow = .Cells.Find("*", , , , xlByRows, xlPrevious).row ile kod tablo boşsa 22 inci satırı son SATIR olarak buluyor bir bakayım ne varmış orda ayrıca tablonun 2.sütununu gizlemenize gerek yok isimlerini değiştirebilirsiniz yada tablo tasarımdan üst bilgi satırın işaretini kaldırabilirsiniz.
 
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
Arşivime baktım alttaki gibi kod olacakmış.

Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
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 alttaki gibi genel arar yukardaki ilk sütuna göre buluyordu.
Rich (BB code):
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
aklıma gelmişken kaydı eklemeden önce taksitlendir düğmesine basılmamışsa taksit hesaplanmadan aktarılabilir o nedenle koda önce taksitlendirme düğmesini çalıştıracak kod da eklenmeli
 
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
Refaz' Alıntı:
Sayın abeyim sonuna neden +1 eklemedin :)
Genişletmek için tıkla...
Halil hocam da uyardı o konuda şöyle oldu +1 var dı fakat denemeler yaparken 3 satırı boş geçip 4 satırdan başlayınca sayfaya yazmaya bende +1 kaldırıp bir deneyeyim dedim evet bu sefer 3 satırdan başladı ama bir sonraki sayfaya kaydetme işleminde +1 olmadığı için son dolu satırın üzerine yazdı ilk veriyi. Unutmuşum kaldırmayı.
 
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
Benin yazdığım tablo dı ve sizin yazdığınız tablo adı aynı mı?
Kodu sadece kopyalayıp yapıştırın
 
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