User Form'a veri çağırma ve değiştirme

[ik]

Üstadlar;

Ekli dosyada userform üzerindeki bilgileri "veri" sayfasına kaydediyorum. Evrak no alanına işlemle ilgili evrak numarasını veriyorum.

İstediğim şu;

-Ürün rezervasyonu yaptığımda otomatik bir numara vermesini (sıralı takip eden)
-Evrak no alanına verilen otomatik rezervasyon numarasını (kaydettikten sonraki bir zamanda) girdiğimden veri sayfasından bilgilerin user forma gelmesini
- bu kayıtların üzerinde yaptığım değişikliklerin veri sayfasında aynı satırları yaptığım değişikliklerle, değiştirmesini

Yardımlarınız için şimdiden teşekkürler

 

[fedeal]

formun Initialize bölümüne eklerseniz formun açılışında evrak no verir
TxtEvrakNo = Application.WorksheetFunction.Max(Sheets("veri").Range("e:e")) + 1
yada sayfaya aktardıgınız koda ekleyebilirsiniz.
Cells(satır + i, 5).Value = TxtEvrakNo 'yerine
Cells(satır + i, 5).Value = Application.WorksheetFunction.Max(Sheets("veri").Range("e:e")) + 1

değişikleri kaydetmek için bir buton oluşturup butona listboxtan textboxlara veri aldıgınız kodların tam tersini yazarsanız istediginiz olur yani:

Controls("Textbox" & 100 + i).Value = Range("C" & Bulunan_Satir_No).Value ' bu kodu

Range("C" & Bulunan_Satir_No).Value = Controls("Textbox" & 100 + i).Value 'böyle yazarak

tabi verileri listboxtan seçmiş olmanız yani listboxun seçili olması gerekir.