Mükerrer olayıyla farklı bir boyut.

[istanbulcahan]

ADI SOYADI NET TUTAR
Mehmet Taş 65,56
Mehmet Taş 65,36
Mustafa Özmen 67,89
Murat ÖZZTAY 67,88
Tuna HUŞ 65,56
Tuna HUŞ 65,36
Tuna HUŞ 67,89
Tuna HUŞ 67,88
Yukarıda hakemlerin isimleri; bu hakemlerin içindne birden fazla olanları silip, aşağıdaki formatta olmasını istiyorum. Örnek dosya ektedir.

HAKEMLER: Mehmet Taş, Mustafa Özmen, Murat ÖZTAYY, Tuna Huş

 

[N.Ziya Hiçdurmaz]

yanıt

Sub hakemler()
Dim sat As Integer
[E1] = ""
    For sat = Cells(65536, "B").End(xlUp).Row To 2 Step -1
        If WorksheetFunction.CountIf(Range("a2:a" & sat), Cells(sat, "a")) > 1 Then
            Cells(sat, "a").EntireRow.Delete
        End If
    Next
    For sat = 2 To Cells(65536, "B").End(xlUp).Row
    [E1] = [E1] & Cells(sat, "A") & Cells(sat, "B") & ","
    Next
End Sub

 

[istanbulcahan]

Üstadım. Dosyada Mustafa Okan diye birisim ekledim. Virgülle yazılacak yere bu ismi eklemedi.

 

[iibfli]

Bu tarz birşey işinizi görür mü bilmem. Ziya üstad makro yazarak hazırlamış ben de kendiniz kolaylıkla düzenleyebilesiniz diye formüllerle yapmaya çalıştım. Umarım işinize yarar.

 

[iibfli]

Ziya hocamın yazdığı makro mükemmel çalışıyor. Sanırım yeni adı ekledikten sonra makroyu çalıştırmadınız. Bir buton ekledim Adı, Soyadı ve Tutarı ekleyip Butona tıklarsanız istediğinizi elde etmiş olursunuz.