Userform da sil, bul, hatası..

[INSMUH]

Arkadaşlar ekteki userformda aşağıda ki sorunlarım mevcut, uzun süredir uğraşıyorum, en son bu formatı kendime uyarlamaya çalıştım ama o da bu kadar oldu. Yardımcı olur yada yol gösterirseniz sevinirim

1 -Açılışta son sırayı 14 gösteriyor 15 olmalı,
2-En sağ ok tıklandığında, en başa gidiyor,
3-Yeni kayıt yaptığımda kalan yerden devam etmiyor alta kaydırıyor,
4-En sağdan, tek tek sol okla başa kadar gittiğimde hata veriyor,
5-Bul bir önceki değeri buluyor, (sanırım en büyük problem bu çünkü değiştirme de buna bağlı silmede)
6-Değiştir ile veri düzelttiğimde tarih formatı değişiyor,
7-Sil butonunu tıkladığımda en sol satır (sıra no) yukarı kayıyor,

Arkadaşlar uzun oldu biliyorum ama... :agla:

Ekli Dosya Güncellenmiştir.

 

[INSMUH]

Arkadaşlar Sn: bekir38'in yardımlarıyla kitabımda bazı değişiklikler oldu.
1-3-5 ve 7. sorularım çözüme kavuştu,
Yukarıdaki eki güncelledim, Bu arada kitabın şifresi de "1"

2-En sağ ok tıklandığında, en başa gidiyor,
4-En sağdan, tek tek sol okla başa kadar gittiğimde hata veriyor,
6-Değiştir ile veri düzelttiğimde tarih formatı değişiyor,

Yardımcı olursanız sevinirim, Kolay gelsin.

 

[Levent Menteşoğlu]

2-Butona bağlı kod içindeki 3 rakamlarının yerine say yazın. yani cells(3,...) yerine cells(say,....) gibi

4-"If txtsira = say Then" satırını "If txtsira = say - 1 Then" şeklinde değiştirin.

6-"ActiveCell.Offset(0, 1) = tarih" satırını "ActiveCell.Offset(0, 1) =clng(cdate( tarih)) şeklinde değiştirin.

 

[INSMUH]

Sn: leventm, Teşekkürler! :mutlu: