• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çö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
Refaz' Alıntı:
Benin yazdığım tablo dı ve sizin yazdığınız tablo adı aynı mı?
Kodu sadece kopyalayıp yapıştırın
Genişletmek için tıkla...
Screenshot_1.png
Refaz hocam orjinal dosyada PLAKALAR isimli bir tablo yok ama ben tabloya kodda geçen"PLAKALAR" ismini atadım ama yine aynı hatayı verdi.
 

Ekli dosyalar

  • KT Grup Poliçe Takip.xlsm
    97.2 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
İlk mesajdaki dosyada denemiştim çalışmıştı.
Poliçeler sayfasındaki tablo ismi plakalar olması gerek.
Yani ilk mesajdaki dosyada deneyin.
Kaydet butonunda denemiştim.
 
Olumlu oy 0 Negatif oyla
Abey pc açamıyorum mobilden dropbox taki örnek dosyayı ekliyorum buraya denersiniz.
 

Ekli dosyalar

  • son satir bulma Tablo.xlsm
    24.1 KB · Gösterim: 2
Olumlu oy 0 Negatif oyla
ilk boş satır için aşağıdaki kodu dener misiniz?
Not: 1. sütun ID alanı olduğu için veri varken dolu olmalı mantığıyla hazırlanmıştır
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' Alıntı:
ilk boş satır için aşağıdaki kodu dener misiniz?
Not: 1. sütun ID alanı olduğu için veri varken dolu olmalı mantığıyla hazırlanmıştır
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 şu sizdeki algoritma mantığının %1 i bende olsaydı keşke. :) Teşekkür ederim çalıştı.
 
Olumlu oy 0 Negatif oyla
43.Mesajdakini denediniz mi?
Halil hocamızın son kodu zaten normal son satır bulma kodu.
O kodu ilk mesajdaki dosyada tablo verileri boş olarak denerseniz bence sonuç yanlış çıkar bende öyle olmuştu.
Neyse sonuçta kod çalışmış.
Birde zaten googleye vba last row table yazsanız vediğim kodlar ordada çıkar.
 
Olumlu oy 0 Negatif oyla
rica ederim
iyi çalışmalar)
 
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)
Geri
Üst