- Katılım
- 22 Mart 2005
- Mesajlar
- 847
- Excel Vers. ve Dili
- Excel-2003 TR.
- Altın Üyelik Bitiş Tarihi
- 29-06-2023
Arkadaşlar merhaba;
Aşağıdaki kodlar ile dolgu rengi siyah olan satırları sildirebiliyorum.
Peki satıra dokunmadan dolgu rengi siyah olan hücrelerin içeriğini sildirebilirmiyim?
(Kullandığım tablolarda dolgu rengi siyah olanların içeriğinde bazen 0 (sıfırlar) olabiliyor.
Bunları silmek istiyorum. Her tabloda yerleri ayni değil)
Sub renklisatirsil()
Dim hucre, a As Integer
a = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For hucre = a To 1 Step -1
If Cells(hucre, 1).Interior.ColorIndex = 1 Then
Cells(hucre, 1).EntireRow.Delete
End If
Next
End Sub
Aşağıdaki kodlar ile dolgu rengi siyah olan satırları sildirebiliyorum.
Peki satıra dokunmadan dolgu rengi siyah olan hücrelerin içeriğini sildirebilirmiyim?
(Kullandığım tablolarda dolgu rengi siyah olanların içeriğinde bazen 0 (sıfırlar) olabiliyor.
Bunları silmek istiyorum. Her tabloda yerleri ayni değil)
Sub renklisatirsil()
Dim hucre, a As Integer
a = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For hucre = a To 1 Step -1
If Cells(hucre, 1).Interior.ColorIndex = 1 Then
Cells(hucre, 1).EntireRow.Delete
End If
Next
End Sub