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

[OğuzTürkyılmaz]

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.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[OğuzTürkyılmaz]

cdbl değer girilmediğinde hata veriyor diye biliyorum

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 satır 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.

 

[OğuzTürkyılmaz]

önce çarpma işlemini yaparak dener misiniz?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

gibi

 

[Refaz]

Abey dosyayı incelemedim ama Tablo ise find ile son satır numara bulunursa bence dediğiniz olur.
Bu kodu bulunca eklerim kafadan yazmak zor bazı parametrelerini.

 

[OğuzTürkyılmaz]

Bu şekilde de hata veriyor. Neyse çözdüm bir şekilde artık Halil hocam. Uğraşmayın lütfen.

 

[OğuzTürkyılmaz]

Abey dosyayı incelemedim ama Tablo ise find ile son satır numara bulunursa bence dediğiniz olur.
Bu kodu bulunca eklerim kafadan yazmak zor bazı parametrelerini.

Evet tablo Refaz hocam.

 

[Refaz]

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

 

[Refaz]

Birde o sayfada hiçbir veri yoksa yani tamamen boşsa hata vermesi gerek bunun için şartlar yazılabilr .

 

[OğuzTürkyılmaz]

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

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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 .

 

[OğuzTürkyılmaz]

Birde o sayfada hiçbir veri yoksa yani tamamen boşsa hata vermesi gerek bunun için şartlar yazılabilr .

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. satır.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

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 .

Sayın abeyim sonuna neden +1 eklemedin

 

[Refaz]

Dosyayı inceledim newRow = .Cells.Find("*", , , , xlByRows, xlPrevious).row ile kod tablo boşsa 22 inci satırı son satır 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.

 

[Refaz]

Arşivime baktım alttaki gibi kod olacakmış.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Yada alttaki gibi genel arar yukardaki ilk sütuna göre buluyordu.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

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

 

[OğuzTürkyılmaz]

Sayın abeyim sonuna neden +1 eklemedin

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ı.

 

[OğuzTürkyılmaz]

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

o yapılacak işler listemde

 

[OğuzTürkyılmaz]

Arşivime baktım alttaki gibi kod olacakmış.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Akşam uygulayıp haber veririm Refaz hocam

 

[OğuzTürkyılmaz]

Yada alttaki gibi genel arar yukardaki ilk sütuna göre buluyordu.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Refaz hocam ikisinde de hata verdi.

 

[Refaz]

Benin yazdığım tablo dı ve sizin yazdığınız tablo adı aynı mı?
Kodu sadece kopyalayıp yapıştırın

 

[OğuzTürkyılmaz]

Benin yazdığım tablo dı ve sizin yazdığınız tablo adı aynı mı?
Kodu sadece kopyalayıp yapıştırın

Ben onun sayfa ismi olduğunu düşündüm deneyeyim hemen.