• DİKKAT !

    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 Dosya Yükleme 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 konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

OğuzTürkyılmaz

Yeni Üye
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
31
Excel V
Office 365 TR
Konu Sahibi
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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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.
Geri
Üst