Veriye göre satır ve sütun silme

[ipkisiyamaksosis]

Filtre koyularak yapılabilecek birşey olduğunu biliyorum benim merak ettiğim makro ile nasıl yapıldığıydı. Yinede cevap verdiğiniz için teşekkür ederim. Diğer sorumun cevabı varsa onuda merakla bekliyorum.

Teşekkür ederim.

 

[ipkisiyamaksosis]

:yardim: Merhabalar,

İstediğimi bir nebze olsun yaptım :hihoho: , makro düzgün çalışıyor ama son veriyi tamamen siliyor.

Sub SİL()
For x = 2 To [B65536].End(3).Row
If Cells(x, 2) = 365 Then Range("D" & x & "," & "E" & x & "," & "F" & x & "," & "G" & x & "," & "H" & x & "," & "I" & x & "," & "J" & x & "," & "M" & x).Select
Selection.Delete Shift:=xlToLeft
Next
End Sub

Ekteki dosyada görüldüğü gibi...

Son olarak diğer kategoriler içinde silinmesi gereken farklı farklı hücreler var yukarıdaki mantıkta mesela 349 için 362 için nasıl makroyu devam ettirebilirim. :???:

Yardımlarınızı bekliyorum.