Bir Satırdaki Birden Fazla Aynı Değeri Silmek

[caneruysal]

Merhaba,
Örneğin Range("A1:A10") aralığındaki sayılardan tekrar edenlerden tekrarlarını silmek istiyorum bunu nasıl yaparım makro kodlaması ile cevaplarınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanın.

Sub Test()
    Dim Alan As Range
    Dim Bak As Range
    Set Alan = Range("A1:A10")
    For Each Bak In Alan
        If WorksheetFunction.CountIf(Alan, Bak) > 1 Then
            'Bak.Clear 'İçeriğini silmek için
            Bak.Delete Shift:=xlUp 'Hücreyi silmek için
        End If
    Next
End Sub

 

[caneruysal]

Merhaba.

Aşağıdaki kodları kullanın.

Sub Test()
    Dim Alan As Range
    Dim Bak As Range
    Set Alan = Range("A1:A10")
    For Each Bak In Alan
        If WorksheetFunction.CountIf(Alan, Bak) > 1 Then
            'Bak.Clear 'İçeriğini silmek için
            Bak.Delete Shift:=xlUp 'Hücreyi silmek için
        End If
    Next
End Sub

Hocam Teşekkür ederim fakat hücrenin boyasını da siliyor bunu nasıl engellerim ?

 

[muratb06]

Bak.Delete satırını koddan siliniz ve Bak.Clear satırı başındaki ` işaretini silerseniz istediğiniz olacaktır.
2. Çözüm
Bak.Delete satırını siliniz.
Bak.Value = ""
Kodunu yazınız.

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

 

[caneruysal]

Bak.Delete satırını koddan siliniz ve Bak.Clear satırı başındaki ` işaretini silerseniz istediğiniz olacaktır.
2. Çözüm
Bak.Delete satırını siliniz.
Bak.Value = ""
Kodunu yazınız.

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

Hocam Teşekkür ederim.