Koşullu durumlara göre satir silme (makro)

[mcdba]

Merhaba,

Stok kodu sutununda "12.karekteri 0 olmayan" ve "Turu L olan" satirlarin silinmesi ile ilgili makro kodu konusunda yardiminizi rica ederim.

Saygilarimla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KOŞULLU_SİL()
    For X = [A65536].End(3).Row To 1 Step -1
    If Mid(Cells(X, 1), 12, 1) <> 0 And UCase(Cells(X, 4)) = "L" Then Rows(X).Delete
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[mcdba]

Yardiminiz icin tesekkur ederim. Kod basariyla calisti.