Satırdaki bazı alanlar esitse ozetleyerek aktar

[Eser Gökay]

Arkadaslar merhabalar,


bir tablo'da E aralıgında veriler mevcut. bazı verileri mukerrer islemek durumunda kalıyorum. Yapmak istedigim E:J aralığındaki verilerin ustunde ya da altındaki veriler tamamen eşitse, M kısımlarınlarının toplamını alarak baska sayfaya aktarmak. dosyam ektedir.

tesekkurlerimi sunar, herkese iyi calismalar dilerim....

 

[Eser Gökay]

degerli ustalarım, aceleci davranmak istemem ancak yardımlarınızı bekliyorum. Eger cozum bulunursa kodları 250 dosyaya uyarlamam gerekecek.

 

[Eser Gökay]

arkadaslar yardımcı olabilecek kimse var mı?

 

[ceyrek]

Biraz beyin jimnastiği yaptırdı, 3 saate yakın zamanımı aldı ama oldu sanırım. Eksik gördüğünüz biryer varsa eklemeye çalışırım.

İyi çalışmalar..

Not: Aynı kayıtlar alt alta olmazsa kesinlikle çalışmaz.

 

[Eser Gökay]

Sayın ceyrek ilginize tesekkur ederim. Ancak macro dogru calismiyor. Şöyle ki, mukerrer satırlara tek satıra iniyor. oraya kadar sıkıntı yok. Ancak toplamları doğru almıyor. Orneğin ozetlemeden sonra 780654 nolu fatura'nın toplamını alırken m5+m7 olarak veriyor bu sürekli bu sekil devam ediyor. yani rakamlardaki mukerrerliği de gozonune alıyor.

 

[Zeki Gürsoy]

Ekli dosyayı inceleyin..

Sub Ozetle()
Dim Cn As Object, Rs As Object
 
Set Cn = CreateObject("ADODB.Connection")
 
Cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};dbq=" & ThisWorkbook.FullName
 
Set Rs = Cn.Execute( _
"SELECT DISTINCT [Faturayı Düzenleyen], [Vergi Dairesi], [Vergi/TC Kimlik Numarası], " & _
"[Adresi], [Belge Tarihi], [Belge No], " & _
"Sum([Tutar]), Sum([KDV]), Sum([KKEG]), Sum([Toplam]) " & _
"FROM [Girisler$E3:P65536] " & _
"GROUP BY [Faturayı Düzenleyen], [Vergi Dairesi], [Vergi/TC Kimlik Numarası], " & _
"[Adresi], [Belge Tarihi], [Belge No], [Satın Alınan Mal /Hizmet Cinsi]")
 
With Sheets("Ozetleme")
    .[a2:j65536].ClearContents
    .[a2].CopyFromRecordset Rs
End With
 
Rs.Close
Cn.Close
End Sub

 

[hsayar]

Set Rs = Cn.Execute( _
"SELECT DISTINCT [Faturayı Düzenleyen], [Vergi Dairesi], [Vergi/TC Kimlik Numarası], " & _
"[Adresi], [Belge Tarihi], [Belge No], " & _
"Sum([Tutar]), Sum([KDV]), Sum([KKEG]), Sum([Toplam]) " & _
"FROM [Girisler$E3:P65536] " & _
"GROUP BY [Faturayı Düzenleyen], [Vergi Dairesi], [Vergi/TC Kimlik Numarası], " & _
"[Adresi], [Belge Tarihi], [Belge No], [Satın Alınan Mal /Hizmet Cinsi]")

Merhaba anemos hocam burada köşeli parantezler içinde yazılma sebebi nedir acaba?

 

[Zeki Gürsoy]

Alan isminde boşluk varsa köşeli parantez kullanılması şarttır.

 

[hsayar]

Açıklmanız için teşekkür ederim.
alan isminde boşluk yoksa kullansak bir şey değişirmi peki...
Hani elimiz alışsın... sonra neden yanlış oldu demeyelim .

 

[Zeki Gürsoy]

Boşluk yoksa zorunluluk yoktur.

 

[hsayar]

teşekkürler