Satırları silmek

[26Sinan]

Merhaba
çalıştığım şirkette parça listelerim var.(3000 den fazla satırlık). Sarı ile işaretli olan kısımları (örnek olarak işaretliyi verdim) ve daha fazlasını siliyorum. Amacım sadece kontrol edeceğim kısımların kalması.(3000 satırdan sile sile 250-300 satıra indiriyorum) En sade halini daha sonra çıktı alıyorum ve kontrol edilyorum. örnek olarak bana makro oluşturabilir misiniz acaba? Satıra göre silme değil de içeriğe göre silmenin olması gerekiyor. Excelde mesela 4049730100 var sa o satırı komple silsin.

Teşekkürler

https://hizliresim.com/0oD4UP

 

[Ömer]

Merhaba,

Linki inceler misiniz. #2. mesajdaki deg değerine silmek istediğiniz değerleri başına ve sonuna * ekleyerek yazabilirsiniz.
Eğer dosyanıza uyarlayamazsanız dosyanızı resim olarak değil, küçük bir örnek excel hazırlayıp yapılmasını istediğinizi yazarak ekleyiniz.

Belirli Kelimeleri İçeren Satırı Silme

Merhaba, Elimde çok uzun bir liste var. Ekte bunun kısaltılmışını bulabilirsiniz. Benim istediğim bu listede ampul, flakon, solusyon içeren kelimelerin bulunduğu satırların otomatik olarak silinmesi Varmı bu konuda bana yardımcı olabilecek bir arkadaş? Şimdiden teşekkür ederim.

www.excel.web.tr

.

 

[Seyit Tiken]

Alternatif kodu deneyiniz.

Application.ScreenUpdating = False
For H = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(H, "A").Interior.Color = 65535 Then
Rows(H).Delete
End If
Next
Application.ScreenUpdating = True

 

[26Sinan]

Oldu gibi.. Takıldığım kısım olursa tekrar yardım isterim. Teşekkür ederim ilgi ve alakanız için. Hayırlı günler

 

[26Sinan]

son = Cells(Rows.Count, "A").End(xlUp).Row
deg = Array("*4049730100*", "*4242270300*",
deg = Array("*SPIRAL*", "*BANT*",
Merhaba
Bu deg yazdığımız satıra ben silinmesini istediklerimi bu şekilde yazıyorum ama belli bir seviyede artık yazmıyor.Sanırım sonuna geliyor. Kalın yazdığım gibi altına bu şekilde eklesem bir problem olur mu acaba?

Teşekkürler

 

[Ömer]

Yazarken hata yapmış olabilir misiniz.
Aynı linkteki 5. mesajda yaklaşık 20 değişken tanımlanmış, inceler misiniz.