Eksi içeren satırların silinmesi

[oLumeleqi]

Excel içerisinde 6 hane olarak sayılar mevcut yaklaşık 70 80 bin civarı bunların içerisinde
örn: 1,2,3,5,6,-4 gibi satırlar var eksi sayı içeren.Eksi sayı içeren tüm satırları nasıl silebiliriz excel in kendi özelligi varmıdır diye kurcaladım biraz 6 haneli oldugu için silemedi nasıl yapabiliriz yardımcı olabilirmisiniz.

 

[Erdem Akdemir]

dosya eklersiniz

arkadaşlar daha rahat yardımcı olabilirler

 

[drejan62]

Hangi Sayfada ve hangi sütunda bu - içeren değerler

 

[oLumeleqi]

Dosya ekte arkadaşlar

 

[Necdet]

Merhaba,

Hem fonksiyonlarla biraz dolaylı, hemde makro ile doğrudan silmek olası.

Fonksiyonla B sütuna

=EHATALIYSA(BUL("-";A2))

fonksiyonla A sütununda"-" geçen hücreler "YANLIŞ" olarak B sütununa yazdırılır. Sonra B sütunu YANLIŞLAR süzdürülür ve satırlar silinir.

Yada Makrolu çözüm isterseniz aşağıdaki kodları kullanabilirsiniz.

Sub SatirSil()
On Error Resume Next
Dim i As Long
Dim j As Integer
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    j = 0
    j = Application.WorksheetFunction.Find("-", Cells(i, "A"))
    If j > 0 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

 

[oLumeleqi]

Çok teşekkür ederim.