Renkli hücreler

[beyaz34]

Renkli hücreleri silmek istiyorum yalnızca sarı renk olanları...

 

[Ömer]

Merhaba,

Bu şekilde deneyin..

Option Explicit
 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Long
    For i =[COLOR=red] 100[/COLOR] To 2 Step -1
        If Cells(i, "a").Interior.ColorIndex = 6 Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
Application.ScreenUpdating = True
End Sub

 

[beyaz34]

ömer hocam kalanları topluyor toplamasını iştemiyorum diğer bilgileri bozuyur...
tesekkürler.

 

[Ömer]

ömer hocam kalanları topluyor toplamasını iştemiyorum diğer bilgileri bozuyur...
tesekkürler.

Hücre içeriği silinecekse,

Rows(i).Delete Shift:=xlUp

yerine aşağıdaki satırı kullanın.

Rows(i).ClearContents

Eğer A sütununda veri varsa,

100 yerine,

[A65536].End(3).Row

yazarsanız daha doğru olur..

.

 

[beyaz34]

ömer hoçam kusura bakma beceremedim satırın tamamını silmiyor.

 

[Ömer]

Koşula uyan satırların sadece içeriğini siler.

Option Explicit
 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Long, son As Long
son = [A65536].End(3).Row
    For i = son To 2 Step -1
        If Cells(i, "a").Interior.ColorIndex = 6 Then
            [COLOR=red]Rows(i).ClearContents[/COLOR]
        End If
    Next i
Application.ScreenUpdating = True
End Sub

Kod bu haliyle IV sütununa kadar olan satırı siler. Sadece A ya denk gelen silinecekse kodu değiştirmek gerekir. Tüm satır dediğiniz için bu şekilde düzenledim.

Eğer sadece hücre silinecekse kırmızı satırın yerine;

Range("A" & i).ClearContents

Bu şekilde kullanırsınız..

.

 

[beyaz34]

tesekkürler