Karmaşık bir listede ilk satıra denk gelen veri satırındaki değerleri alma

[bmk2702bmk]

Merhaba herkese,

Ekte bir örnek liste oluşturdum. Bu örnek sayfa benzeri karmaşık uzun bir çalışma sayfam var.
A yada B sütununda yaralan verilere göre her ismin karşısına denk gelen sadece ilk satırdaki verileri listelemek istiyorum.

Örneğin; 123 nolu Ahmet a isimli kullanıcı için Ahmet a verilerinin olduğu ilk satırda yer alan bilgiler gelsin.
tutar 59,80; matrah 46,13; kdv 8,30 ; bürüt tutar 76,30 gibi.
Bir başka deyişle 13 satıra "Ahmet a" var ilk satırdaki bilgiler dursun kalan 12 satır silinsin. "Mehmet b" için bakarsak 7 satırda "Mehmet b" var ilk satırdaki kalsın kalan 6 satır silinsin istiyorum.
Bu şekilde Alt kalemlerin kolayca silinmesi mümkün mü ?

 

[çıtır]

Deneyiniz.

Sub SİL()
Dim sonsat As Long, i As Long
Set s1 = Sheets("Sayfa1")
sonsat =s1. Cells(Rows.Count, "A").End(xlUp).Row
Set Wsf = WorksheetFunction
Application.ScreenUpdating = False
For i = sonsat To 2 Step -1
t = Wsf.CountIf(s1.Range("A2:A" & sonsat), s1.Range("A" & i))
If t > 1 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
MsgBox "FAZLA SATIRLAR SİLİNDİ", vbInformation, "BİLGİ"
End Sub

 

[bmk2702bmk]

Teşekkür ederim. ))

 

[çıtır]

Teşekkür ederim. ))

Rica ederim.Dönüş yaptığınız için teşekkür ederim.