aktar makrosunda hata

[serdarbarak]

sevgili arkadaşlar sitemizin dolayısıyla sizlerin yardımıyla personel işlemlerinin bazılarını yapabildiğim bi program hazırlıyorum. aslında hazırladım dairede kullanmaya başladık ama bir kaç sorun var ve çözemedim tam bittiğinde inşallah siteye ekleyeceğim.

aşağıdaki kodlarla userformda tekxtbox ve dtpicker lerdeki veriyi excel sayfasındaki şablonuma (görev emri) aktarıyorum. aynı makroyla her yazdığım görev emrini ayrı bir excel sayfasında listeliyorum. ancak listeleme işlemi sırasında program bazen kayıtları üstüste yazıyo yani bir önceki görev emrinin numarasına daha sonra yazdığım görev emrini kaydediyor. yani kayıtlar sağlıklı olmuyo kodlarda hata varsa lütfen yardım edermisiniz.

Private Sub CommandButton5_Click()
Sheets("Memur Görev Emri").Select
Range("r4").Value = TextBox1.Text
Range("j8").Value = TextBox2.Text
Range("j9").Value = TextBox3.Text
Range("j10").Value = TextBox4.Text
Range("j11").Value = DTPicker1.Value
Range("g12").Value = TextBox6.Text
Range("g14").Value = TextBox7.Text
Range("F17").Value = TextBox8.Text
Range("F18").Value = TextBox9.Text
Sheets("Memur Görev Emri").Select
sat = Sheets("Görev Emri Kayıt").Cells(65536, "B").End(xlUp).Row + 1
With Sheets("Görev Emri Kayıt")
.Cells(sat, "B").Value = Range("J5").Value
.Cells(sat, "C").Value = Range("j11").Value
.Cells(sat, "D").Value = Range("j8").Value
.Cells(sat, "E").Value = Range("j9").Value
.Cells(sat, "F").Value = Range("g12").Value
End With
MsgBox "Görev Emri Deftere Kaydedildi..!!", vbOKOnly + vbinf
Sheets("Memur Ana Sayfa").Select
Sheets("Memur Görev Emri").PrintOut Copies:=2
End Sub

 

[serdarbarak]

yardım lütfen

arkadaşlar kodlarda hata varmı yokmu bunu öğrenmem gerek mükerrer kayıtların olması kodlardanmı kaynaklanıyor lütfen yardım edin