Belirli hücrelerin içeriğini tek butonla silme

[hezarpare]

Merhaba üstadlar ekte paylaştığım çalışma kitabına bir buton koymak istiyorum. Butona tıkladığım zaman yeşil renkli hücrelerin hepsinin içeriğini silecek, özellikle kırmızı hücreleri ve diğer hücreleri silmeyecek. Bunu nasıl yapabilirim? Yardımlarınız için şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Sub yesilsil()
Dim alan As Range
    For Each alan In Range("a1:al44")
        If alan.Font.ColorIndex = 43 Then
            alan = Empty
        End If
    Next
End Sub

 

[hezarpare]

Sub yesilsil()
Dim alan As Range
    For Each alan In Range("a1:al44")
        If alan.Font.ColorIndex = 43 Then
            alan = Empty
        End If
    Next
End Sub

Hocam ya size zahmet kitap üzerinde yaparmısınız? 2010'da buton filan ekleemiyorum. Bide hücrelerin rengini sonra siyaha çeviricem.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub yesilsil()
Dim alan As Range
    For Each alan In Range("a1:al44")
        If alan.Font.ColorIndex = 43 Then
            alan.Font.ColorIndex = 0
            alan = Empty
        End If
    Next
End Sub

 

[hezarpare]

üstad ellerin dert görmesin çok teşekkür ederim de ben yesil rengi hangilerinin silineceği açıkca belli olsun diye yaptım o yazıların rengi siyah olacak. bunun üstesinden nasıl gelebilrim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub yesilsil()
Dim alan As Range
[r10] = Empty
[r14] = Empty
    For Each alan In Range("a20:aa44")
        If Not alan.HasFormula Then
            alan = Empty
        End If
    Next
End Sub

 

[hezarpare]

Üstad her şey için çok teşekkürler. Allah razı olsun...