Excel'de arka plan rengine göre satırları nasıl silerim?
Arka plan rengi temel alınarak tüm satırı nasıl silebilirsiniz? Bu örnekte, aşağıdaki ekran görüntüsünde gösterildiği gibi mavi arka plan rengine sahip hücreler içeren tüm satırları silmem gerekiyor. Bu makaleyle Excel’de bu görevi yerine getirmenize yardımcı olacak bazı kodlara ulaşacaksınız.
Her hücreye göre belirli Arka Plan Rengi içeren Satırları silme
Bir sütuna göre belirli Arka Plan Rengi içeren Satırları silme
Her hücreye göre belirli Arka Plan Rengi içeren Satırları silme
Rastgele bazı hücre renkleriyle doldurulmuş bir veri aralığınız varsa ve aşağıdaki ekran görüntüsünde gösterildiği gibi hücre rengi mavi olan satırları silmeniz gerekiyorsa:
Bu tür satırları silmek için aşağıdaki VBA kodunu kullanabilirsiniz, lütfen şu 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ıp aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Belirli Doldurma Rengi içeren hücrelere sahip satırları Satırları silme:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Ardından F5 tuşuna basarak bu kodu çalıştırın; silmek istediğiniz Doldurma Rengi’ne sahip bir hücreyi seçmenizi hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Sonra Tamam düğmesine tıklayın; belirli bir Doldurma Rengi'ne sahip hücreler içeren tüm satırlar silinmiş olacaktır.
Bir sütuna göre belirli Arka Plan Rengi içeren Satırları silme
Yalnızca belirli bir sütuna göre, örneğin A sütununda mavi renk içeren satırları silerek aşağıdaki ekran görüntüsünü elde etmek istiyorsanız, bunu gerçekleştirmenize yardımcı olacak başka bir VBA kodu da mevcuttur.
1.ALT + F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu ModülPenceresine yapıştırın.
VBA kodu: Belirli Doldurma Rengi içeren hücrelere sahip bir sütuna göre Satırları silme:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Not: Yukarıdaki kodda, A2:A21, satırların silinmesi için temel alınacak belirli Doldurma Rengi’ni içeren sütundur; 20 ifadesindeki ColorIndex = 20 satırındaki sayı ise satırların silinmesinde temel alınmak istenen Renk Kodu’dur. Bunları ihtiyacınıza göre değiştirebilirsiniz.
3. Ardından F5 tuşuna basarak bu kodu çalıştırın; A sütununda mavi renk içeren tüm satırlar tek seferde silinecektir.
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