Tekrar eden verileri birleştirme

[freeagle]

Arkadaşlar merhaba,

Ekte yer alan listede tekrar eden faturaları birleştirmek istiyorum. Bunun için fatura numarası,fatura tarihi ve firma unvanı aynı olan faturaları tarayıp, aynı olanları birleştirerek KDV Matrahı, KDV Tutarı ve Bünyeye Giren KDV sütunlarının toplamı ile açıklam kısımlarını da aralara , koyarak birleştirmek istiyorum. Bunu sağlayacak bir makro var mıdır acaba?

Yardımlarınız için çok teşekkür ederim.

 

[ridvan2111]

Arkadaşlar merhaba,

Ekte yer alan listede tekrar eden faturaları birleştirmek istiyorum. Bunun için fatura numarası,fatura tarihi ve firma unvanı aynı olan faturaları tarayıp, aynı olanları birleştirerek KDV Matrahı, KDV Tutarı ve Bünyeye Giren KDV sütunlarının toplamı ile açıklam kısımlarını da aralara , koyarak birleştirmek istiyorum. Bunu sağlayacak bir makro var mıdır acaba?

Yardımlarınız için çok teşekkür ederim.

Merhaba.
Sayın Orion1 in Benim çalışmam için yazdığı kodu Sizin çalışmanıza uyarlamaya çalıştım.

Sub toplamlar_59()
Dim sh1 As Worksheet, sh2 As Worksheet, i As Long, sat As Long, sat2 As Long
Dim z As Object, myarr(), deg As String, n As Long
Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
sh2.Range("A5:AR65536").ClearContents
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
sat1 = sh1.Cells(65536, "B").End(xlUp).Row + 1
Set z = CreateObject("Scripting.Dictionary")
ReDim myarr(1 To 13, sat1)
For i = 5 To sat1
deg = sh1.Cells(i, "B").Value & sh1.Cells(i, "D").Value & sh1.Cells(i, "E").Value
If Not z.exists(deg) Then
n = n + 1
z.Add deg, n
myarr(1, n) = sh1.Cells(i, "A").Value
myarr(2, n) = sh1.Cells(i, "B").Value
myarr(3, n) = sh1.Cells(i, "C").Value
myarr(4, n) = sh1.Cells(i, "D").Value
myarr(5, n) = sh1.Cells(i, "E").Value
myarr(6, n) = sh1.Cells(i, "F").Value
myarr(7, n) = sh1.Cells(i, "G").Value
myarr(12, n) = sh1.Cells(i, "L").Value
myarr(13, n) = sh1.Cells(i, "M").Value

End If
myarr(8, z.Item(deg)) = myarr(8, z.Item(deg)) + sh1.Cells(i, "H").Value
myarr(9, z.Item(deg)) = myarr(9, z.Item(deg)) + sh1.Cells(i, "I").Value
myarr(10, z.Item(deg)) = myarr(10, z.Item(deg)) + sh1.Cells(i, "J").Value
myarr(11, z.Item(deg)) = myarr(11, z.Item(deg)) + sh1.Cells(i, "K").Value
Next
Set z = Nothing
sh2.Select
ReDim Preserve myarr(1 To 13, n)
sh2.Range("A5").Resize(n, 13) = Application.Transpose(myarr)
Erase myarr

MsgBox "Veriler toplandı.", vbOKOnly + vbInformation, Application.UserName

Application.ScreenUpdating = True

End Sub

 

[freeagle]

Çok teşekkür ederim ama galiba sizin gönderdiğiniz makro tüm listeyi birleştiriyor. Benim sadece tekrar eden belgeleri birleştirmem gerekiyor.

 

[ceiron]

Tekrar eden verileri bularak sayma

A ve B kolonlarinda bulunan bilgilerin ayni olanlarinin
User adi ve tekrar sayisi
Statu ve tekrar sayisi seklinde belirlemek istiyorum
bunu nasil gerceklestirebilirim

 

[Necdet]

Merhaba,

Özet tablo işinizi görür mü?

 

[talebeyim]

Degerli kardesim hayirli geceler. Oncelikle cep telefondan yazdigim icin detayli anlatamayacagim. Simdh súz islevin cok daha fonksyonalist yapilari var. Dedigin seyin aynisini muhasebe departmani icin acizane yaptik. Acizane fikrim eger microsoft yardimdan suz ozelliklerini okursaniz cok faydali bilgilere ulasirsiniz. yada verileri alt alta alip ozet tablo butonuna basin karsiniza cikan checkboxlari aktif yapin kare kutularin icini doldurun.

 

[ceiron]

Sayın Yeşertener,
Öncelikle konu ile ilgilendiğiniz için teşekkürler. Tabloda yer alan A (Kullanıcı isimleri) ve B (Kullanıcı mesajı) alanlarını ayrı ayrı değerlendirerek her biri için tekrar sayısına ulaşmam gerekiyor. Hangi yöntemi kullandığım çok önemli olmamakla birlikte, bu işlemi gerçekleştirmem gereken 8 dosya bulunmakta. Eğer mümkünse; bir sütün içinde tekrar eden aynı metinleri belirleyerek, tekrar sayısını nasıl bulacağımın yöntemini anlatırsanız daha iyi olabilir.