Soru Puantaja Veri Aktarma

[mukoli]

Merhaba üstadlar ekteki puantaj dosyasına hangi ayın puantajını hazırlıyorsam izin tablosu dosyasından personelin tc'sine bakarak hangi günler yıllık izin , rapor kullanmışsa puantaja aktarması gerekiyor. yıllık izin Yİ raporlu ise RP yazması gerekiyor puantaja yardımcı olursanız cok sevinirim

 

[mukoli]

?

 

[mukoli]

varmı yardımcı olucak arkadaşlar

 

[mukoli]

?

 

[mukoli]

??

 

[mukoli]

Yardımcı olucak kimse yokmu acaba

 

[mukoli]

?

 

[mukoli]

Bu kod çalışıyor fakat kapalı dosyayı açıp kapatarak işlem yapıyor . Bunu dosyayı açmadan yapıcak şekilde yapabilirmiyiz

Sub X_Ekle()
Workbooks.Open Filename:=ThisWorkbook.Path & "/İzinTablosu.xlsm"

Dim s2 As Worksheet, Son As Integer, KacGun As Integer, i As Integer

Set s2 = Workbooks(1).Sheets("Sayfa2")
Dim iz As Worksheet: Set iz = Workbooks(2).Sheets("KAYITLAR")

Son = s2.Range("C" & Rows.Count).End(3).Row


For a = 3 To iz.[B65536].End(3).Row
    For satır = 8 To s2.[C65536].End(3).Row
            If iz.Cells(a, 2) <> s2.Cells(satır, 3) Then GoTo 10
        For sütun = 8 To 38
            If s2.Cells(6, sütun) = "" Then GoTo 20
'            If Weekday(CDate(Cells(4, sütun)), 2) > 5 Then GoTo 20
                If iz.Cells(a, 5) <= s2.Cells(6, sütun) And iz.Cells(a, 6) >= s2.Cells(6, sütun) Then
                s2.Cells(satır, sütun) = cesit(iz.Cells(a, 8)) 'iz.Cells(a, 8)
            End If
20:        Next
10: Next
Next
Workbooks(2).Close
End Sub

Function cesit(izin)
If izin = "YILLIK İZİN" Then cesit = "Yİ"
If izin = "RAPORLU" Then cesit = "RP"
End Function

 

[mukoli]

kimse yokmu acaba

 

[mukoli]

Üstadlar bakmıyormu acaba yoksa çözülemiyormu eğer çözülemiyorsa konu kapatılsın

 

[Korhan Ayhan]

Bu konu forumda bolca işlenen konulardan birisidir. Bu sebeple araştırma yaparak kodları kendinizin derlemesi gerekir. Bizler bunu bekliyoruz.

 

[mukoli]

Hocam gördüğünüz gibi 6 gündür araştırıyorum zaten

 

[Korhan Ayhan]

Linkteki konuları iyice inceleyiniz.

Sorgu için arama sonuçları: puantaj

www.excel.web.tr

 

[mukoli]

Korhan hocam dediğinizi inanın yaptım yukarda gördüğünüz gibi en son oraya kadar geldim ondan sonrasında artık ilerleyemiyorum

 

[mukoli]

?

 

[mukoli]

sanırım çözülmücek konuyu kapatabilirsiniz iyi akşamlar