Excel - Priraďte makro všetkým žltým zvýrazneným bunkám

Problém

Dobrý deň, som v súčasnej dobe v náleve ... Dúfam, že všetci majstri mohli požičať ruku tejto VBA noob ...

Práve teraz som napísal makro skopírovať všetky vzorec bez zachovania hodnoty na aktívne bunky a chcel by som použiť toto makro na všetky žlté zvýraznené žlté bunky v tabuľke .... Ako to urobiť ???

môj aktuálny kód je len

(Stále nemôžem premýšľať o tom, ako dať toto makro len žlté zvýraznené bunky)

 Sub Copy_Formulas_Only () Dim riadok ako jeden riadok = ActiveCell.row Selection.EntireRow.Insert riadky (riadok - 1) .Zoradiť riadky (riadok) .Vyberte On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Riešenie

Spustí sa, keď vyberiete rozsah buniek. Ale myslím, že viete lepšie, čo musíte urobiť.

 Private Sub Worksheet_SelectionChange (Cieľový rozsah ByVal ako rozsah) Application.EnableEvents = False 'Ak je Target.Address = "VŠETKO ŽLTÁ BUNDA V PRÁCI" Potom pre každú bunku v cieli Ak (CELL.Interior.Color = 65535) Potom Dim riadok ako jeden row = ActiveCell.row Selection.EntireRow.Insert Rows (riadok - 1) .Zoradiť riadky (riadok) .Vyberte On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 End If Next Application.CutCopyMode = False End Sub