Procurar e Pintar

Exercício Básico

Enunciado

Uma loja de temperos estava realizando uma campanha para divulgação de sua nova unidade. Deste modo, alguns produtos desta loja foram colocados a venda ao preço de R$1 (um real) para atrair o público. Na planilha do exercício, você deverá localizar os itens que estavam em promoção, já que apenas estes eram vendidos a um real. Feito isso, altere as cores de preenchimento das células com os nomes e o preço dos itens para verde. Além disso, escreva "Esgotado" ao lado destes itens na célula respectiva da coluna "C".

Conceitos Sugeridos:

• Dim - Declara variáveis.
• For Next - Um ou dois loops podem ser usados para resolver este exercício.
• If Then Else - Executa uma instrução caso uma condição seja atendida, e outra instrução caso a condição não seja atendida.
• Offset - Desloca a posição do intervalo.
• Resize - Redimensiona o intervalo especificado.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Condicione o loop a encontrar o valor desejado e depois ajuste o Range.

    Sub Resolucao()

    Dim UltLinha As Long
    Dim ValCasa As Long
    Dim i As Integer

    UltLinha = Cells(Rows.Count, 2).End(xlUp).Row

    For i = 3 To UltLinha
    ValCasa = Cells(i, 2).Value
        If ValCasa = 1 Then
        Cells(i, 2).Offset(, 1).Value = "Esgotado"
        Cells(i, 1).Resize(, 2).Interior.Color = RGB(140, 198, 63)
        End If
    Next i

    End Sub

• Exercício anterior
• Próximo exercício

• reportar erro/feedback

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

© 2024 SuperExcelVBA | SOBRE