Sayfada aynı olan tanımların karşılığındaki değerleri toplat

[contar]

Bir sayfada bulunan bilgilerden A sütunda bulunana tanımların mükerrer olanların karlışığındaki bilgileri toplayarak başka sayfaya yazdırmak istiyorum. Örnek dosya ektedi ve üzerinde açıklama yapılmıştır. ilgilenenlere teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub benzersiz_topla_aktar_59()
Dim conn As Object, rs As Object, sat As Long
Sheets("ANALİZ YAP").Select
Sheets("İCMAL").Range("A5:F65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
If Cells(65536, "A").End(xlUp).Row < 7 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,first(F2),first(F3),first(F4),first(F5),sum(F6) " _
& "from [ANALİZ YAP$A7:F" & sat & "] group by F1;", conn, 1, 1
Application.ScreenUpdating = False
Sheets("İCMAL").Range("A5").CopyFromRecordset rs
Sheets("İCMAL").Select
Application.ScreenUpdating = True
rs.Close: conn.Close: Set rs = Nothing: Set conn = Nothing
MsgBox "Benzesizler toplandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[contar]

ilginize teşekkür ederim. ama benim yapmak istediğim bu değil. galiba yanlış anlattım. Analiz yap sayfasındaki bilgileri İCMAL sayfasına atacak. ancak bunu yaparken ANALİZ YAP sayfasında poz no sütununda birden fazla bulunan aynı pozun miktar sütunudakileri toplayarak İcmal sayfasına atacak. göndermiş olduğunuz örnekte ANALİZ yap sayfasında mükerrer pozları silerek tek poz bırakıyor ve İCMAL sayfasınada aktarmıyor.

 

[Orion1]

ilginize teşekkür ederim. ama benim yapmak istediğim bu değil. galiba yanlış anlattım. Analiz yap sayfasındaki bilgileri İCMAL sayfasına atacak. ancak bunu yaparken ANALİZ YAP sayfasında poz no sütununda birden fazla bulunan aynı pozun miktar sütunudakileri toplayarak İcmal sayfasına atacak. göndermiş olduğunuz örnekte ANALİZ yap sayfasında mükerrer pozları silerek tek poz bırakıyor ve İCMAL sayfasınada aktarmıyor.

Dosyayı 2 numaralı mesajdan indirebilirsiniz.

 

[contar]

tşk. ederim. sorunu çözdü.