Çözüldü Makro Koşullu Satır Silme

ramazankaya89 · Dün, 18:47

Merhabalar,

ekteki dosyamda ürün kodu 316-320-916 dısındaki tüm satırların silinmesi için hangi kodu kullanabilirim

tesekkurler

Alpi · Dün, 19:54

Merhaba.

Aşağıdaki kodu deneyin.
HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

mozuer · Dün, 19:55

Dener misiniz....

KarıncaZ · Dün, 20:12

Merhaba.
Aşağıdaki kodları deneye bilirsiniz.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Alicimri · Dün, 20:16

En kısası

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Alpi · Dün, 20:31

Alicimri' Alıntı:
En kısası

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Harika çözüm.
T1 yerine To 2 olmalı aksi halde başlıkları da siliyor.

Alpi · Dün, 20:32

Ancak burada örneğin 632 kodlu ürün olsa onu da silmeyecektir. Kodlar arasına virgül yada boşluk koyulabilir.
"316,320,916"

ramazankaya89 · Dün, 20:39

Emeğinize sağlık sorunum çözüldü çok sagolun

Alicimri · Dün, 20:46

Alpi' Alıntı:
Ancak burada örneğin 632 kodlu ürün olsa onu da silmeyecektir. Kodlar arasına virgül yada boşluk koyulabilir.
"316,320,916"

Sub sil()
For i = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
If InStr("-316-320-916-",Cells(i, 1) = 0 Then
Rows(i).Delete
End If
Next
End Sub