En son eklediğim örneği inceledinizmi.?
inceleyiniz ve dğiştirmek istediğiniz yerleri işaretleyin veya söyleyin yapalım ama birazda siz caba sarf etmelisiniz.

örneğinizi indiremiyorum mesajımda belirtim

Birde bunudenermisiniz indirmek için.

Ek Dosyalar

Personel Veri Tabanı.rar(195.07 KB)

örneğinizi indirdim. bende çaba sarf ediyorum elimden geldiği kadar. 1. sayfadaki son mesajımdaki olayları nasıl yapabilirim bunu örnek olarak eklerseniz ben gereken değişikleri yaparım. şimdiden teşekkürler.

yardım edecek kimse yok mu lütfen çok acil

programı kendime göre uyarladım.
ama birkaç sorunum var. programı çalıştırdığımda KAYIT EKLE ye tıkladığım zaman
Private Sub Worksheet_Activate()
Range("B8:AB8").ClearContents
Call Kilitle
Range("B8").Select
End Sub
bu kodda Call Kilitle kısmı hata veriyor.

ESKİ KAYITLARA tıklayıp ANA SAYFAYA dön dediğim zaman
Private Sub Worksheet_Activate()
Call Kilitle
End Sub
bu kodda Call Kilitle kısmı hata veriyor.
bu hataları nasıl düzeltebilirim