İzin Sayfasından Puantaja İzin Aktarma

@sedat2161
Sanırım istediğiniz bu.

@Ömer BARAN
Hocam merhaba hocam izinli ve raporlu günleri puantaja nasıl aktarıyoruz. Userformda ki butona tıkladığımda dosya hata veriyor.

Sağ üstten dönem seçimini yapın/değiştirin.

@Ömer BARAN
Hocam Butona bağlı olan diğer kodlar hiç biri çalışmıyor.

Önceki cevabıma eklediğim belgeyi güncelledim.
Sayfayı yenileyerek belgeyi tekrar indirin.

@Ömer BARAN
Sayın hocam hayırlı geceler.
Hocam puantaj sayfasına olan aktarımlar ComboBox1 i seçtiğimde oluyor. ama dosyadaki diğer bilgiler personel sayfasından bordroya ve puantaja puantajdan bordroya olan aktarımlar yapılmıyor.

@Ömer BARAN
Hocam hayırlı sabahlar.
Emeğinize bilginize sağlık sayın hocam. İyi ki varsınız. Allah razı olsun.
Hocam şu an sadece bir sorun gözüküyor Personel bilgisi dosyasından aktarma yaparken en sondaki personeli sildiğimde silinen şahıs puantaja aktarılmıyor ama bordro sayfasının gizlenen en alt satırda tekrar görünüyor. Bunu çözersek bu konu inşallah çözülecektir.

Benim yaptığım kodlamayla, belirttiğiniz sorun arasında bir bağlantı yok.
Yaptığım kodlama, Puantaj sayfasında hazır olan personel listesi üzerinden çalışıyor.

Puantaj sayfasına personel bilgilerini yazan makro hangisi, hangi düğme ise ona ait kodlara bakmanız gerekiyor demektir.

@Ömer BARAN
Doğrudur Ömer hocam.
Personel bilgisi sayfasından userformd bilgi aktar butonuna bastığımda bordro sayfasına bilgiler gelmektedir.
Ama en sonda sildiğim personel silinmiyor. orada kalıyor. bununla ilgili yardım istemiştim.
sanırım burada bir düzeltme olması gerekiyor ama yapamıyorum.
Sub aktar_Bordro()

Dim wshB As Worksheet, S2 As Worksheet

Dim zP As Long, zB As Long
Dim sP As Long, sB As Long
Dim dblY As Double

On Error GoTo sub_err

Set wshB = ThisWorkbook.Worksheets("Bordro"): Set S2 = Sheets("Personel Bilgisi")

zP = 3
sP = 2
zB = 17
sB = 2

Do While S2.Cells(zP, sP + 1) <> ""

With wshB
'B-Sütunu
.Cells(zB, sB) = S2.Cells(zP, sP) 'Sira No
.Cells(zB + 1, sB) = S2.Cells(zP, sP + 1) 'Kimlik No
.Cells(zB + 2, sB) = S2.Cells(zP, sP + 3) & " " & _
S2.Cells(zP, sP + 4) 'Adi Soyadi
.Cells(zB + 3, sB) = S2.Cells(zP, sP + 5) 'Statü
.Cells(zB + 4, sB) = S2.Cells(zP, sP + 6) 'Pozisyon
.Cells(zB + 5, sB) = S2.Cells(zP, sP + 9) 'Engelli durumu
'C-Sütunu
dblY = CDbl(S2.Cells(zP, sP + 10))
.Cells(zB, sB + 1) = dblY 'Yevmiye
.Cells(zB + 1, sB + 1) = S2.Cells(zP, sP + 11) 'Ögrenim durumu
.Cells(zB + 2, sB + 1) = S2.Cells(zP, sP + 13) 'Hizmet Yili
.Cells(zB + 3, sB + 1) = S2.Cells(zP, sP + 8) 'Olur ile Pozisyon

End With

zP = zP + 1
zB = zB + 6

Loop

wshB.Rows("17:" & zB).EntireRow.Hidden = False
wshB.Rows(zB & ":136").EntireRow.Hidden = True

Call aktar_puantaj

Sub_Exit:
Exit Sub

sub_err:
MsgBox "Hata olustu: " & Err.Description
Resume Sub_Exit

Set wshB = ThisWorkbook.Worksheets("Bordro"): Set S2 = Sheets("Personel Bilgisi")
şeklindeki kod satırının altına aşağıdaki iki satırı ekleyin.

son_satir_B = wshB.Cells(Rows.Count, 2).End(3).Row - 2
wshB.Range("B17:R" & son_satir_B).ClearContents

@Ömer BARAN
Hocam çok teşekkür ederim emeğinize sağlık. Allah razı olsun. Bilginize sağlık. İyi ki varsınız.