Ado Sql ile puantajda olmayanları aktarma

[arrow3441]

Merhaba ekteki dosyalardan puantaj dosyasında makro vardır personelleri aktarıyorum. Puantajı 10 günlük doldurdum diyelim izin tablosunda yeni personel işe başlamıştır o ayda yani yapmak istediğim kısaca puantajda olmayan personelleri son dolu satırın altına eklemek

 

[arrow3441]

?

 

[arrow3441]

Alttaki nasıl düzenlememiz gerekiyor . Yardımcı olursanız sevinirim

Sub Aktar11515()
Tar = Format("1." & Range("C3") & "." & Range("C4"), "mmyy")
aktifDosyaYolu = ThisWorkbook.Path & "/İzinTablosu.xlsm"
Sql = "SELECT [T#C No], [Adı Soyadı], Şube, IIf(Format([İşe Giriş Tarihi],'mmyy')=" & Tar & ",Format([İşe Giriş Tarihi],'dd.mm.yyyy'),'') AS tar"
Sql = Sql & " FROM [PERSONEL$]"
Sql = Sql & " WHERE Şube ='MERKEZ' And IIf(DURUMU='AYRILDI',Format([Çıkış Tarihi],'mmyy')='" & Tar & "',IIf(DURUMU='ÇALIŞIYOR','')) ORDER BY  [Adı Soyadı] ASC  "



                
Set CN = CreateObject("Adodb.Connection")
Set rs = CreateObject("adodb.recordset")

CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & aktifDosyaYolu & ";extended properties=""excel 12.0;hdr=Yes;IMEX=1"""
CN.Open
rs.Open Sql, CN, 3, 1
Range("C8").CopyFromRecordset rs

Set CN = Nothing
Set rs = Nothing
Set rs1 = Nothing
say = Cells(Rows.Count, 3).End(3).Row
Range("B8:B" & say).FormulaR1C1 = "=ROW()-7"
Range("B8:B" & say).Value = Range("B8:B" & say).Value
End Sub

 

[arrow3441]

??yardımcı olan olursa süper olur

 

[arrow3441]

?