Mükerrer kayıt süzme makrosu

[mdurgunsu]

ekteki tabloda sql veri tabanından okunmuş veriler mevcuttur.Bu verilerin okunması verilen iki tarih arası yapılmaktadır.Örnekte bu tarih aralığı 01-02 temmuz 2010 olarak alınmıştır.sağ tarafta I sütunundan başlayarak tarih,o tarihe ait maliyet toplamı(D sütununun o tarihe ait satır toplamları)
ve o tarihe ait genel toplam (F sütunu) tolplamları olacak şekilde yatay bir rapor hazırlayan bir makro yapmak istiyorum F sütunundaki mükerrer kayıtlar, tarihe bağlı olarak süzülmeli ve toplanmalıdır.Bu konuda acil yardımlarınızı bekliyorum.Şimdiden teşekkürler

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Sub ado_ile_benzersiz_topla_59()
Dim conn As Object, rs As Object, sat As Long
Sheets("Sayfa1").Select
Range("I2:K65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Set conn = CreateObject("AdoDb.connection")
Set rs = CreateObject("AdoDb.RecordSet")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & _
";extended properties=""excel 8.0;hdr=no;imex=1"";"
rs.Open "select F1,sum(F6),sum(F4) from [Sayfa1$A2:F" & sat & "] group by F1;", conn, 1, 1
If rs.RecordCount > 0 Then
    Application.ScreenUpdating = False
    Range("I2").CopyFromRecordset rs
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlandı" & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End If
rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[mdurgunsu]

aynı raporu düşey olarak hesaplayan bir makrom var günlük olarak hesap yapabiliyor bu makronun verdiği değerlerle sizin verdiğiniz makro ile aynı gün için çıkan toplam değerler farklı sebep ne olabilir ?

[Orion1]

aynı raporu düşey olarak hesaplayan bir makrom var günlük olarak hesap yapabiliyor bu makronun verdiği değerlerle sizin verdiğiniz makro ile aynı gün için çıkan toplam değerler farklı sebep ne olabilir ?

Benim yazdığım kodu ben ayıca etopla fonksiyonu ilede kontrol ettim.
Sonuç doğru çıkıyordu.
Sizin yazdığınız sonuçlarla uyuşmuyordu.
Sizin makronuz nasıl,kim yazdı?

[mdurgunsu]

göndereyim isterseniz ayrıca muhasebe programımızda aynı sonucu doğruluyor

[mdurgunsu]

sizin daha önceleri başka bir sebeple yazdığınız bir makrodan esinlenerek yazmıştım gayet iyi çalışmakta yalnız düşey rapor verebiliyor ve formatı biraz farklı.ekte sunuyorum.ilginize çok teşekkürler

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[mdurgunsu]

mevcut datalar 01/07/2010 tarihine aittir

[Orion1]

İyide bu dosyalar farklı.
İlk yolladığınız dosyada A sütununda tarihler vardı.
Bu tarihleri benzersiz sıralayıp topladık.Onda toplamda 1555 satır vardı
Sonuçta 2 satır oluştu.Çünkü 2 tane benzersiz satır vardı.
Son yolladığınızda ise A sütunda tarih yok.Ve onda Toplamda 709 satır var.
ikisi farklı veriler var .Aynisi çıkmamamsı doğaldır.
Haaa 2 side ayni dosya olsa farklar ortaya çıksa anlarım.Derim ki o zaman hata var.
Ama bu durumda ne ile neyi karşılaştıracağım bile meçhul.

[mdurgunsu]

aslında sql bağlantı dosyasında fathartar isimli tablodanda data select ediliyordu ancak bu raporda tarih gerekmediğinden (çünkü başlangıçta seçiyorsunuz) o sütun benim tarafımdan silinmiş.ortak bir kıstas olarak fatura referans numaraları alınabilir diye düşünüyorum.dolayısıyla o güne ait  fatura ref. numaraları toplandığında (her faturanın bir ref nosu olduğuna göre) sonuç aynı çıkmalıdır diye düşünüyorum

[Orion1]

aslında sql bağlantı dosyasında fathartar isimli tablodanda data select ediliyordu ancak bu raporda tarih gerekmediğinden (çünkü başlangıçta seçiyorsunuz) o sütun benim tarafımdan silinmiş.ortak bir kıstas olarak fatura referans numaraları alınabilir diye düşünüyorum.dolayısıyla o güne ait  fatura ref. numaraları toplandığında (her faturanın bir ref nosu olduğuna göre) sonuç aynı çıkmalıdır diye düşünüyorum

Ama satır adetleri farklı.Daha önceki mesajımdada söylemiştim.
Nasıl olacak.
Ayrıca sizin kodlarınıza şöyle bir göz ucuyla baktım.
Bazı satırları silmişsiniz.

Do
If Cells(k, "L") = "" Then Exit Do
If Cells(k, "M").Value = "0" Then Rows(k).Delete
k = k + 1
Loop

[mdurgunsu]

maliyeti 0 olanlar yani kar olarak gözüken faturalar, mesela fiyat farkı faturaları,tamamen kar olarak gözüktüklerinden toplam karlılıkta yanlış sonuç doğuruyorlar bu nedenle o satırları siliyorum

[mdurgunsu]

aynı durumu burada uygulayabiliriz sonuçta bu aynı raporun kısa ve yatay bir özeti

[Orion1]

aynı durumu burada uygulayabiliriz sonuçta bu aynı raporun kısa ve yatay bir özeti

İyi ama her 2 kod farklı çalışıyor.
Son yoladığınız dosyada sadece maliyeti mükererlerde topluyor.Ve genel toplamı ise ilk mükerrer kayıtta alıyor.
Ayni kayıttan başka genel toplam varsa toplamıyor onları.
Bu bir farklı olan konu.
Yinde sonuçlar tutmuyor.
Bu takdirde maliyetin tutması lazım oda tutmuyor.

[mdurgunsu]

ben sql sorgusunu tekrar kontrol edeceğim sorgu mantığında bir sorun olabilir.ilginize teşekkürler