Região Atual

Exercício Básico

Enunciado

Crie um botão que identifique uma região com dados preenchidos, a partir de uma célula selecionada, e preencha os valores que estiverem faltando com a informação da linha imediatamente acima.

Conceitos Sugeridos:

• 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.
• CurrentRegion - Retorna um range que representa uma região. Junto a esta propriedade, recomendamos a utilização do método SpecialCells com o parâmetro xlCellTypeBlanks.
• FormulaR1C1 - Implementação de fórmulas com a notação relativa R1C1 (Row, Colunm).
• ActiveCell - Faz referência a célula ativa da planilha.
• Select e Selection - Seleciona e referência ao intervalo selecionado.

Nota: A condicional If Then foi utilizada no gabarito apenas para evitar um erro que ocorre quando a macro considera o enunciado do problema como parte da região atual. Perceba que para corrigir este erro foi utilizado o método Intersect, visto no exercício Intersecção.

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

Dica: Referencie as células em branco com a FormulaR1C1.

    Sub Resolucao()

    If Intersect(ActiveCell, Range("C2:C24,F2:F24,A25:Q26,I2:Q24,A1:Q1")) Is Nothing Then
    'Esta condição if apenas assegura que a área selecionada seja de interesse, evitando erros com o enunciado do problema

        ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        ActiveCell.CurrentRegion.Select

    End If

    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