Esse código destacará todas as células da seleção que possuírem um valor único.
Conheça e faça download de uma planilha pronta do Excel que calcula o TEMPO e a DISTÂNCIA de viagem usando a API do Google Maps
Para destacar todas as células com comentários, use este código.
Sub highlightUniqueValues()
Dim rng As Range
Set rng = Selection
rng.FormatConditions.Delete
Dim uv As UniqueValues
Set uv = rng.FormatConditions.AddUniqueValues
Let uv.DupeUnique = xlUnique
Let uv.Interior.Color = vbGreenEnd Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário