Koşullu ürün iptali

[northcyprus]

Sayın hocalarım aşşağıdaki formülde YES e basıldıgı zaman ADİSYONMASA1 Sayfasındaki silinecek satırın A hücresinde SAYI varsa satır silinsin eger sayı yoksa satır silinmesin ve "BURAYI SİLEMEZSİN" diye uyarı vermesini istiyorum bir türlü yapamadım . Yardımlarınız için şimdiden teşekür ediyorum

Private Sub İPTAL_Click()
If ADİSYON1.ListIndex >= 0 Then
cevap = MsgBox("Ürün İPTAL Edilecek ... Emin misiniz ?", vbYesNo, "İPTAL ONAYI")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = ADİSYON1.ListIndex + 4
Sheets("ADİSYONMASA1").Rows(Silinecek_Satir).Delete

End If
End If

End Sub

 

[northcyprus]

Sayın hocalarım 1 olunca oluyor fakat 2,3,4,5 ...... yani 30 a kadar silmesini istiyorum fakat yapamadom yardımlarınızı bekliyorum

Private Sub İPTAL_Click()
If ADİSYON1.ListIndex >= 0 Then
cevap = MsgBox("Ürün İPTAL Edilecek ... Emin misiniz ?", vbYesNo, "İPTAL ONAYI")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = ADİSYON1.ListIndex + 4
If Sheets("ADİSYONMASA1").Rows(Silinecek_Satir).Range("A1") = 1 Then

Sheets("ADİSYONMASA1").Rows(Silinecek_Satir).Delete
Else
MsgBox ("BURADA İPTAL EDİLECEK ÜRÜN BULUNAMADI...")
End If
End If

End If
End Sub

 

[YUSUF44]

If Sheets("ADİSYONMASA1").Rows(Silinecek_Satir).Range ("A1") > 0 Then

olarak dener misiniz? 0'dan büyükse silmesi gerekir.

 

[northcyprus]

cevabınız için teşekürler fakat sayıya eşit olması gerekiyordu.
ADİSYONMASA1 Sayfasındaki silinecek satırın A hücresinde SAYI varsa satır silinsin eger sayı yoksa satır silinmesin
istiyordum böyle olunca herşeyi siliyor