Excel - Tilordne makro til alle gule markerte celler

Utgave

Hei, jeg er inne i en pickle ... Jeg håper alle herrer kan låne en hånd til denne VBA noob ...

Akkurat nå skrev jeg en makro for å kopiere alle formler uten å beholde verdien på de aktive cellene, og jeg vil gjerne bruke denne makroen til alle gule markerte gule celler i regnearket .... Hvordan gjør du det ??

Min nåværende kode er bare

(Jeg kan fortsatt ikke tenke hva jeg skal sette for å bare lage gule markerte celler for å inneholde denne makroen)

 Sub Copy_Formulas_Only () Dim row Som Single row = ActiveCell.row Selection.EntireRow.Insert Rows (rad - 1) .Copy Rows (rad) .Velg på feil Fortsett neste valg.PasteSpecial Lim: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Løsning

Det vil bli utløst, da du velger rekkevidde av celle. Men jeg antar du vet bedre hva du trenger å gjøre.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'Hvis Target.Address = "ALL DEN GULLE CELLEN I VERKENHETEN" Deretter For Hver CELL I Mål Hvis (CELL.Interior.Color = 65535) Så Dim Rå Som Enkelt row = ActiveCell.row Selection.EntireRow.Insert Rows (rad - 1) .Copy Rows (rad) .Velg på feil Fortsett neste valg.PasteSpecial Lim inn: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error Gå til 0 Slutt hvis neste Application.CutCopyMode = False End Sub