Vba : Insert Number Into Only No Color Cell Background

[Susanto3311]

hi all..

i,m looking for vba code to input/insert number from cell M13 till M90 into only no coloring cell but skip/pass certainty cell (coloring cell). My background cell are multiple colors
With step like this:
- select your range..
- entry/input your number ..

here attachment picture
i hope someone would help me solution.
.susant

[HansV]

Select the range before running the following macro:

Code: Select all

Sub EnterUncolored()
    Dim v As Variant
    Dim c As Range
    v = InputBox("Which value do you want to enter?")
    If v = "" Then Exit Sub
    Application.ScreenUpdating = False
    For Each c In Selection
        If c.Interior.ColorIndex = xlColorIndexNone Then
            c.Value = v
        End If
    Next c
    Application.ScreenUpdating = True
End Sub

[Susanto3311]

hi Hans, thank you very much..Working well.