Hücre rengine göre

[shopper23]

merhabalar öncelikle,

aşağıda doğru sıralanmış bir sütun var.
aşağı doğru sadece rakmalar var.
1
2
3
4
5
gibi.
istediğim sütundaki hücrelerin renginin birinin kırmızı olduğunda; o sütunu sıralamaya almaması.
örneğin 3. sutun renkli
1
2
renkli
3
4
olacak
teşekür ederim şimdiden yardımlarınız için.
saygılar...

 

[hamitcan]

Örnek dosya ekleyin.

 

[shopper23]

ekde de açıklama yaptım tşk ederm

 

[hamitcan]

Sayfa1'in kod kısmına ekleyin. F4 hücresini seçtiğinizde kod çalışacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$F$4" Then Exit Sub
    For i = [f65536].End(3).Row To 6 Step -1
        If Cells(i, 6).Interior.Color = vbRed Then
        Rows(i).Insert
        Cells(i, 6).Interior.Color = vbRed
        Cells(i + 1, 6).Interior.Color = xlNone
        End If
    Next
End Sub