Fill Colour

[jthomas24]

Hello I am looking to create a button on my worksheet, then when it is clicked i want it to prompt to ask what cell to colour then to show the colour palette to choose the interior colour

This is all i have so far

Sub MyColors()     ' brings up the colors dialog
    Application.Dialogs.Item(xlDialogColorPalette).Show
    
End Sub

Thanks

 

[gruntingmonkey]

Is it a single cell or a group of cells? You need to define this before running this code:

Sub ColorPaletteDialogBox()
Dim lcolor As Long
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
  'user pressed OK
  lcolor = ActiveWorkbook.Colors(10)
  ActiveCell.Interior.Color = lcolor
Else
  'user pressed Cancel
End If
End Sub

 

[gruntingmonkey]

Is it a single cell or a group of cells? You need to define this before running this code:

Sub ColorPaletteDialogBox()
Dim lcolor As Long
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
  'user pressed OK
  lcolor = ActiveWorkbook.Colors(10)
  ActiveCell.Interior.Color = lcolor
Else
  'user pressed Cancel
End If
End Sub