none
#Não é uma pergunta - Macros de Conciliação RRS feed

  • Discussão Geral

  • Sub Conciliacao_1()
    
    'Campos
    'Planilha de TI:
        'Nome_Completo
        'Primeiro_Nome
        'Segundo_Nome
        'Mês
        'Ano
        'Valor_Calculado = [Valor Bruto + Valor Não Tributável] - IR  - IOF
    
    'Planilha do Câmbio:
        'Nome_Completo
        'Primeiro_Nome
        'Segundo_Nome
        'Mês
        'Ano
        'Valor > Corresponde a Coluna VLR_MN
         
    '1° Conciliação: Encontrar em TI os correspondentes em Câmbio
    ' Marcar em TI como "Localizado em Câmbio - Remessa"
    ' Marcar em Câmbio como "Localizado em TI"
    ' CHAVE: Nome_Completo + Mês/Ano + Valor
        
     UltimaLinha_TI = ThisWorkbook.Sheets("TI").Cells(Rows.Count, 1).End(xlUp).Row
     UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
     
     Do While UltimaLinha_TI > 1
     
     Chave_TI = ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 7).Value
     Chave_Cambio = ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 7).Value
     
        If Chave_TI = Chave_Cambio Then
        ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 10).Value = "Localizado em Câmbio - Remessa"
        ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 10).Value = "Localizado em TI"
        
        'Volta para a Última Linha do Câmbio:
        UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
        
        'Vai para o próximo valor de TI:
        UltimaLinha_TI = UltimaLinha_TI - 1
        
        Else:
        'Vai para o próximo valor do Câmbio
        UltimaLinha_Cambio = UltimaLinha_Cambio - 1
        
        End If
     Loop
     
     MsgBox ("1° Conciliação - Finalizada")
     
    End Sub
     
    Sub Conciliacao_2()
     
    '2° Conciliação: Encontrar em TI os correspondentes em Câmbio - Para oque continuar como "vazio" na marcação
    ' Marcar em TI como "Localizado em Câmbio - Remessa"
    ' Marcar em Câmbio como "Localizado em TI"
    ' CHAVE: Primeiro_Nome + Segundo_Nome + Mês/Ano + Valor
        
     UltimaLinha_TI = ThisWorkbook.Sheets("TI").Cells(Rows.Count, 1).End(xlUp).Row
     UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
     
     Do While UltimaLinha_TI > 1
     
     Chave_TI = ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 7).Value
     Chave_Cambio = ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 7).Value
     
     If Cells(UltimaLinha_TI, 10) <> "" Then
             'Vai para o próximo valor de TI:
             UltimaLinha_TI = UltimaLinha_TI - 1
     
        Else:
        If Chave_TI = Chave_Cambio Then
        ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 11).Value = "Localizado em Câmbio - Remessa"
        ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 11).Value = "Localizado em TI"
        
        'Volta para a Última Linha do Câmbio:
        UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
        
        'Vai para o próximo valor de TI:
        UltimaLinha_TI = UltimaLinha_TI - 1
        
        Else:
        'Vai para o próximo valor do Câmbio
        UltimaLinha_Cambio = UltimaLinha_Cambio - 1
        
        End If
     End If
     Loop
     
     MsgBox ("2° Conciliação - Finalizada")
     
    End Sub
     
    Sub Conciliacao_3()
        
    '3° Conciliação: Encontrar possíveis casos de Remessa em TI - Para oque continuar como "vazio" na marcação
    ' Marcar em TI como "Verificar se é remessa"
    ' Marcar em Câmbio como "Verificar em TI"
    ' CHAVE: Nome_Completo + Mês/Ano
    
     UltimaLinha_TI = ThisWorkbook.Sheets("TI").Cells(Rows.Count, 1).End(xlUp).Row
     UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
     
     Do While UltimaLinha_TI > 1
     
     Chave_TI = ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 7).Value
     Chave_Cambio = ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 7).Value
     
     If Cells(UltimaLinha_TI, 10) <> "" Then
        If Cells(UltimaLinha_TI, 11) <> "" Then
            'Vai para o próximo valor de TI:
             UltimaLinha_TI = UltimaLinha_TI - 1
        
        Else:
        
        If Chave_TI = Chave_Cambio Then
        ThisWorkbook.Sheets("TI").Cells(UltimaLinha_TI, 11).Value = "Verificar se é remessa"
        ThisWorkbook.Sheets("Cambio").Cells(UltimaLinha_Cambio, 11).Value = "Verificar em TI"
        
        'Volta para a Última Linha do Câmbio:
        UltimaLinha_Cambio = ThisWorkbook.Sheets("Cambio").Cells(Rows.Count, 1).End(xlUp).Row
        
        'Vai para o próximo valor de TI:
        UltimaLinha_TI = UltimaLinha_TI - 1
        
        Else:
        'Vai para o próximo valor do Câmbio
        UltimaLinha_Cambio = UltimaLinha_Cambio - 1
        
        End If
     End If
     End If
     Loop
     
     MsgBox ("3° Conciliação - Finalizada")
     
    End Sub


    terça-feira, 14 de janeiro de 2020 01:27

Todas as Respostas

  • #Não é uma resposta

    Nice code, bro

    ░░░░░░░░░░░░▄▄░░░░░░░░░
    ░░░░░░░░░░░█░░█░░░░░░░░
    ░░░░░░░░░░░█░░█░░░░░░░░
    ░░░░░░░░░░█░░░█░░░░░░░░
    ░░░░░░░░░█░░░░█░░░░░░░░
    ███████▄▄█░░░░░██████▄░░
    ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░
    ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░
    ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░
    ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░
    ▓▓▓▓▓▓█░░░░░░░░░░░░░░█░
    ▓▓▓▓▓▓█████░░░░░░░░░█░░
    ██████▀░░░░▀▀██████▀░░░░
    


    • Editado eumsm_11 terça-feira, 14 de janeiro de 2020 21:01
    terça-feira, 14 de janeiro de 2020 21:00