assign Macro to all yellow highlighted cells Solved/Closed

Question

Hello, I am in currently in a pickle ... I hope all the masters could lend a hand to this VBA noob... 
Right now i wrote a macro to copy all formula without retaining the value on the active cells and i would like to apply this macro to all yellow highlighted yellow cells in the spreadsheet .... How to do that ??? 

my current code is just 
(I still cant think what to put to make only yellow highlighted cells to contain this macro)


Sub Copy_Formulas_Only()
  Dim row As Single
    row = ActiveCell.row
    Selection.EntireRow.Insert
    Rows(row - 1).Copy
    Rows(row).Select
   On Error Resume Next
    Selection.PasteSpecial Paste:=xlPasteFormulas
    Selection.SpecialCells(xlCellTypeConstants).ClearContents
   On Error GoTo 0
    Application.CutCopyMode = False
End Sub

Thanks

rizvisa1 · Answer

are you saying that even though you want to copy the row but in the row you want only to copy those cells that were colored yellow ?

Albylo · Answer

NO i want to assign the code above to "ALL YELLOW HIGHLIGHTED CELL IN THE WORKSHEET" 
i know roughly that i need to start with something like this ..... 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "ALL THE YELLOW CELL IN THE WORKSHEET" Then 

Dim row As Single 
row = ActiveCell.row 
Selection.EntireRow.Insert 
Rows(row - 1).Copy 
Rows(row).Select 
On Error Resume Next 
Selection.PasteSpecial Paste:=xlPasteFormulas 
Selection.SpecialCells(xlCellTypeConstants).ClearContents 
On Error GoTo 0 
Application.CutCopyMode = False 
End Sub 

I am also aware that this will slow down my worksheet abit .. and i just want to see how much slower it going make my work.... 
all help will be great appreciated ... thanks for replying risvisa1

Assign Macro to all yellow highlighted cells

2 responses

Similar discussions

Subscribe To Our Newsletter!