İzin Formunda Veri Aktarmada Problem

[KAZIMM]

Veri Aktarmada Problem

Aşağıda gönderdiğim dosya
1- CommandButton20 (Aktarma Butonu) tıkladığımda
TextBox6 (Başlanğıç Tarihi)
TextBox7 (İzin Süresi)
TextBox8 (Bitiş Süresi) lerini

"İZİNN" sayfasına aktarmak istiyorum. aktarma yaparken
1- OptionButton'nun (İzintürleri) hangisi seçili ise onların aktarılması
2- Aktarma yaparken daha önce 1 den fazla izin kullanmış olan personelin
isminin "İZİNN" sayfasında 1 kez "a" sutünuna yazılmasını
3- Birden fazla izin kullanan personelin , izin türüne göre "İZİNN" sayfasında yer alan ilk izin sırasından başlayarak ilgili sutüna aktarma yapılması istiyorum

"Bununla ilgili 2 günden beri formda araştırma yapıyorum ama birli türlü yapamadım. yardımlarınız için şimdiden teşekür ederim.

 

[KAZIMM]

Veri aktarmad Problem için biraz çalıştım ama olmadı

Sub aktar()
On Error Resume Next
Set s1 = Sheets("İZİNN")
Set s2 = Sheets("İZİNN")
sat = s2.[b1:b65536].Find(s1.[c3]).Row
For a = 2 To 6
s2.Cells(sat, a) = s1.Cells(a + 1, "c")
Next
Select Case s1.[c9]
Case "YILLIK": deg = 14 'Yıllık izin Bilgilerinin kayıdının başladığı sutün
Case "MAZERET": deg = 54 'Mazeret izin Bilgilerinin kayıdının başladığı sutün
Case "HASTALIK": deg = 94 'Hastalık izin Bilgilerinin kayıdının başladığı sutün
Case "ÜCRETSİZ": deg = 134 'Ücretsiz izin Bilgilerinin kayıdının başladığı sutün
End Select
say = WorksheetFunction.CountA(s2.Range(s2.Cells(sat, deg), s2.Cells(sat, deg + 39)))
If say = 40 Then
MsgBox s1.[c13] & " izin hakkı kalmamıştır."
Exit Sub
End If
s2.Cells(sat, deg + say) = s1.[c10] 'İzin Miktarını "Personel" Sayfasına aktarır.
s2.Cells(sat, deg + say + 1) = s1.[c11] 'İzin Başlama Tarihini "Personel" Sayfasına aktarır.
s2.Cells(sat, deg + say + 2) = s1.[c12] 'İzin Bitişinin "Personel" Sayfasına aktarır.
s2.Cells(sat, deg + say + 3) = s1.[c16] 'İzin Açıklamasının "Personel" Sayfasına aktarır.
End Sub