Fill Color

[pwz]

Any scripts can call out the Fill Color by a customized shortcut key? It
will be excellent if it can be popped up nearby the active cell. Thanks in
advance for any help!

Pat

 

[Bob Phillips]

Function GetColorindex()
Application.Dialogs(xlDialogPatterns).Show
End Function


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Susan]

something like this could be run by a shortcut key........

Sub pwz()

ActiveCell.Offset(0, 1).Interior.Color = vbRed

End sub


this fills the cell one cell to the right from the active
cell............
hope it gets you started.

susan

 

[Gord Dibben]

Assign this to shortcut key.

Sub test()
With ActiveCell
MsgBox .Interior.ColorIndex
End With
End Sub

If you want the value placed in an adjacent cell..............

Sub test()
With ActiveCell
..Offset(0, 1).Value = .Interior.ColorIndex
End With
End Sub


Gord Dibben MS Excel MVP

 

[pwz]

I think that I voiced out my request in an unclear way. Bob's solution is
the nearest one to what I want.

I in fact want to use one cumstomized shortcut key to call out the Fill
Color which originally locates in the Formatting Toolbar.

Thanks to you all!

 

[Gord Dibben]

How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

 

[Bob Phillips]

Application.OnKey "^+K","GetColorindex"


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[pwz]

Dear Gorb,

I changed his solution to a Sub routine and then assigned it to a key. The
pattern is then poped for my selection.

 

[pwz]

Yes, this is also exactly what I'm trying to do, besides assigning the macro
to keys.

 

[Bob Phillips]

Function works fine.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Gord Dibben]

Thanks Bob.


Gord

 

[Gord Dibben]

OK

I mis-read the original posting.


Gord

Dear Gorb,

I changed his solution to a Sub routine and then assigned it to a key. The
pattern is then poped for my selection.