Kod:
Private Sub CommandButton1_Click()
Dim Con As Object, Rs As Object, Sorgu As String
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Sonuc")
.Cells.ClearContents
son = .Range("A" & Rows.Count).End(3).Row
Set Con = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=Yes;Imex=1"""
Sorgu = " TRANSFORM sum([Sayi]) AS 'Sayi' SELECT [Baslik1],[Baslik2],[Baslik3] FROM [Sayfa1$A3:I65536] " & _
"GROUP BY [Baslik1],[Baslik2],[Baslik3] PIVOT year([TARİH])"
Rs.Open Sorgu, Con, 3, 1
For i = 0 To Rs.fields.Count - 1
.Cells(1, i + 1).Value = Rs.fields(i).Name
Next
.Range("A2").CopyFromRecordset Rs
Rs.Close: Con.Close
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End With
Application.ScreenUpdating = True
End Sub