Eşleşen_verilerin_topluca_silinmesi

[baydeniro]

Merhaba arkadaşlar,

DATA sayfasındaki A1:I100 alanındaki veriler arasında bulunan KAYIT sayfası D sütunundaki verilerin silinmesi ve boşalan hücrelerin yukarı kaydırılması makro ile topluca yapılması mümkün mü !

Örnek dosya :
http://s4.dosya.tc/server5/2ebn8n/__LISTEDEKI_VERILERI_SIL.xls.html

 

[YUSUF44]

Aşağıdaki makroyu kullanabilirsiniz:

Sub meyve()
Set s1 = Sheets("DATA")
Set s2 = Sheets("KAYIT")
son = s2.Cells(Rows.Count, "D").End(3).Row
sonsütun = s1.Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To sonsütun Step 2
    sonsatır = s1.Cells(Rows.Count, i).End(3).Row
    For j = sonsatır To 1 Step -1
        s1.Cells(j, i).Select
        If s1.Cells(j, i) <> "" Then
            If WorksheetFunction.CountIf(s2.Range("D1:D" & son), s1.Cells(j, i)) > 0 Then
                s1.Cells(j, i).Delete Shift:=xlUp
            End If
        End If
    Next
Next


End Sub

 

[baydeniro]

YUSUF44 üstadım çok teşekkür ediyorum, tam olması gerektiği gibi bir kod olmuş. Mükemmel sonuç veriyor. Eliniz dert görmesin, sağlıcakla kalın.