Faturaları birleştirmek acil yardım

[akzmeltem]

Excel 2003 versiyonu kullanıyorum, fatura numaraları aynı olan faturaların tutarlarını birleştirmek istiyorum, bunun için proğram yazabilecek bir arkadaş varsa çok memnun olurum
a b c d
tarih fatura no satıcı adı tutar
15.12.2012 1328 ahmet özçelik-güneş sigorta 831,34
15.12.2012 1328 ahmet özçelik-güneş sigorta 766,23

 

[apocalyt]

Meraba. aşağıdaki kodu dener misiniz?

Sub düzenle()
Application.ScreenUpdating = False
b = [a10000].End(3).Row
For k = 2 To b
Cells(k, "g") = Cells(k, "a") & Cells(k, "b") & Cells(k, "c")
Next k
For x = 2 To b
If Cells(x, "g") = Cells(x + 1, "g") Then
Cells(x, "d") = Cells(x, "d") + Cells(x + 1, "d")
Rows(x + 1).Delete
x = x - 1
Else: If Cells(x + 1, "g") = "" Then GoTo ben
End If
Next x
ben:
Application.ScreenUpdating = True
Range("g:G").ClearContents
MsgBox "İşleminiz bitmiştir."
End Sub

 

[akzmeltem]

Çok teşekkür ederim çok güzel oldu

 

[stier_22]

..