Excel - Atribuiți macro pentru toate celulele galben evidențiate

Problema

Buna, eu sunt in prezent in muratura ... Sper ca toti maestrii ar putea da o mina acestei VBA noob ...

Chiar acum am scris o macrocomanda pentru a copia toate formulele fără a păstra valoarea pe celulele active și aș dori să aplice această macrocomanda la toate celulele galbene evidențiate în foaia de calcul .... Cum să faci asta ???

codul meu actual este doar

(Eu încă nu pot gândi ce să punem pentru a face numai celule galben evidențiate să conțină această macrocomandă)

 Sub Copy_Formulas_Only () Șir de rând ca rând unic = ActiveCell.row Selection.EntireRow.Insert Rows (rând - 1) .Copii rânduri (rând) .Selectați pe Eroare Reluați Următorul Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents la eroare GoTo 0 Application.CutCopyMode = False End Sub

Soluţie

Acesta va fi declanșat, pe măsură ce selectați intervalul celulei. Dar cred că știi mai bine ce trebuie să faci.

 Sub-Sub-Fișa de Lucru Selecție_SelecțieChange (ByVal Țintă ca Interval) Application.EnableEvents = False 'Dacă Target.Address = "TOATE CELULUL GALBEN ÎN LUCRĂTOR" Atunci Pentru Fiecare Celule în Țintă Dacă (CELL.Interior.Color = 65535) row = ActiveCell.row Selection.EntireRow.Insert Rows (rândul - 1) .Copii Rows (rând) .Select On Error Reluați Următorul Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 Sfârșit Dacă următoarea Application.CutCopyMode = False End Sub