Excel'de negatif değer içeren satırları nasıl silerim?
Diyelim ki aşağıdaki veri aralığınız var ve B sütunundaki değer negatifse ilgili tüm satırları silmek istiyorsunuz. Excel’de bu sorunu çözmek için etkili yöntemler var mı?
 |  |  | Satırları silme, VBA kodu kullanarak negatif sayılarla Satırları silme, Kutools for Excel kullanarak negatif sayılarla |
Satırları silme, VBA kodu kullanarak negatif sayılarla
Aşağıdaki VBA kodu, belirttiğiniz sütunda negatif sayılar varsa ilgili tüm satırları silmenize yardımcı olur. Lütfen aşağıdaki adımları izleyin:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresi’ne yapıştırın.
VBA kodu: Negatif sayılarla Satırları silme
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın. Açılan iletişim kutusunda, negatif sayıları aramak istediğiniz sütun numarasını lütfen seçin. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; negatif sayı içeren satırlar anında silinir.
Satırları silme, Kutools for Excel kullanarak negatif sayılarla
Bu görevi gerçekleştirmek için, Kutools for Excel’in Belirli hücreleri seçin özelliği de size yardımcı olabilir. Bu araçla öncelikle negatif değerlere sahip tüm satırları seçebilir, ardından gerektiği gibi bu satırları silebilirsiniz.
| Kutools for Excel:30 gün boyunca sınırsız olarak deneyebileceğiniz, 300'den fazla kullanışlı Excel eklentisiyle. |
Kutools for Excel'ı yükledikten sonra,Kutools for Excellütfen aşağıdaki adımları izleyin:
1. Silmek istediğiniz negatif sayıları içeren sütunu seçin.
2. Ardından Kutools > Seç > Belirli hücreleri seçin seçeneğine tıklayın (ekran görüntüsüne bakın):
3.Belirli hücreleri seçiniletişim kutusunda,Tüm satırseçeneğini Seçim türünü belirtinbölümünden seçin ve ardından Küçüktürseçeneğini Türü belirtinlistesinden seçip kriterin yanındaki metin kutusuna 0girin, ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; negatif sayı içeren satırlar anında seçilir. Daha sonra seçili satırları gerektiği gibi silmek için Giriş > Sil > Çalışma Sayfası Satırlarını Sil seçeneğine tıklayın. Ekran görüntülerine bakın:
 | |  |
İpuçları： Seçili satırları silmek için sağ tıklayıp bağlam menüsünden Sil seçeneğini kullanabilirsiniz.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar