Sadece Sayı Olan Hücreleri silinmesi hk.

[northcyprus]

Sayın hocalarım ben listview de mause ile seçip silme butonu vasıtası ile bu işlemi gerçekleştiriyorum ve yapmak istedigim şey listview de tıkladıgım satırın a sütünü 1 e eşitse silme işlemi gerçekleşsin. aşşağıdaki kod böyle çalışıyor fakat istediğim şey kırmızı renkli bölgede = 1 yazarsam sadece 1 leri siliyor = 2 yazarsam sadece 2 leri siliyor yani ben buraya ne yazmam gerekiyor ki butona tıkladıgımda Sadece SAYI oldugunda yani 1,2,3,4,5,6,7,8,9,10, v.s... silinsin yazı veya boş oldugunda ise BURADA İPTAL EDİLECEK ÜRÜN BULUNAMADI... mesajını versin istiyorum


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

Sheets("SPARİŞ AL").Select
Range("A1").Select
End Sub

 

[Orion1]

Kırmızı satırı aşağıdaki ile değiştiriniz.

If IsNumeric(Sheets("ADİSYONMASA1").Cells(Silinecek_Satir, "A")) Then

 

[northcyprus]

Sayın hocam elinize sağlık teşekür ediyorum..