App para cambiar el color del cielo

MsgBox CallByName( ActiveCell.Interior, Colorindex , VbGet) End Sub. Since I would like to make this method a bit more general, I would like to just pass the . ColorIndex = xlAutomatic End With With Selection. Here we learn the Concept of Active cell to find the address of a cell and also we learned Parameters of Active Cell in Excel VBA.

Activate Call Fill_Color End Sub Function Fill_Color() Dim i As Integer For i = To With Selection. After:= ActiveCell , LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByColumns,. A very good reference for colors in the color palette and how to color things in.

Press Enter and see the Immediate Window display the palette index number of the colour you chose (e.g. = re = blue). Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Cells.