Kapalı dosyada bulunan aynı verilerin adedini ve toplamlarını almak

[mnz]

Kapalı bir excel dosyasındaki listede Aynı isimdeki veriden kaç tane olduğunu ve toplamlarını nasıl alabiliriz.

İyi çalışmalar.

 

[Haluk]

........???

 

[mnz]

Yani, Eğersay formülü ve Toplam alma.

 

[mnz]

Aceleyle devrik cümleler kurmaya devam ediyorum.
Kapalı excel dosyasında listem var.
Örn: İsim - Doğum Yeri - Yaş
Doğum yeri İstanbul olan kaç üyemiz var, ve Yaşları Toplamları.

Saygılar.

 

[muygun]

Slm.
morefunc eklentisini kur
INDIRECT.EXT ile kapalı dosyayı açmadan istediğin hücresinden veri çekebilirsin.

 

[mnz]

Sayın muygun seçilen kritere göre kapalı dosyadan verileri alıyorum. Ancak seçtiğim kriterin toplamını vede sayısını alamıyorum.

 

[Recep İpek]

ADO ile yapılmış çözümü aşağıda bulabilirsiniz.

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String

Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
Mypath = "C:\Deneme\veri.xls"   'Dosya Yolu
Set FSO = CreateObject("Scripting.FileSystemObject")
kontrol = FSO.FileExists(Mypath)
    If kontrol = False Then
        MsgBox "Kaynak Dosya Bulunamadı.", 64, "UYARI"
        Set DB = Nothing
        Set FSO = Nothing
        Exit Sub
    Else
        DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Mypath
    End If
Set FSO = Nothing
End Sub

Sub DBOFF()
On Error Resume Next
DB.Close
Set DB = Nothing
End Sub

Sub RSON()
On Error Resume Next
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
End Sub

Sub RSOFF()
On Error Resume Next
RS.Close
Set RS = Nothing
End Sub

Sub KayitBul()
On Error Resume Next
DBON
RSON
Range("b2:c2").ClearContents
SQLStr = "SELECT COUNT([Doğum Yeri]),SUM([Yaş]) FROM [DATA$] WHERE [Doğum Yeri]='" & [a2] & "'"
RS.Open SQLStr, DB
[b2].Value = RS.Fields(0)
[c2].Value = RS.Fields(1)
[a1].Select
RSOFF
DBOFF
End Sub
[color=Green]'Referanslardan "Microsoft ActiveX Data Object X.X Library" seçili olmalıdır.[/color]

 

[mnz]

Sayın ripek Allah sizden razı ve memnun olsun.
Sadece Select satırı dahi işimi gördü ama siz tüm işlem için uğraşmışsınız.
Elinize, düşüncenize, emeğinize sağlık.

 

[Recep İpek]

Allah (c.c) hepimizden razı olsun.

Yardımcı olabildiysem ne mutlu bana..

 

[mnz]

Sanırım artık konu ADO kapalı dosya bölümüne taşınmalı.