Aynı isimlerden diğerini silme

[By.Mercan]

arkadaşlar
d21 den d49a kadar benim listem mevcut bu listede örneğin d5 ve d10 da domates varsa d10 daki domatesi bulunduğu hücreyi (d10) silmesini istiyorum. ayrıca bu değişkeni makro otomatik denetlesin. bir değer değiştiği zaman hemen o işlemi yapsın.

şimdiden teşekkür ederim..

 

[askm]

Örnek dosyanızı ekleseniz daha iyi olurdu. Aşağıdaki şekilde deneyin.

Sub ASKM_Mükerrer_Sil()
Dim SonSatir As Long
SonSatir = Range("D" & Rows.Count).End(xlUp).Row
For i = 21 To SonSatir
    Sayi = WorksheetFunction.CountIf(Range("D21:D" & i), Cells(i, 4))
    If Sayi > 1 Then
        Rows(i).Delete
        i = i - 1
    End If
Next
MsgBox "İşlem Tamam!...", vbInformation, "ASKM"
End Sub

 

[By.Mercan]

öncelikli olarak çok teşekkür ederim dosya yüklemeyi kurum bilgisayarı olduğu için izin vermiyor. ama verdiğiniz kod işimi gördü.

Fakat silme işlemi üst taraftan yapıyor. örneğin;
d21 1
d22 2
d23 3
d24 1 (bunu sileceğine d21 siliyor.)
d25 3
d26 4
d27 5

 

[askm]

Aşağıdaki şekilde deneyin.

Sub ASKM_Mükerrer_Sil()
Dim SonSatir As Long
SonSatir = Range("D" & Rows.Count).End(xlUp).Row
For i = SonSatir To 21 Step -1
    Sayi = WorksheetFunction.CountIf(Range("D21:D" & i), Cells(i, 4))
    If Sayi > 1 Then
        Rows(i).Delete
    End If
Next
MsgBox "İşlem Tamam!...", vbInformation, "ASKM"
End Sub

 

[By.Mercan]

teşekkür ederim. çok iyi oldu.

 

[askm]

Rica ederim.

 

[By.Mercan]

bir sıkıntı var yazılan kod la ilgili kod bütün satırı siliyor ve diğer verilerde gidiyor. sadece d21:d40 arasında aynı olan ürünleri sadece hücre temizlemesi yapması için nasıl değişiklik yapmamız gerekiyor.

Range("d21").Select
Selection.ClearContents

 

[askm]

Delete yerine ClearContents yazın.