Fill Color
 

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

Fill Color
 

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)

"pwz" wrote in message
...
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

Fill Color
 

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


On Jun 24, 10:12*am, "pwz" wrote:
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

Fill Color
 

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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

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" <gorddibbATshawDOTca wrote in message
...
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

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


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
.. .
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

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


--
HTH

Bob

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

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
. ..
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

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.


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
. ..
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

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



"Bob Phillips" wrote in message
...
Application.OnKey "^+K","GetColorindex"


--
HTH

Bob

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

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
...
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

Function works fine.

--
HTH

Bob

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

"pwz" wrote in message
...
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.


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
...
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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

Fill Color
 

Thanks Bob.


Gord

On Tue, 24 Jun 2008 17:20:22 +0100, "Bob Phillips"
wrote:

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

Fill Color
 

OK

I mis-read the original posting.


Gord

On Wed, 25 Jun 2008 00:26:21 +0800, "pwz" wrote:

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.


"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
How will you call Bob's function with a shortcut key?


Gord Dibben MS Excel MVP

On Tue, 24 Jun 2008 23:23:06 +0800, "pwz" wrote:

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" <gorddibbATshawDOTca wrote in message
...
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


On Tue, 24 Jun 2008 22:12:49 +0800, "pwz" wrote:

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