2 şarta göre işlem

[serkanım]

Merhaba
Verilen bu numarayı liste içinde şarta göre satır silecek.Numarayı bulamaz ise farkli bir şarta göre farklı satırları silebilecek bir makroya ihtiyacım var.Excel içine örnek yazdım.Yardımlarınızı bekliyorum.

 

[suleyman242]

Merhaba
Verilen bu numarayı liste içinde şarta göre satır silecek.Numarayı bulamaz ise farkli bir şarta göre farklı satırları silebilecek bir makroya ihtiyacım var.Excel içine örnek yazdım.Yardımlarınızı bekliyorum.

91 değeri için olmuyor çünkü 2 ci satırda 91 rakamı var
şayet ürün numarasını C2 hücresine
C2=

No==110

şeklinde yazarsan oluyor
ben bir dosya yolluyorum üzerinde değişiklikler de yaparak geliştirebilirsin,
kolay gelsin.

 

[omerceri]

GO seçeneğinde; ilk önce GO SATIR_85 değil şartlara uygn olduğu için GO SATIR_91 geliyor.

Sub bul()
If IsNumeric(Range("c2")) Then
Aranacak = "==" & Range("C2") & " GO SATIR"
ElseIf Range("C2") = "GO" Then
Aranacak = "  " & "GO SATIR"
End If
Set t = Range("a1:a200").Find(what:=Aranacak, searchdirection:=xlNext, MatchCase:=False)
aa = Split(Range("A" & t.Row), "_")
Set s = Range("a1:a200").Find(what:=aa(1) & ";", searchdirection:=xlNext, MatchCase:=False)
Range("A" & t.Row + 1 & ":A" & s.Row - 1).Select
End Sub

Kodu böyle deneyin, uygun bulursanız End sub Satırının üstündeki satırdaki ".Select" i ".Delete Shift:=xlUp" ile değiştirin.