Birden fazla ürün seçme

[hoppacuppa]

Arkadaşlar elimde aşağıdaki kod var. Bu kod sayesinde "ÜRÜN1" geçmeyen tüm satırları siliyor. Buraya kadar bir sorun yok. Ben hem "ÜRÜN1" hem "ÜRÜN2" geçiyorsa diğer satırı da sildirmemek istiyorum. Bunu nasıl yapabilirim.

Sub SartliSil()

Dim i As Long

Application.ScreenUpdating = False

For i = Cells(Rows.Count, "G").End(xlUp).Row To 2 Step -1
If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" Then
Rows(i).Delete Shift:=xlUp
End If
Next i

Application.ScreenUpdating = True

End Sub

 

[Erdem Akdemir]

Örnek dosyanızı görmek lazım.

 

[hoppacuppa]

Örnek dosyanızı görmek lazım.

Bu dosya üzerinde deniyorum. Yardım edebilirseniz çok sevinirim
http://dosya.co/4u894l93rpuu/order_item_shipments_(12).xls.html

 

[hoppacuppa]

Yapmak istediğim şey şu alttaki koda ürün2 yi de dahil etmek
Çalışan: If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" Then
Yapamadığım: If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" AND "*ÜRÜN2*" Then

yani AND yerine hangi operatörü koyacağım onu bilemiyorum

 

[yanginci34]

Aşağıdaki gibi deneyin

If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" AND UCase(Cells(i, "G")) Like "*ÜRÜN2*" Then

 

[hoppacuppa]

iki ürün hariç tüm ürünlerin satırının silinmesini istiyorum, OR ile olmuyor maalesef

 

[yanginci34]

5 nolu mesajı güncelledim denermisiniz.

 

[hoppacuppa]

Denedim hocam ÜRÜN1 'i de silmiyor bu sefer (

 

[yanginci34]

Birde böyle denermisiniz.
If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" Or UCase(Cells(i, "G")) Like "*ÜRÜN2*" Then

 

[hoppacuppa]

Birde böyle denermisiniz.
If Not UCase(Cells(i, "G")) Like "*ÜRÜN1*" Or UCase(Cells(i, "G")) Like "*ÜRÜN2*" Then

Başka şekilde çözdüm hocam sağolasın yinede