PHP Kod:
Sub Aktar()
SQL = "TRANSFORM Count(F2) AS Say"
SQL = SQL & " SELECT F2"
SQL = SQL & " FROM [Sayfa1$]"
'SQL = SQL & " WHERE (((Month(F1)) = 8))"
SQL = SQL & " GROUP BY F2"
SQL = SQL & " PIVOT IIf([F1] Mod 7>1,'Hafta İçi','Hafta Sonu');"
Set RS = New ADODB.Recordset
Set CN = New ADODB.Connection
CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""
CN.Open
RS.Open SQL, CN, 3, 1
Sheets("Toplam Liste").Range("A3").CopyFromRecordset RS
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
End Sub
Eğer Verilerin hepsi Sayfa1 de, A Sütunu-da tarih ve B sütunda nöbetçiler varsa.