Esta função é usada para procurar uma palavra-chave em uma descrição e retornar um valor correspondente de uma tabela de regras.

📘 Descrição

A FindRule é útil para automatizar a categorização de descrições com base em regras definidas em uma tabela.

• Parâmetros:
  • description: A string onde a palavra-chave será buscada.
  • rulesRange: Intervalo de células contendo as palavras-chave e valores associados.
  • resultColumn: Número da coluna (dentro do intervalo) que contém o valor a ser retornado.

📂 Aplicação

Você pode usar a FindRule para:

• Classificar transações bancárias com base em descrições.
• Mapear palavras-chave para categorias em relatórios.

📋 Exemplo de Tabela de Regras

🛠 Código VBA

Function FindRule(description As String, rulesRange As Range, resultColumn As Integer) As Variant
    Dim data As Variant
    Dim keyword As Variant
    Dim i As Long

    ' Carrega os dados do intervalo em um array
    data = rulesRange.Value

    ' Percorre os dados
    For i = LBound(data, 1) To UBound(data, 1)
        keyword = data(i, 1)
        If InStr(1, description, keyword, vbTextCompare) > 0 Then
            FindRule = data(i, resultColumn)
            Exit Function
        End If
    Next i

    ' Retorna vazio se não encontrar correspondência
    FindRule = Empty
End Function

📜 FindRule Function