Sql ile sütunu kendi içinde sayma sorgusu

[tamer42]

Merhaba,
Ekli dosyada Rapor sayfası "A" sütunda COUNTIF formülü ile Data sayfasından gelen sonuçları bire-bir aynı şekilde;
özetle miktar adetlerini kendi içinde sayarak sonucu satır sayısı kadar aktaracak.

Bu işlemi "for ...... next" döngüsü olmadan; SQL sorgusu ile almak istersek sorguyu nasıl düzenlememiz gerekir?

Sub sorguCOUNTIF()
Dim Con As Object
Dim RS As Object

Dim WS As Worksheet
Set WS = Sayfa1

WS.Cells.ClearContents

Set Con = VBA.CreateObject("adodb.Connection")

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select count([MİKTAR]) from[Data$] where [TÜR] = '%' "

Set RS = Con.Execute(sorgu)

WS.Range("A2").CopyFromRecordset RS

WS.Cells.EntireColumn.AutoFit

End Sub

teşekkürler,
iyi Çalışmalar.