Firs olmasına rağmen resimdeki sarıya boyadığım 3 yerine 1,ghı yerine abc ve b379 yerine 123 neden gelmedi
Kodu attaki gibi geliştirdim verdiğiniz.Zamanım olmadığı için tam uğraşamadım.
Sub test()
Set ADO_RS = New ADODB.Recordset
Set ADO_CN = New ADODB.Connection
Sql = "SELECT First(Kimlik) AS ÝlkKimlik,[Sipariþ No],First([Firma Adý]) AS ilkFirmaAd," & _
"First([Stok Adý]) AS ilkStokAd, Sum(Miktar) AS ToplaMiktar, Sum(Tutar) AS ToplaTutar " & _
"FROM deneme " & _
"GROUP BY [Sipariþ No] " & _
"ORDER BY [Sipariþ No];"
ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\deneme.accdb"
ADO_CN.Open
ADO_RS.Open Sql, ADO_CN, 3, 1
'
' Eðer Hiç Kayýt Yoksa
If ADO_RS.RecordCount = 0 Then
MsgBox "Kayýt Bulunamadý.", vbCritical, "Veri Yok"
GoTo son
End If
ADO_RS.MoveLast
ADO_RS.MoveFirst
Sheets("Sheet1").Range("A10:F" & Rows.Count).Clear
Sheets("Sheet1").Range("A10").CopyFromRecordset ADO_RS 'excelde
son:
ADO_RS.Close
ADO_CN.Close
Set ADO_RS = Nothing
Set ADO_CN = Nothing
End Sub