Excel - Dodjela makronaredbe svim žutim označenim ćelijama

Problem

Pozdrav, ja sam trenutno u krastavac ... Nadam se da svi majstori mogli posuditi ruku na ovaj VBA noob ...

Upravo sada sam napisao makronaredbu za kopiranje svih formula bez zadržavanja vrijednosti na aktivnim stanicama i želio bih primijeniti ovaj makro na sve žute označene žute ćelije u proračunskoj tablici .... Kako to učiniti ???

moj trenutni kôd je pravedan

(Ja još uvijek ne mogu pomisliti što da stavim kako bi samo označene ćelije žute boje sadržavale ovaj makro)

 Sub Copy_Formulas_Only () Dim red Kao jedan redak = ActiveCell.row Selection.EntireRow.Insert Rows (red - 1) .Kopiranje redaka (red) .Odaberi na pogrešku Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents na pogrešci GoTo 0 Application.CutCopyMode = Subtitle na pogrešan kraj

Riješenje

On će se pokrenuti dok odabirete raspon ćelije. Ali pretpostavljam da bolje znate što trebate učiniti.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'Ako Target.Address = "SVA ŽUTA STANICA NA RADIONICI", onda za svaku CELL u ciljnoj Ako (CELL.Interior.Color = 65535) Zatim Dim red Kao Single row = ActiveCell.row Selection.EntireRow.Insert Rows (row - 1) .Copy Redovi (redak) .Odaberi na pogrešku Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = Istina pogreške GoTo 0 Završi ako Sljedeća Application.CutCopyMode = Subtitle na pogrešan kraj