Notifications
Clear all

Fórmula ou Macro Excel

6 Posts
2 Usuários
0 Reactions
1,790 Visualizações
(@claudir)
Posts: 18
Active Member
Topic starter
 

Bom dia!!

Solicito ajuda para criação de uma Macro ou fórmula na questão abaixo na planilha Controle Ocorrências:

Plan Faixa I -
1 verificar se existe número de ocorrência diferente na Plan Apoio (coluna A),
2 caso positivo, verificar se trata de DANO FÍSICO - FAIXA I (Plan Apoio Coluna B),
3 caso positivo, verifica a primeira linha em branco na Coluna B copia o(s) número(s) da(s) ocorrência(s) para a Plan Faixa I (Coluna B),

Plan Faixa II -
1 verificar se existe número de ocorrência diferente na Plan Apoio (coluna A),
2 caso positivo, verificar se trata de DANO FÍSICO - FAIXA II (Plan Apoio Coluna B),
3 caso positivo, verifica a primeira linha em branco na Coluna B e copia o(s) número(s) da(s) ocorrência(s) para a Plan Faixa II (Coluna B),

 
Postado : 24/11/2015 9:28 am
(@edivan)
Posts: 119
Estimable Member
 

Veja se esses códigos servem...

Sub FAIXAUM()
    Dim LIN As Integer, LINHA As Integer, ENCONTRADO As Integer
    
    
    LIN = 2
    LINHA = 2
    
    Do Until Plan3.Range("A" & LIN).Value = ""
    ENCONTRADO = 0
    Do Until Plan1.Range("B" & LINHA).Value = ""
    If Plan3.Range("A" & LINHA).Value = Plan1.Range("B" & LIN).Value Then
    ENCONTRADO = 1
    Exit Do
    End If
    LINHA = LINHA + 1
    Loop
    
    If ENCONTRADO = 0 Then
    Plan1.Range("A" & LINHA).Value = LINHA - 1
    Plan1.Range("B" & LINHA).Value = Plan3.Range("A" & LIN).Value
    Plan1.Range("C" & LINHA).Value = Plan3.Range("B" & LIN).Value
    Plan1.Range("D" & LINHA).Value = Plan3.Range("C" & LIN).Value
    Plan1.Range("E" & LINHA).Value = Plan3.Range("D" & LIN).Value
    Plan1.Range("F" & LINHA).Value = Plan3.Range("E" & LIN).Value
    End If
    
    LIN = LIN + 1
    LINHA = 2
    Loop
End Sub


Sub FAIXADOIS()
    Dim LIN As Integer, LINHA As Integer, ENCONTRADO As Integer
    
    
    LIN = 2
    LINHA = 2
    
    Do Until Plan3.Range("A" & LIN).Value = ""
    ENCONTRADO = 0
    Do Until Plan2.Range("B" & LINHA).Value = ""
    If Plan3.Range("A" & LINHA).Value = Plan2.Range("B" & LIN).Value Then
    ENCONTRADO = 1
    Exit Do
    End If
    LINHA = LINHA + 1
    Loop
    
    If ENCONTRADO = 0 Then
    Plan2.Range("A" & LINHA).Value = LINHA - 1
    Plan2.Range("B" & LINHA).Value = Plan3.Range("A" & LIN).Value
    Plan2.Range("C" & LINHA).Value = Plan3.Range("B" & LIN).Value
    Plan2.Range("D" & LINHA).Value = Plan3.Range("C" & LIN).Value
    Plan2.Range("E" & LINHA).Value = Plan3.Range("D" & LIN).Value
    Plan2.Range("F" & LINHA).Value = Plan3.Range("E" & LIN).Value
    End If
    
    LIN = LIN + 1
    LINHA = 2
    Loop
End Sub

Baixe a planilha e teste...

Visite meu Blog:
PROGRAMACAOPASSOAPASSO.WORDPRESS.COM

 
Postado : 24/11/2015 11:10 am
(@claudir)
Posts: 18
Active Member
Topic starter
 

Obrigado.
Com as adaptações foi exatamente o que necessitava
Abç.

 
Postado : 30/11/2015 2:29 pm
(@claudir)
Posts: 18
Active Member
Topic starter
 

Olá ,

Fiz fiz as adaptações no modelo conforme a macro que descrevi abaixo.

Inclusive copiar da Plan3 (colunas A,B,C, D,E,G) para as Plan1 e Plan3 (colunas D,E,F, G, H, I ) .

Ocorre que a Coluna I (Plan 1 e 2) não está copiando da Coluna G(Plan3) (conforme exemplos nas celulas em vermelho no arquivo).

Alguém poderia verificar porque?

Já esgotei todas as possibilidades.

Grato

Claudir

 
Postado : 30/11/2015 2:57 pm
(@edivan)
Posts: 119
Estimable Member
 

Ao baixar não há nada na pasta você poderia conferir se anexou o arquivo corretamente?

 
Postado : 01/12/2015 2:08 pm
(@claudir)
Posts: 18
Active Member
Topic starter
 

Segue arquivo zipado.

Obrigado.

 
Postado : 02/12/2015 10:34 am