Ekteki excel Tablosunda Köy adı sütununda bulunan köyler değişik ilçede de olduğunda ilk ilçede nüfus topluyor. Bunu ilçe bazında nasıl filitre yapabiliriz.
Ekli dosyalar
-
10.3 KB Görüntüleme: 9
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Nüfus_Toplamı()
Dim Rky As Object, rs As Object, sorgu As String
Set Rky = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Rky.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";Extended properties=""Excel 12.0;hdr=no"""
sorgu = "Select f3 ,sum(f6) from [Sayfa1$D5:J24]"
sorgu = sorgu + "where not isnull(f3) group by f3"
rs.Open sorgu, Rky, 1, 1
Range("L5").CopyFromRecordset rs
rs.Close: Rky.Close
Set Rky = Nothing: Set rs = Nothing: sorgu = ""
End Sub
=EĞER(ÇOKEĞERSAY($E$5:E5;E5;$F$5:F5;F5)=1;TOPLA.ÇARPIM(($E$5:$E$24=E5)*
($F$5:$F$24=F5)*($I$5:$I$24));"")