Excel - Atribuir Macro a todas as células destacadas amarelas

Questão

Olá, estou atualmente em apuros ... Espero que todos os mestres possam dar uma mão a este noob VBA ...

Agora eu escrevi uma macro para copiar toda a fórmula sem reter o valor nas células ativas e gostaria de aplicar essa macro a todas as células amarelas destacadas amarelas na planilha eletrônica .... Como fazer isso ???

meu código atual é apenas

(Eu ainda não consigo pensar o que colocar para fazer apenas células destacadas amarelas para conter essa macro)

 Sub Copy_Formulas_Only () Dim row Como única linha = ActiveCell.row Selection.EntireRow.Insert Linhas (linha - 1) .Copar linhas (linha) .Selecionar On Error Continuar Próxima seleção.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error Ir para 0 Application.CutCopyMode = False End Sub

Solução

Ele será acionado, conforme você seleciona o intervalo de células. Mas eu acho que você sabe melhor o que você precisa fazer.

 Private Sub Worksheet_SelectionChange (PorVal Target como Range) Application.EnableEvents = False 'Se Target.Address = "TODAS AS CÉLULAS AMARELAS NA FOLHA-TAREFA" Então para cada CELL no alvo If (CELL.Interior.Color = 65535) Então Dim row As Single row = ActiveCell.row Selection.EntireRow.Insert Linhas (linha - 1) .Copiar linhas (linha) .Selecionar On Error Resume Próxima seleção.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = True On Error GoTo 0 End Se Próximo Application.CutCopyMode = False End Sub