como fazer uma automação no excel, onde eu tenho uma página pricinpal (glossário)onde eu tenho de adicionar informações em 3 colunas como (Americas - R & D Processes, Methods & Tools (PMT), a segunda coluna (Significado) e a terceira coluna (O que é o processo?), porém quando for adicionar informações gostaria que aparece nas outras abas como (EngApl - PMO), Vendas, Desenvolvimento de negócios e Logística, me de um macro para isso, porém eu quero isso, todas as vezes que algumas informação for adicionada no glossário e se for realmente para outras abas caso pertence

Question

como fazer uma automação no excel, onde eu tenho uma página pricinpal (glossário)onde eu tenho de adicionar informações em 3 colunas como (Americas - R & D Processes, Methods & Tools (PMT), a segunda coluna (Significado) e a terceira coluna  (O que é o processo?), porém quando for adicionar informações gostaria que aparece nas outras abas como (EngApl - PMO), Vendas, Desenvolvimento de negócios e Logística, me de um macro para isso,  porém eu quero isso, todas as vezes que algumas informação for adicionada no glossário e se for realmente para outras abas caso pertence

Accepted Answer

Para criar uma automação no Excel que atualize automaticamente outras abas com base nas informações adicionadas em um glossário, você pode usar o VBA (Visual Basic for Applications) para escrever um macro. Vou te guiar por um exemplo básico de como isso pode ser feito.

### Passos para Criar o Macro

1. **Abra o Editor do VBA:**
   - Pressione `ALT + F11` para abrir o editor do VBA no Excel.

2. **Insira um Novo Módulo:**
   - No menu, clique em `Inserir` > `Módulo`. Isso criará um novo módulo onde você pode escrever seu código VBA.

3. **Escreva o Código VBA:**
   - Copie e cole o seguinte código no módulo:

```vba
Sub AtualizarAbas()
    Dim wsGlossario As Worksheet
    Dim wsEngApl As Worksheet
    Dim wsVendas As Worksheet
    Dim wsDesenvolvimento As Worksheet
    Dim wsLogistica As Worksheet
    Dim ultimaLinha As Long
    Dim i As Long
    
    ' Defina as planilhas
    Set wsGlossario = ThisWorkbook.Sheets("Glossário")
    Set wsEngApl = ThisWorkbook.Sheets("EngApl - PMO")
    Set wsVendas = ThisWorkbook.Sheets("Vendas")
    Set wsDesenvolvimento = ThisWorkbook.Sheets("Desenvolvimento de negócios")
    Set wsLogistica = ThisWorkbook.Sheets("Logística")
    
    ' Encontre a última linha preenchida no glossário
    ultimaLinha = wsGlossario.Cells(wsGlossario.Rows.Count, 1).End(xlUp).Row
    
    ' Itere sobre cada linha do glossário
    For i = 2 To ultimaLinha ' Assume que a primeira linha é o cabeçalho
        Dim categoria As String
        categoria = wsGlossario.Cells(i, 1).Value
        
        ' Verifique e copie para a aba correspondente
        If InStr(1, categoria, "EngApl", vbTextCompare) > 0 Then
            CopiarParaAba wsGlossario, wsEngApl, i
        End If
        
        If InStr(1, categoria, "Vendas", vbTextCompare) > 0 Then
            CopiarParaAba wsGlossario, wsVendas, i
        End If
        
        If InStr(1, categoria, "Desenvolvimento", vbTextCompare) > 0 Then
            CopiarParaAba wsGlossario, wsDesenvolvimento, i
        End If
        
        If InStr(1, categoria, "Logística", vbTextCompare) > 0 Then
            CopiarParaAba wsGlossario, wsLogistica, i
        End If
    Next i
End Sub

Sub CopiarParaAba(wsOrigem As Worksheet, wsDestino As Worksheet, linhaOrigem As Long)
    Dim ultimaLinhaDestino As Long
    ultimaLinhaDestino = wsDestino.Cells(wsDestino.Rows.Count, 1).End(xlUp).Row + 1
    
    wsDestino.Cells(ultimaLinhaDestino, 1).Value = wsOrigem.Cells(linhaOrigem, 1).Value
    wsDestino.Cells(ultimaLinhaDestino, 2).Value = wsOrigem.Cells(linhaOrigem, 2).Value
    wsDestino.Cells(ultimaLinhaDestino, 3).Value = wsOrigem.Cells(linhaOrigem, 3).Value
End Sub
```

4. **Salvar e Testar o Macro:**
   - Salve o arquivo como um arquivo habilitado para macros (`.xlsm`).
   - Para executar o macro, volte ao Excel, pressione `ALT + F8`, selecione `AtualizarAbas` e clique em `Executar`.

### Explicação do Código

- **Definição das Planilhas:** O código define quais são as planilhas de origem e destino.
- **Iteração sobre o Glossário:** Ele percorre cada linha do glossário para verificar a categoria.
- **Condição de Cópia:** Se a categoria contém um termo específico (como "EngApl"), ele copia essa linha para a aba correspondente.
- **Função de Cópia:** A função `CopiarParaAba` é utilizada para copiar as informações da linha do glossário para a aba de destino.

Essa solução é básica e pode ser ajustada conforme suas necessidades específicas, como adicionar mais condições ou otimizar o código para grandes volumes de dados.

como fazer uma automação no excel, onde eu tenho uma página ...

Ask a question and receive an answer instantly