Vba ile satır silme

[acetinnster]

Arkadaşlar dosya içeriğinde belirttim.
Konu hakkında yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

 

[halit3]

kod

Sub Sil()
Application.ScreenUpdating = False
son = Cells(Rows.Count, "c").End(3).Row

For k = son To 2 Step -1
If Cells(k, "c") <> "MİLANO CEVİZ 18" Then
Rows(k).Delete Shift:=xlUp
End If
Next
MsgBox "işlem tamam"
Application.ScreenUpdating = True

End Sub

 

[acetinnster]

Sayın Halit3 hocam yardımınız için çok sağolun teşekkürler ancak benim atladığım bir husus var.
Dosya ismi değişkenlik gösterecek yani farklı isimler de olabilir yani if bloğunda
MİLANO CEVİZ 18 yerine dosya ismi diye nasıl değiştirebiliriz.

 

[halit3]

Anlayamadım dosya simi derken neyi söylemek istiyorsunuz birazcık açarmısınız
Sizin dosyanızda C sutunundaki değerlerden seçtiğiniz dışındakiler siliniyor.
c sutununda birden çok kelime arayıp onumu silmek istiyorsunuz.

 

[acetinnster]

Hocam ilginiz için tekrar teşekkürler
Anlatmak isteyip te anlatmayı başaramadığım konu mesela c sütununda aşağıda belirttiğim ürünler var
HAM MDF 12
MİLANO CEVİZ 18
MİLANO CEVİZ 30
MİLANO CEVİZ 8
MORGAN KİRAZ 18
MORGAN KİRAZ 18
MORGAN KİRAZ 30

Bunlardan herhangi biri dosya ismi olabilir.
Yani dosya ismi ne ise mutlaka c sütununda da yer alacaktır.
Dosya ismi aşağıdakilerden herhangi biri ise o satırlar kalacak diğer satırlar silinecek.

 

[halit3]

Merhaba tercihler artacaksa bunun için ya yeni bir sayfayı referans olarak kullanmak gerek veya userform kullanmak gerek diye düşünüyorum.

 

[halit3]

Ekli dosyayı irdeleyiniz.
silinmeyecek satırlara ait kelimeyi data sayfasında A sutünunda 2. satırdan başlamak üzere yazınız.
sonra komut düğmesini tıklayınız.