Makro İle Veri Sayfasından Süzerek Rapor Alma ve Toplama

[Barfly]

Herkese merhaba,

Ekte 2007 ve 2003 için ayrı ayrı çalışmamı bulabilirsiniz. Konu benim için çok önemli ve bunun excel ve makro ile yapılıp yapılamayacağını dahi kestirebilmiş değilim. Gerekli açıklamaları dosyalarda yaptım, yardımcı olabilirseniz çok sevinirim.

Teşekkürler,

 

[Barfly]

[CODE]

[/CODE]Sayın Orion 1 in benzer çalışmasını kendi çalışmama uyarladım kendisine teşekkür ederim. Fakat bir sorunum hala devam etmekte, örnekte bahsettiğim üzere irsaliye tarihlerinden bugüne en yakın tarihli olanı getirtmek istiyorum aşağıdaki koda nasıl ekleyebilirim yardımcı olabilirseniz sevinirim.

First(24) ün irsaliye tarihi bulunan kolona refere ettiğini varsayalım.

Sub Temiz()
Dim conn As Object, rs As Object, sh As Worksheet, sat As Long
Sheets("TEMIZ").Select
Range("A2:BD10000").Clear
Set sh = Sheets("DATA")
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("AdoDb.Recordset")
sat = sh.Cells(100000, "A").End(xlUp).Row
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=no;imex=1"";"
rs.Open "select first(F1),first(F2),first(F3),first(F4),first(F5),first(F6),first(F7),first(F8),first(F9),first(F10),first(F11),first(F12),first(F13),first(F14),first(F15),first(F16),first(F17),first(F18),first(F19),first(F20),first(F21),first(F22),first(F23),first(F24),first(F25),first(F26),first(F27),first(F28),first(F29),first(F30),first(F31),first(F32),first(F33),first(F34),first(F35),first(F36),first(F37),first(F38),first(F39),first(F40),first(F41),first(F42),first(F43),first(F44),first(F45),first(F46),first(F47),first(F48),first(F49),first(F50),first(F51),first(F52),first(F53),first(F54),sum(F29),count(F1) from" & _
"[DATA$A2:BB" & sat & "] group by F4,F5,F6,F10,F18,F20,F21,F22,F30,F32,F51,F52,F54 order by sum(F29) desc;", conn, 1, 1
Application.ScreenUpdating = False
Range("A2").CopyFromRecordset rs
Application.ScreenUpdating = True
rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing
MsgBox "ADO ile Benzersiz işlemler tamamlanmıştır." & vbLf & _
"evrengizlenqhotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub