Hücre rengine göre değer atama

[serqet]

Merhaba ben şu konuda yardımlarınızı isticem örneğin a1:c100 arasındaki hücrelerden sarı renkte olanların hücre değeri 1 olsun, kırmızı olanlar 2 olsun gibi yani ben butona bastıgımda sarı renkteki boş hücre 1 olacak kırmızılarda 2.. tabi renk olarka değil renk kodlarıyla yapılması gerekiyor sanırım acaba böyle bir makro varmı? yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub RENGE_GÖRE_DEĞER_YAZ()
    Dim HÜCRE As Range
 
    For Each HÜCRE In Range("A1:C100")
        If HÜCRE.Value = "" Then
            Select Case HÜCRE.Interior.ColorIndex
                Case Is = 6 [COLOR=red]'Sarı renk kontrolü[/COLOR]
                HÜCRE.Value = 1
                Case Is = 3 [COLOR=red]'Kırmızı renk kontrolü[/COLOR]
                HÜCRE.Value = 2
            End Select
        End If
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[serqet]

teşekkür ederim çok geç oldu ama