Mükerrer Satırı Silme

[hsayar]

BYIL	/MYIL	/GIDER_TURU  /MES_MER	    /  KOD
2006	/2007	/Kira	      /Kumdere	    /  101
2006	/2007	/Kira	      /kumdere	    /  101
2006	/2007	/kira	      /Kumdere	    /  101

benim için yukarıdaki üç satırda aynı
ve tablo içinde çeştli yerlerde olabilirler ilk olan kalacak diğer 2 satır silişnecek bunun makrosu nedir.

 

[udentr2002]

ekli dosyayı inceleyiniz inşallah dediğiniz gibi olmuştur.

 

[hsayar]

hocam teşekkür ederim benim istediğim bu işlemi aynı sayfada ve ilk 4 sütun benzersizse (kopyala yapıştırda problem çıkmı&#351 yapması kjodları alamazdan evvel bu işlemi yaptıracağım çünkü.

 

[udentr2002]

yani sadece ilk 4 satır içinmi istiyorsunuz vede benzersiz kayıtları yine aynı sayfada aynı ilk satırdamı göstersin istiyorsunuz?

 

[hsayar]

sn costcontrolün aşağıdaki kodları işime yaradı kendisine teşekkür ederim.
http://www.excel.web.tr/showthread.php?t=41035&highlight=m%FCkerrer

Sub MÜKERRER_KAYITLARI_SİL_birdenfazlasütunda()
    [IV:IV].ClearContents
    [IV1] = "=A1 & B1 & C1 & D1 & E1 & F1 & G1"
    [IV1].AutoFill Destination:=Range("IV1:IV" & [A65536].End(3).Row), Type:=xlFillDefault
    [IV:IV].Value = [IV:IV].Value
    For X = [IV65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("IV1:IV" & X), Cells(X, "IV")) > 1 Then Rows(X).Delete
    Next
    [IV:IV].ClearContents
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

 

[Amaxx]

arkadaşlar bu benim de çok işime yarayacak ama bir sorun var..... bu benzer satırları tek satıra indirirken her benzer satırın, örneğin C sütunundaki değerlerin toplamını alsın istiyorum... bunu nasıl yaparız?
mesela ne olabilir... bakkal defteri olsun
MÜŞTERİ ADI ALDIĞI ÜRÜN ADET
Ahmet Zeytinyağı 15
Ayşe Bardak 12
Ahmet Zeytinyağı 40

 

[udentr2002]

istediğin böyle bir şeymi C stünunun toplamını c1 hücresinde gösterecektir

 

[Amaxx]

dosyayı inceledim çok teşekkür ederim