Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com "Pro...
 
Notifications
Clear all

Ajuda com "Procedimento muito grande"

 
2024 - VBA & Macros
Post Recente por Edcronos 11 anos atrás
3 Posts
2 Usuários
0 Reactions
868 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Olá caros amigos,
Estou com dificuldades na hora de dividir um código tem 2 rotinas para burlar o problema de Método ou procedimento muito grande, mas não estou conseguindo fazer isso.

Vou dividir o código em duas partes para não exceder o limite de caracteres do post.

Parte1:

'Inicio da ProcuraPersonalizada'
Private Sub ProcuraPersonalizada(ByVal TermoPesquisado As String, ByVal sPesquisarNoCampo As String)
Dim Busca As Range
Dim Primeira_Ocorrencia As String
Dim ResultadosLinha As String
Dim ResultadosPlanilha As String
Dim sSearchInCol As String
Dim arrPesquisarNasPlanilhas As Variant
Dim i As Integer

    'Define a Coluna onde a informação será pesquisada
    sSearchInCol = ConfigColunas(sPesquisarNoCampo)
    'Define as Planilhas onde a informação será pesquisada
    arrPesquisarNasPlanilhas = ConfigPlanilhasBase
    'Inicializa os resultados
    ResultadosLinha = ""
    ResultadosPlanilha = ""
    MatrizResultadosLinha = ""
    MatrizResultadosPlanilha = ""
    'Executa a busca
    For i = 0 To UBound(arrPesquisarNasPlanilhas)
        With Sheets(arrPesquisarNasPlanilhas(i))
            If sSearchInCol = "" Then
                Set Busca = .Cells.Find(What:=TermoPesquisado, After:=.Range("A1"), LookIn:=xlFormulas, _
                    LOOKAT:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            Else
                Set Busca = .Range(sSearchInCol & ":" & sSearchInCol).Find( _
                    What:=TermoPesquisado, _
                    After:=.Range(sSearchInCol & "1"), _
                    LookIn:=xlFormulas, LOOKAT:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            End If
            'Caso tenha encontrado alguma ocorrência...
            If Not Busca Is Nothing Then
                Primeira_Ocorrencia = Busca.Address
                ResultadosLinha = ResultadosLinha & IIf((Len(ResultadosLinha) > 0), ";", "") & Busca.Row 'Lista o primeiro resultado na variavel - linha da ocorrência
                ResultadosPlanilha = ResultadosPlanilha & IIf((Len(ResultadosPlanilha) > 0), ";", "") & .Index 'Lista o primeiro resultado na variavel - planilha da ocorrência
                'Neste loop, pesquisa todas as próximas ocorrências para
                'o termo pesquisado
                Do
                    If sSearchInCol = "" Then
                        Set Busca = .Cells.FindNext(After:=Busca)
                    Else
                        Set Busca = .Range(sSearchInCol & ":" & sSearchInCol).FindNext(After:=Busca)
                    End If
                    'Condicional para não listar o primeiro resultado
                    'pois já foi listado acima
                    If Not Busca.Address Like Primeira_Ocorrencia Then
                        ResultadosLinha = ResultadosLinha & ";" & Busca.Row
                        ResultadosPlanilha = ResultadosPlanilha & ";" & .Index
                    End If
                Loop Until Busca.Address Like Primeira_Ocorrencia
            End If
        End With
    Next i

    If Len(ResultadosLinha) > 0 Then    'Se foram encontrados resultados
        MatrizResultadosLinha = Split(ResultadosLinha, ";")
        MatrizResultadosPlanilha = Split(ResultadosPlanilha, ";")
        'Atualiza dados iniciais no formulário
        SpinButton1.Max = UBound(MatrizResultadosLinha)  'Valor maximo do seletor de registros
        'habilita o seletor de registro
        SpinButton1.Enabled = True
        'indicador do seletor de registros
        Label_Registros_Contador.Caption = "1 de " & UBound(MatrizResultadosLinha) + 1
        'Box com o conteudo encontrado
        With Sheets(CInt(MatrizResultadosPlanilha(0)))
                
                txt_Orgao.Value = .Cells(MatrizResultadosLinha(0), 1).Value

                If Len(.Cells(MatrizResultadosLinha(0), 2).Value) = 17 Then
                    OptionButton_PPP_Sim.Value = True
                    OptionButton_PPP_Nao.Value = False
                    
                    txt_E04.Value = Left(.Cells(MatrizResultadosLinha(0), 2).Value, 2)
                    txt_SS1.Value = Mid(.Cells(MatrizResultadosLinha(0), 2).Value, 3, 2)
                    txt_NNN1.Value = Mid(.Cells(MatrizResultadosLinha(0), 2).Value, 6, 7)
                    txt_AAAA1.Value = Right(.Cells(MatrizResultadosLinha(0), 2).Value, 4)
                Else
                    OptionButton_PPP_Nao.Value = True
                    OptionButton_PPP_Sim.Value = False
                    
                    txt_EXX.Value = Left(.Cells(MatrizResultadosLinha(0), 2).Value, 2)
                    txt_SS2.Value = Mid(.Cells(MatrizResultadosLinha(0), 2).Value, 3, 2)
                    txt_PPP.Value = Mid(.Cells(MatrizResultadosLinha(0), 2).Value, 6, 3)
                    txt_NNN2.Value = Mid(.Cells(MatrizResultadosLinha(0), 2).Value, 10, 7)
                    txt_AAAA2.Value = Right(.Cells(MatrizResultadosLinha(0), 2).Value, 4)
                End If

                txt_AssuntoUPO.Value = .Cells(MatrizResultadosLinha(0), 3).Value
                txt_Cod_AssuntoUPO.Value = .Cells(MatrizResultadosLinha(0), 4).Value
                
                If .Cells(MatrizResultadosLinha(0), 5).Value <> Empty Then
                    txt_Caminho01.Value = .Cells(MatrizResultadosLinha(0), 5).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 5), "")
                    txt_nome1.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho01.Value = ""
                    txt_nome1.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 6).Value <> Empty Then
                    txt_Caminho02.Value = .Cells(MatrizResultadosLinha(0), 6).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 6), "")
                    txt_nome2.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho02.Value = ""
                    txt_nome2.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 7).Value <> Empty Then
                    txt_Caminho03.Value = .Cells(MatrizResultadosLinha(0), 7).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 7), "")
                    txt_nome3.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho03.Value = ""
                    txt_nome3.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 8).Value <> Empty Then
                    txt_Caminho04.Value = .Cells(MatrizResultadosLinha(0), 8).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 8), "")
                    txt_nome4.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho04.Value = ""
                    txt_nome4.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 9).Value <> Empty Then
                    txt_Caminho05.Value = .Cells(MatrizResultadosLinha(0), 9).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 9), "")
                    txt_nome5.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho05.Value = ""
                    txt_nome5.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 10).Value <> Empty Then
                    txt_Caminho06.Value = .Cells(MatrizResultadosLinha(0), 10).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 10), "")
                    txt_nome6.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho06.Value = ""
                    txt_nome6.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 11).Value <> Empty Then
                    txt_Caminho07.Value = .Cells(MatrizResultadosLinha(0), 11).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 11), "")
                    txt_nome7.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho07.Value = ""
                    txt_nome7.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 12).Value <> Empty Then
                    txt_Caminho08.Value = .Cells(MatrizResultadosLinha(0), 12).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 12), "")
                    txt_nome8.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho08.Value = ""
                    txt_nome8.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 13).Value <> Empty Then
                    txt_Caminho09.Value = .Cells(MatrizResultadosLinha(0), 13).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 13), "")
                    txt_nome9.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho09.Value = ""
                    txt_nome9.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 14).Value <> Empty Then
                    txt_Caminho10.Value = .Cells(MatrizResultadosLinha(0), 14).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 14), "")
                    txt_nome10.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho10.Value = ""
                    txt_nome10.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 15).Value <> Empty Then
                    txt_Caminho11.Value = .Cells(MatrizResultadosLinha(0), 15).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 15), "")
                    txt_nome11.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho11.Value = ""
                    txt_nome11.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 16).Value <> Empty Then
                    txt_Caminho12.Value = .Cells(MatrizResultadosLinha(0), 16).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 16), "")
                    txt_nome12.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho12.Value = ""
                    txt_nome12.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 17).Value <> Empty Then
                    txt_Caminho13.Value = .Cells(MatrizResultadosLinha(0), 17).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 17), "")
                    txt_nome13.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho13.Value = ""
                    txt_nome13.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 18).Value <> Empty Then
                    txt_Caminho14.Value = .Cells(MatrizResultadosLinha(0), 18).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 18), "")
                    txt_nome14.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho14.Value = ""
                    txt_nome14.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 19).Value <> Empty Then
                    txt_Caminho15.Value = .Cells(MatrizResultadosLinha(0), 19).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 19), "")
                    txt_nome15.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho15.Value = ""
                    txt_nome15.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 20).Value <> Empty Then
                    txt_Caminho16.Value = .Cells(MatrizResultadosLinha(0), 20).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 20), "")
                    txt_nome16.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho16.Value = ""
                    txt_nome16.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 21).Value <> Empty Then
                    txt_Caminho17.Value = .Cells(MatrizResultadosLinha(0), 21).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 21), "")
                    txt_nome17.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho17.Value = ""
                    txt_nome17.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 22).Value <> Empty Then
                    txt_Caminho18.Value = .Cells(MatrizResultadosLinha(0), 22).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 22), "")
                    txt_nome18.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho18.Value = ""
                    txt_nome18.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 23).Value <> Empty Then
                    txt_Caminho19.Value = .Cells(MatrizResultadosLinha(0), 23).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 23), "")
                    txt_nome19.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho19.Value = ""
                    txt_nome19.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 24).Value <> Empty Then
                    txt_Caminho20.Value = .Cells(MatrizResultadosLinha(0), 24).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 24), "")
                    txt_nome20.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho20.Value = ""
                    txt_nome20.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 25).Value <> Empty Then
                    txt_Caminho21.Value = .Cells(MatrizResultadosLinha(0), 25).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 25), "")
                    txt_nome21.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho21.Value = ""
                    txt_nome21.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 26).Value <> Empty Then
                    txt_Caminho22.Value = .Cells(MatrizResultadosLinha(0), 26).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 26), "")
                    txt_nome22.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho22.Value = ""
                    txt_nome22.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 27).Value <> Empty Then
                    txt_Caminho23.Value = .Cells(MatrizResultadosLinha(0), 27).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 27), "")
                    txt_nome23.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho23.Value = ""
                    txt_nome23.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 28).Value <> Empty Then
                    txt_Caminho24.Value = .Cells(MatrizResultadosLinha(0), 28).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 28), "")
                    txt_nome24.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho24.Value = ""
                    txt_nome24.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 29).Value <> Empty Then
                    txt_Caminho25.Value = .Cells(MatrizResultadosLinha(0), 29).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 29), "")
                    txt_nome25.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho25.Value = ""
                    txt_nome25.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 30).Value <> Empty Then
                    txt_Caminho26.Value = .Cells(MatrizResultadosLinha(0), 30).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 30), "")
                    txt_nome26.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho26.Value = ""
                    txt_nome26.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 31).Value <> Empty Then
                    txt_Caminho27.Value = .Cells(MatrizResultadosLinha(0), 31).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 31), "")
                    txt_nome27.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho27.Value = ""
                    txt_nome27.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 32).Value <> Empty Then
                    txt_Caminho28.Value = .Cells(MatrizResultadosLinha(0), 32).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 32), "")
                    txt_nome28.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho28.Value = ""
                    txt_nome28.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 33).Value <> Empty Then
                    txt_Caminho29.Value = .Cells(MatrizResultadosLinha(0), 33).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 33), "")
                    txt_nome29.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho29.Value = ""
                    txt_nome29.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 34).Value <> Empty Then
                    txt_Caminho30.Value = .Cells(MatrizResultadosLinha(0), 34).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 34), "")
                    txt_nome30.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho30.Value = ""
                    txt_nome30.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 35).Value <> Empty Then
                    txt_Caminho31.Value = .Cells(MatrizResultadosLinha(0), 35).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 35), "")
                    txt_nome31.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho31.Value = ""
                    txt_nome31.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 36).Value <> Empty Then
                    txt_Caminho32.Value = .Cells(MatrizResultadosLinha(0), 36).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 36), "")
                    txt_nome32.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho32.Value = ""
                    txt_nome32.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 37).Value <> Empty Then
                    txt_Caminho33.Value = .Cells(MatrizResultadosLinha(0), 37).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 37), "")
                    txt_nome33.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho33.Value = ""
                    txt_nome33.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 38).Value <> Empty Then
                    txt_Caminho34.Value = .Cells(MatrizResultadosLinha(0), 38).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 38), "")
                    txt_nome34.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho34.Value = ""
                    txt_nome34.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 39).Value <> Empty Then
                    txt_Caminho35.Value = .Cells(MatrizResultadosLinha(0), 39).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 39), "")
                    txt_nome35.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho35.Value = ""
                    txt_nome35.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 40).Value <> Empty Then
                    txt_Caminho36.Value = .Cells(MatrizResultadosLinha(0), 40).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 40), "")
                    txt_nome36.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho36.Value = ""
                    txt_nome36.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 41).Value <> Empty Then
                    txt_Caminho37.Value = .Cells(MatrizResultadosLinha(0), 41).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 41), "")
                    txt_nome37.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho37.Value = ""
                    txt_nome37.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 42).Value <> Empty Then
                    txt_Caminho38.Value = .Cells(MatrizResultadosLinha(0), 42).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 42), "")
                    txt_nome38.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho38.Value = ""
                    txt_nome38.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 43).Value <> Empty Then
                    txt_Caminho39.Value = .Cells(MatrizResultadosLinha(0), 43).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 43), "")
                    txt_nome39.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho39.Value = ""
                    txt_nome39.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 44).Value <> Empty Then
                    txt_Caminho40.Value = .Cells(MatrizResultadosLinha(0), 44).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 44), "")
                    txt_nome40.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho40.Value = ""
                    txt_nome40.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 45).Value <> Empty Then
                    txt_Caminho41.Value = .Cells(MatrizResultadosLinha(0), 45).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 45), "")
                    txt_nome41.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho41.Value = ""
                    txt_nome41.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 46).Value <> Empty Then
                    txt_Caminho42.Value = .Cells(MatrizResultadosLinha(0), 46).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 46), "")
                    txt_nome42.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho42.Value = ""
                    txt_nome42.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 47).Value <> Empty Then
                    txt_Caminho43.Value = .Cells(MatrizResultadosLinha(0), 47).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 47), "")
                    txt_nome43.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho43.Value = ""
                    txt_nome43.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 48).Value <> Empty Then
                    txt_Caminho44.Value = .Cells(MatrizResultadosLinha(0), 48).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 48), "")
                    txt_nome44.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho44.Value = ""
                    txt_nome44.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 49).Value <> Empty Then
                    txt_Caminho45.Value = .Cells(MatrizResultadosLinha(0), 49).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 49), "")
                    txt_nome45.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho45.Value = ""
                    txt_nome45.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 50).Value <> Empty Then
                    txt_Caminho46.Value = .Cells(MatrizResultadosLinha(0), 50).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 50), "")
                    txt_nome46.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho46.Value = ""
                    txt_nome46.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 51).Value <> Empty Then
                    txt_Caminho47.Value = .Cells(MatrizResultadosLinha(0), 51).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 51), "")
                    txt_nome47.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho47.Value = ""
                    txt_nome47.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 52).Value <> Empty Then
                    txt_Caminho48.Value = .Cells(MatrizResultadosLinha(0), 52).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 52), "")
                    txt_nome48.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho48.Value = ""
                    txt_nome48.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 53).Value <> Empty Then
                    txt_Caminho49.Value = .Cells(MatrizResultadosLinha(0), 53).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 53), "")
                    txt_nome49.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho49.Value = ""
                    txt_nome49.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 54).Value <> Empty Then
                    txt_Caminho50.Value = .Cells(MatrizResultadosLinha(0), 54).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 54), "")
                    txt_nome50.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho50.Value = ""
                    txt_nome50.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 55).Value <> Empty Then
                    txt_Caminho51.Value = .Cells(MatrizResultadosLinha(0), 55).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 55), "")
                    txt_nome51.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho51.Value = ""
                    txt_nome51.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 56).Value <> Empty Then
                    txt_Caminho52.Value = .Cells(MatrizResultadosLinha(0), 56).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 56), "")
                    txt_nome52.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho52.Value = ""
                    txt_nome52.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 57).Value <> Empty Then
                    txt_Caminho53.Value = .Cells(MatrizResultadosLinha(0), 57).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 57), "")
                    txt_nome53.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho53.Value = ""
                    txt_nome53.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 58).Value <> Empty Then
                    txt_Caminho54.Value = .Cells(MatrizResultadosLinha(0), 58).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 58), "")
                    txt_nome54.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho54.Value = ""
                    txt_nome54.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 59).Value <> Empty Then
                    txt_Caminho55.Value = .Cells(MatrizResultadosLinha(0), 59).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 59), "")
                    txt_nome55.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho55.Value = ""
                    txt_nome55.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 60).Value <> Empty Then
                    txt_Caminho56.Value = .Cells(MatrizResultadosLinha(0), 60).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 60), "")
                    txt_nome56.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho56.Value = ""
                    txt_nome56.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 61).Value <> Empty Then
                    txt_Caminho57.Value = .Cells(MatrizResultadosLinha(0), 61).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 61), "")
                    txt_nome57.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho57.Value = ""
                    txt_nome57.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 62).Value <> Empty Then
                    txt_Caminho58.Value = .Cells(MatrizResultadosLinha(0), 62).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 62), "")
                    txt_nome58.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho58.Value = ""
                    txt_nome58.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 63).Value <> Empty Then
                    txt_Caminho59.Value = .Cells(MatrizResultadosLinha(0), 63).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 63), "")
                    txt_nome59.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho59.Value = ""
                    txt_nome59.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 64).Value <> Empty Then
                    txt_Caminho60.Value = .Cells(MatrizResultadosLinha(0), 64).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 64), "")
                    txt_nome60.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho60.Value = ""
                    txt_nome60.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 65).Value <> Empty Then
                    txt_Caminho61.Value = .Cells(MatrizResultadosLinha(0), 65).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 65), "")
                    txt_nome61.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho61.Value = ""
                    txt_nome61.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 66).Value <> Empty Then
                    txt_Caminho62.Value = .Cells(MatrizResultadosLinha(0), 66).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 66), "")
                    txt_nome62.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho62.Value = ""
                    txt_nome62.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 67).Value <> Empty Then
                    txt_Caminho63.Value = .Cells(MatrizResultadosLinha(0), 67).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 67), "")
                    txt_nome63.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho63.Value = ""
                    txt_nome63.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 68).Value <> Empty Then
                    txt_Caminho64.Value = .Cells(MatrizResultadosLinha(0), 68).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 68), "")
                    txt_nome64.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho64.Value = ""
                    txt_nome64.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 69).Value <> Empty Then
                    txt_Caminho65.Value = .Cells(MatrizResultadosLinha(0), 69).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 69), "")
                    txt_nome65.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho65.Value = ""
                    txt_nome65.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 70).Value <> Empty Then
                    txt_Caminho66.Value = .Cells(MatrizResultadosLinha(0), 70).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 70), "")
                    txt_nome66.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho66.Value = ""
                    txt_nome66.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 71).Value <> Empty Then
                    txt_Caminho67.Value = .Cells(MatrizResultadosLinha(0), 71).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 71), "")
                    txt_nome67.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho67.Value = ""
                    txt_nome67.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 72).Value <> Empty Then
                    txt_Caminho68.Value = .Cells(MatrizResultadosLinha(0), 72).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 72), "")
                    txt_nome68.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho68.Value = ""
                    txt_nome68.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 73).Value <> Empty Then
                    txt_Caminho69.Value = .Cells(MatrizResultadosLinha(0), 73).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 73), "")
                    txt_nome69.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho69.Value = ""
                    txt_nome69.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 74).Value <> Empty Then
                    txt_Caminho70.Value = .Cells(MatrizResultadosLinha(0), 74).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 74), "")
                    txt_nome70.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho70.Value = ""
                    txt_nome70.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 75).Value <> Empty Then
                    txt_Caminho71.Value = .Cells(MatrizResultadosLinha(0), 75).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 75), "")
                    txt_nome71.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho71.Value = ""
                    txt_nome71.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 76).Value <> Empty Then
                    txt_Caminho72.Value = .Cells(MatrizResultadosLinha(0), 76).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 76), "")
                    txt_nome72.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho72.Value = ""
                    txt_nome72.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 77).Value <> Empty Then
                    txt_Caminho73.Value = .Cells(MatrizResultadosLinha(0), 77).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 77), "")
                    txt_nome73.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho73.Value = ""
                    txt_nome73.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 78).Value <> Empty Then
                    txt_Caminho74.Value = .Cells(MatrizResultadosLinha(0), 78).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 78), "")
                    txt_nome74.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho74.Value = ""
                    txt_nome74.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 79).Value <> Empty Then
                    txt_Caminho75.Value = .Cells(MatrizResultadosLinha(0), 79).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 79), "")
                    txt_nome75.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho75.Value = ""
                    txt_nome75.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 80).Value <> Empty Then
                    txt_Caminho76.Value = .Cells(MatrizResultadosLinha(0), 80).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 80), "")
                    txt_nome76.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho76.Value = ""
                    txt_nome76.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 81).Value <> Empty Then
                    txt_Caminho77.Value = .Cells(MatrizResultadosLinha(0), 81).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 81), "")
                    txt_nome77.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho77.Value = ""
                    txt_nome77.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 82).Value <> Empty Then
                    txt_Caminho78.Value = .Cells(MatrizResultadosLinha(0), 82).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 82), "")
                    txt_nome78.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho78.Value = ""
                    txt_nome78.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 83).Value <> Empty Then
                    txt_Caminho79.Value = .Cells(MatrizResultadosLinha(0), 83).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 83), "")
                    txt_nome79.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho79.Value = ""
                    txt_nome79.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 84).Value <> Empty Then
                    txt_Caminho80.Value = .Cells(MatrizResultadosLinha(0), 84).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 84), "")
                    txt_nome80.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho80.Value = ""
                    txt_nome80.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 85).Value <> Empty Then
                    txt_Caminho81.Value = .Cells(MatrizResultadosLinha(0), 85).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 85), "")
                    txt_nome81.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho81.Value = ""
                    txt_nome81.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 86).Value <> Empty Then
                    txt_Caminho82.Value = .Cells(MatrizResultadosLinha(0), 86).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 86), "")
                    txt_nome82.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho82.Value = ""
                    txt_nome82.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 87).Value <> Empty Then
                    txt_Caminho83.Value = .Cells(MatrizResultadosLinha(0), 87).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 87), "")
                    txt_nome83.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho83.Value = ""
                    txt_nome83.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 88).Value <> Empty Then
                    txt_Caminho84.Value = .Cells(MatrizResultadosLinha(0), 88).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 88), "")
                    txt_nome84.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho84.Value = ""
                    txt_nome84.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 89).Value <> Empty Then
                    txt_Caminho85.Value = .Cells(MatrizResultadosLinha(0), 89).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 89), "")
                    txt_nome85.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho85.Value = ""
                    txt_nome85.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 90).Value <> Empty Then
                    txt_Caminho86.Value = .Cells(MatrizResultadosLinha(0), 90).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 90), "")
                    txt_nome86.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho86.Value = ""
                    txt_nome86.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 91).Value <> Empty Then
                    txt_Caminho87.Value = .Cells(MatrizResultadosLinha(0), 91).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 91), "")
                    txt_nome87.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho87.Value = ""
                    txt_nome87.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 92).Value <> Empty Then
                    txt_Caminho88.Value = .Cells(MatrizResultadosLinha(0), 92).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 92), "")
                    txt_nome88.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho88.Value = ""
                    txt_nome88.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 93).Value <> Empty Then
                    txt_Caminho89.Value = .Cells(MatrizResultadosLinha(0), 93).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 93), "")
                    txt_nome89.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho89.Value = ""
                    txt_nome89.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 94).Value <> Empty Then
                    txt_Caminho90.Value = .Cells(MatrizResultadosLinha(0), 94).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 94), "")
                    txt_nome90.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho90.Value = ""
                    txt_nome90.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 95).Value <> Empty Then
                    txt_Caminho91.Value = .Cells(MatrizResultadosLinha(0), 95).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 95), "")
                    txt_nome91.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho91.Value = ""
                    txt_nome91.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 96).Value <> Empty Then
                    txt_Caminho92.Value = .Cells(MatrizResultadosLinha(0), 96).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 96), "")
                    txt_nome92.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho92.Value = ""
                    txt_nome92.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 97).Value <> Empty Then
                    txt_Caminho93.Value = .Cells(MatrizResultadosLinha(0), 97).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 97), "")
                    txt_nome93.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho93.Value = ""
                    txt_nome93.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 98).Value <> Empty Then
                    txt_Caminho94.Value = .Cells(MatrizResultadosLinha(0), 98).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 98), "")
                    txt_nome94.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho94.Value = ""
                    txt_nome94.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 99).Value <> Empty Then
                    txt_Caminho95.Value = .Cells(MatrizResultadosLinha(0), 99).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 99), "")
                    txt_nome95.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho95.Value = ""
                    txt_nome95.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 100).Value <> Empty Then
                    txt_Caminho96.Value = .Cells(MatrizResultadosLinha(0), 100).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 100), "")
                    txt_nome96.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho96.Value = ""
                    txt_nome96.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 101).Value <> Empty Then
                    txt_Caminho97.Value = .Cells(MatrizResultadosLinha(0), 101).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 101), "")
                    txt_nome97.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho97.Value = ""
                    txt_nome97.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 102).Value <> Empty Then
                    txt_Caminho98.Value = .Cells(MatrizResultadosLinha(0), 102).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 102), "")
                    txt_nome98.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho98.Value = ""
                    txt_nome98.Value = ""
                End If


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 02/04/2014 8:13 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Parte2:

               If .Cells(MatrizResultadosLinha(0), 103).Value <> Empty Then
                    txt_Caminho99.Value = .Cells(MatrizResultadosLinha(0), 103).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 103), "")
                    txt_nome99.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho99.Value = ""
                    txt_nome99.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 104).Value <> Empty Then
                    txt_Caminho100.Value = .Cells(MatrizResultadosLinha(0), 104).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 104), "")
                    txt_nome100.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho100.Value = ""
                    txt_nome100.Value = ""
                End If
    
                If .Cells(MatrizResultadosLinha(0), 105).Value <> Empty Then
                    txt_Caminho101.Value = .Cells(MatrizResultadosLinha(0), 105).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 105), "")
                    txt_nome101.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho101.Value = ""
                    txt_nome101.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 106).Value <> Empty Then
                    txt_Caminho102.Value = .Cells(MatrizResultadosLinha(0), 106).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 106), "")
                    txt_nome102.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho102.Value = ""
                    txt_nome102.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 107).Value <> Empty Then
                    txt_Caminho103.Value = .Cells(MatrizResultadosLinha(0), 107).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 107), "")
                    txt_nome103.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho103.Value = ""
                    txt_nome103.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 108).Value <> Empty Then
                    txt_Caminho104.Value = .Cells(MatrizResultadosLinha(0), 108).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 108), "")
                    txt_nome104.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho104.Value = ""
                    txt_nome104.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 109).Value <> Empty Then
                    txt_Caminho105.Value = .Cells(MatrizResultadosLinha(0), 109).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 109), "")
                    txt_nome105.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho105.Value = ""
                    txt_nome105.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 110).Value <> Empty Then
                    txt_Caminho106.Value = .Cells(MatrizResultadosLinha(0), 110).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 110), "")
                    txt_nome106.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho106.Value = ""
                    txt_nome106.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 111).Value <> Empty Then
                    txt_Caminho107.Value = .Cells(MatrizResultadosLinha(0), 111).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 111), "")
                    txt_nome107.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho107.Value = ""
                    txt_nome107.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 112).Value <> Empty Then
                    txt_Caminho108.Value = .Cells(MatrizResultadosLinha(0), 112).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 112), "")
                    txt_nome108.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho108.Value = ""
                    txt_nome108.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 113).Value <> Empty Then
                    txt_Caminho109.Value = .Cells(MatrizResultadosLinha(0), 113).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 113), "")
                    txt_nome109.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho109.Value = ""
                    txt_nome109.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 114).Value <> Empty Then
                    txt_Caminho110.Value = .Cells(MatrizResultadosLinha(0), 114).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 114), "")
                    txt_nome110.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho110.Value = ""
                    txt_nome110.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 115).Value <> Empty Then
                    txt_Caminho111.Value = .Cells(MatrizResultadosLinha(0), 115).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 115), "")
                    txt_nome111.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho111.Value = ""
                    txt_nome111.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 116).Value <> Empty Then
                    txt_Caminho112.Value = .Cells(MatrizResultadosLinha(0), 116).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 116), "")
                    txt_nome112.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho112.Value = ""
                    txt_nome112.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 117).Value <> Empty Then
                    txt_Caminho113.Value = .Cells(MatrizResultadosLinha(0), 117).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 117), "")
                    txt_nome113.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho113.Value = ""
                    txt_nome113.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 118).Value <> Empty Then
                    txt_Caminho114.Value = .Cells(MatrizResultadosLinha(0), 118).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 118), "")
                    txt_nome114.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho114.Value = ""
                    txt_nome114.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 119).Value <> Empty Then
                    txt_Caminho115.Value = .Cells(MatrizResultadosLinha(0), 119).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 119), "")
                    txt_nome115.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho115.Value = ""
                    txt_nome115.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 120).Value <> Empty Then
                    txt_Caminho116.Value = .Cells(MatrizResultadosLinha(0), 120).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 120), "")
                    txt_nome116.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho116.Value = ""
                    txt_nome116.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 121).Value <> Empty Then
                    txt_Caminho117.Value = .Cells(MatrizResultadosLinha(0), 121).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 121), "")
                    txt_nome117.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho117.Value = ""
                    txt_nome117.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 122).Value <> Empty Then
                    txt_Caminho118.Value = .Cells(MatrizResultadosLinha(0), 122).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 122), "")
                    txt_nome118.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho118.Value = ""
                    txt_nome118.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 123).Value <> Empty Then
                    txt_Caminho119.Value = .Cells(MatrizResultadosLinha(0), 123).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 123), "")
                    txt_nome119.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho119.Value = ""
                    txt_nome119.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 124).Value <> Empty Then
                    txt_Caminho120.Value = .Cells(MatrizResultadosLinha(0), 124).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 124), "")
                    txt_nome120.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho120.Value = ""
                    txt_nome120.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 125).Value <> Empty Then
                    txt_Caminho121.Value = .Cells(MatrizResultadosLinha(0), 125).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 125), "")
                    txt_nome121.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho121.Value = ""
                    txt_nome121.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 126).Value <> Empty Then
                    txt_Caminho122.Value = .Cells(MatrizResultadosLinha(0), 126).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 126), "")
                    txt_nome122.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho122.Value = ""
                    txt_nome122.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 127).Value <> Empty Then
                    txt_Caminho123.Value = .Cells(MatrizResultadosLinha(0), 127).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 127), "")
                    txt_nome123.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho123.Value = ""
                    txt_nome123.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 128).Value <> Empty Then
                    txt_Caminho124.Value = .Cells(MatrizResultadosLinha(0), 128).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 128), "")
                    txt_nome124.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho124.Value = ""
                    txt_nome124.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 129).Value <> Empty Then
                    txt_Caminho125.Value = .Cells(MatrizResultadosLinha(0), 129).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 129), "")
                    txt_nome125.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho125.Value = ""
                    txt_nome125.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 130).Value <> Empty Then
                    txt_Caminho126.Value = .Cells(MatrizResultadosLinha(0), 130).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 130), "")
                    txt_nome126.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho126.Value = ""
                    txt_nome126.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 131).Value <> Empty Then
                    txt_Caminho127.Value = .Cells(MatrizResultadosLinha(0), 131).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 131), "")
                    txt_nome127.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho127.Value = ""
                    txt_nome127.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 132).Value <> Empty Then
                    txt_Caminho128.Value = .Cells(MatrizResultadosLinha(0), 132).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 132), "")
                    txt_nome128.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho128.Value = ""
                    txt_nome128.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 133).Value <> Empty Then
                    txt_Caminho129.Value = .Cells(MatrizResultadosLinha(0), 133).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 133), "")
                    txt_nome129.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho129.Value = ""
                    txt_nome129.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 134).Value <> Empty Then
                    txt_Caminho130.Value = .Cells(MatrizResultadosLinha(0), 134).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 134), "")
                    txt_nome130.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho130.Value = ""
                    txt_nome130.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 135).Value <> Empty Then
                    txt_Caminho131.Value = .Cells(MatrizResultadosLinha(0), 135).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 135), "")
                    txt_nome131.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho131.Value = ""
                    txt_nome131.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 136).Value <> Empty Then
                    txt_Caminho132.Value = .Cells(MatrizResultadosLinha(0), 136).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 136), "")
                    txt_nome132.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho132.Value = ""
                    txt_nome132.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 137).Value <> Empty Then
                    txt_Caminho133.Value = .Cells(MatrizResultadosLinha(0), 137).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 137), "")
                    txt_nome133.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho133.Value = ""
                    txt_nome133.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 138).Value <> Empty Then
                    txt_Caminho134.Value = .Cells(MatrizResultadosLinha(0), 138).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 138), "")
                    txt_nome134.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho134.Value = ""
                    txt_nome134.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 139).Value <> Empty Then
                    txt_Caminho135.Value = .Cells(MatrizResultadosLinha(0), 139).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 139), "")
                    txt_nome135.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho135.Value = ""
                    txt_nome135.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 140).Value <> Empty Then
                    txt_Caminho136.Value = .Cells(MatrizResultadosLinha(0), 140).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 140), "")
                    txt_nome136.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho136.Value = ""
                    txt_nome136.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 141).Value <> Empty Then
                    txt_Caminho137.Value = .Cells(MatrizResultadosLinha(0), 141).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 141), "")
                    txt_nome137.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho137.Value = ""
                    txt_nome137.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 142).Value <> Empty Then
                    txt_Caminho138.Value = .Cells(MatrizResultadosLinha(0), 142).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 142), "")
                    txt_nome138.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho138.Value = ""
                    txt_nome138.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 143).Value <> Empty Then
                    txt_Caminho139.Value = .Cells(MatrizResultadosLinha(0), 143).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 143), "")
                    txt_nome139.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho139.Value = ""
                    txt_nome139.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 144).Value <> Empty Then
                    txt_Caminho140.Value = .Cells(MatrizResultadosLinha(0), 144).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 144), "")
                    txt_nome140.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho140.Value = ""
                    txt_nome140.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 145).Value <> Empty Then
                    txt_Caminho141.Value = .Cells(MatrizResultadosLinha(0), 145).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 145), "")
                    txt_nome141.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho141.Value = ""
                    txt_nome141.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 146).Value <> Empty Then
                    txt_Caminho142.Value = .Cells(MatrizResultadosLinha(0), 146).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 146), "")
                    txt_nome142.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho142.Value = ""
                    txt_nome142.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 147).Value <> Empty Then
                    txt_Caminho143.Value = .Cells(MatrizResultadosLinha(0), 147).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 147), "")
                    txt_nome143.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho143.Value = ""
                    txt_nome143.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 148).Value <> Empty Then
                    txt_Caminho144.Value = .Cells(MatrizResultadosLinha(0), 148).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 148), "")
                    txt_nome144.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho144.Value = ""
                    txt_nome144.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 149).Value <> Empty Then
                    txt_Caminho145.Value = .Cells(MatrizResultadosLinha(0), 149).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 149), "")
                    txt_nome145.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho145.Value = ""
                    txt_nome145.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 150).Value <> Empty Then
                    txt_Caminho146.Value = .Cells(MatrizResultadosLinha(0), 150).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 150), "")
                    txt_nome146.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho146.Value = ""
                    txt_nome146.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 151).Value <> Empty Then
                    txt_Caminho147.Value = .Cells(MatrizResultadosLinha(0), 151).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 151), "")
                    txt_nome147.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho147.Value = ""
                    txt_nome147.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 152).Value <> Empty Then
                    txt_Caminho148.Value = .Cells(MatrizResultadosLinha(0), 152).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 152), "")
                    txt_nome148.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho148.Value = ""
                    txt_nome148.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 153).Value <> Empty Then
                    txt_Caminho149.Value = .Cells(MatrizResultadosLinha(0), 153).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 153), "")
                    txt_nome149.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho149.Value = ""
                    txt_nome149.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 154).Value <> Empty Then
                    txt_Caminho150.Value = .Cells(MatrizResultadosLinha(0), 154).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 154), "")
                    txt_nome150.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho150.Value = ""
                    txt_nome150.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 155).Value <> Empty Then
                    txt_Caminho151.Value = .Cells(MatrizResultadosLinha(0), 155).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 155), "")
                    txt_nome151.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho151.Value = ""
                    txt_nome151.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 156).Value <> Empty Then
                    txt_Caminho152.Value = .Cells(MatrizResultadosLinha(0), 156).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 156), "")
                    txt_nome152.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho152.Value = ""
                    txt_nome152.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 157).Value <> Empty Then
                    txt_Caminho153.Value = .Cells(MatrizResultadosLinha(0), 157).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 157), "")
                    txt_nome153.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho153.Value = ""
                    txt_nome153.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 158).Value <> Empty Then
                    txt_Caminho154.Value = .Cells(MatrizResultadosLinha(0), 158).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 158), "")
                    txt_nome154.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho154.Value = ""
                    txt_nome154.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 159).Value <> Empty Then
                    txt_Caminho155.Value = .Cells(MatrizResultadosLinha(0), 159).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 159), "")
                    txt_nome155.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho155.Value = ""
                    txt_nome155.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 160).Value <> Empty Then
                    txt_Caminho156.Value = .Cells(MatrizResultadosLinha(0), 160).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 160), "")
                    txt_nome156.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho156.Value = ""
                    txt_nome156.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 161).Value <> Empty Then
                    txt_Caminho157.Value = .Cells(MatrizResultadosLinha(0), 161).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 161), "")
                    txt_nome157.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho157.Value = ""
                    txt_nome157.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 162).Value <> Empty Then
                    txt_Caminho158.Value = .Cells(MatrizResultadosLinha(0), 162).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 162), "")
                    txt_nome158.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho158.Value = ""
                    txt_nome158.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 163).Value <> Empty Then
                    txt_Caminho159.Value = .Cells(MatrizResultadosLinha(0), 163).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 163), "")
                    txt_nome159.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho159.Value = ""
                    txt_nome159.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 164).Value <> Empty Then
                    txt_Caminho160.Value = .Cells(MatrizResultadosLinha(0), 164).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 164), "")
                    txt_nome160.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho160.Value = ""
                    txt_nome160.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 165).Value <> Empty Then
                    txt_Caminho161.Value = .Cells(MatrizResultadosLinha(0), 165).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 165), "")
                    txt_nome161.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho161.Value = ""
                    txt_nome161.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 166).Value <> Empty Then
                    txt_Caminho162.Value = .Cells(MatrizResultadosLinha(0), 166).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 166), "")
                    txt_nome162.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho162.Value = ""
                    txt_nome162.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 167).Value <> Empty Then
                    txt_Caminho163.Value = .Cells(MatrizResultadosLinha(0), 167).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 167), "")
                    txt_nome163.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho163.Value = ""
                    txt_nome163.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 168).Value <> Empty Then
                    txt_Caminho164.Value = .Cells(MatrizResultadosLinha(0), 168).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 168), "")
                    txt_nome164.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho164.Value = ""
                    txt_nome164.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 169).Value <> Empty Then
                    txt_Caminho165.Value = .Cells(MatrizResultadosLinha(0), 169).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 169), "")
                    txt_nome165.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho165.Value = ""
                    txt_nome165.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 170).Value <> Empty Then
                    txt_Caminho166.Value = .Cells(MatrizResultadosLinha(0), 170).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 170), "")
                    txt_nome166.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho166.Value = ""
                    txt_nome166.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 171).Value <> Empty Then
                    txt_Caminho167.Value = .Cells(MatrizResultadosLinha(0), 171).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 171), "")
                    txt_nome167.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho167.Value = ""
                    txt_nome167.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 172).Value <> Empty Then
                    txt_Caminho168.Value = .Cells(MatrizResultadosLinha(0), 172).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 172), "")
                    txt_nome168.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho168.Value = ""
                    txt_nome168.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 173).Value <> Empty Then
                    txt_Caminho169.Value = .Cells(MatrizResultadosLinha(0), 173).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 173), "")
                    txt_nome169.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho169.Value = ""
                    txt_nome169.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 174).Value <> Empty Then
                    txt_Caminho170.Value = .Cells(MatrizResultadosLinha(0), 174).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 174), "")
                    txt_nome170.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho170.Value = ""
                    txt_nome170.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 175).Value <> Empty Then
                    txt_Caminho171.Value = .Cells(MatrizResultadosLinha(0), 175).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 175), "")
                    txt_nome171.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho171.Value = ""
                    txt_nome171.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 176).Value <> Empty Then
                    txt_Caminho172.Value = .Cells(MatrizResultadosLinha(0), 176).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 176), "")
                    txt_nome172.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho172.Value = ""
                    txt_nome172.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 177).Value <> Empty Then
                    txt_Caminho173.Value = .Cells(MatrizResultadosLinha(0), 177).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 177), "")
                    txt_nome173.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho173.Value = ""
                    txt_nome173.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 178).Value <> Empty Then
                    txt_Caminho174.Value = .Cells(MatrizResultadosLinha(0), 178).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 178), "")
                    txt_nome174.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho174.Value = ""
                    txt_nome174.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 179).Value <> Empty Then
                    txt_Caminho175.Value = .Cells(MatrizResultadosLinha(0), 179).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 179), "")
                    txt_nome175.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho175.Value = ""
                    txt_nome175.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 180).Value <> Empty Then
                    txt_Caminho176.Value = .Cells(MatrizResultadosLinha(0), 180).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 180), "")
                    txt_nome176.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho176.Value = ""
                    txt_nome176.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 181).Value <> Empty Then
                    txt_Caminho177.Value = .Cells(MatrizResultadosLinha(0), 181).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 181), "")
                    txt_nome177.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho177.Value = ""
                    txt_nome177.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 182).Value <> Empty Then
                    txt_Caminho178.Value = .Cells(MatrizResultadosLinha(0), 182).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 182), "")
                    txt_nome178.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho178.Value = ""
                    txt_nome178.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 183).Value <> Empty Then
                    txt_Caminho179.Value = .Cells(MatrizResultadosLinha(0), 183).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 183), "")
                    txt_nome179.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho179.Value = ""
                    txt_nome179.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 184).Value <> Empty Then
                    txt_Caminho180.Value = .Cells(MatrizResultadosLinha(0), 184).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 184), "")
                    txt_nome180.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho180.Value = ""
                    txt_nome180.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 185).Value <> Empty Then
                    txt_Caminho181.Value = .Cells(MatrizResultadosLinha(0), 185).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 185), "")
                    txt_nome181.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho181.Value = ""
                    txt_nome181.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 186).Value <> Empty Then
                    txt_Caminho182.Value = .Cells(MatrizResultadosLinha(0), 186).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 186), "")
                    txt_nome182.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho182.Value = ""
                    txt_nome182.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 187).Value <> Empty Then
                    txt_Caminho183.Value = .Cells(MatrizResultadosLinha(0), 187).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 187), "")
                    txt_nome183.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho183.Value = ""
                    txt_nome183.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 188).Value <> Empty Then
                    txt_Caminho184.Value = .Cells(MatrizResultadosLinha(0), 188).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 188), "")
                    txt_nome184.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho184.Value = ""
                    txt_nome184.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 189).Value <> Empty Then
                    txt_Caminho185.Value = .Cells(MatrizResultadosLinha(0), 189).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 189), "")
                    txt_nome185.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho185.Value = ""
                    txt_nome185.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 190).Value <> Empty Then
                    txt_Caminho186.Value = .Cells(MatrizResultadosLinha(0), 190).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 190), "")
                    txt_nome186.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho186.Value = ""
                    txt_nome186.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 191).Value <> Empty Then
                    txt_Caminho187.Value = .Cells(MatrizResultadosLinha(0), 191).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 191), "")
                    txt_nome187.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho187.Value = ""
                    txt_nome187.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 192).Value <> Empty Then
                    txt_Caminho188.Value = .Cells(MatrizResultadosLinha(0), 192).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 192), "")
                    txt_nome188.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho188.Value = ""
                    txt_nome188.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 193).Value <> Empty Then
                    txt_Caminho189.Value = .Cells(MatrizResultadosLinha(0), 193).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 193), "")
                    txt_nome189.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho189.Value = ""
                    txt_nome189.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 194).Value <> Empty Then
                    txt_Caminho190.Value = .Cells(MatrizResultadosLinha(0), 194).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 194), "")
                    txt_nome190.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho190.Value = ""
                    txt_nome190.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 195).Value <> Empty Then
                    txt_Caminho191.Value = .Cells(MatrizResultadosLinha(0), 195).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 195), "")
                    txt_nome191.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho191.Value = ""
                    txt_nome191.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 196).Value <> Empty Then
                    txt_Caminho192.Value = .Cells(MatrizResultadosLinha(0), 196).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 196), "")
                    txt_nome192.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho192.Value = ""
                    txt_nome192.Value = ""
                End If
                    
                If .Cells(MatrizResultadosLinha(0), 197).Value <> Empty Then
                    txt_Caminho193.Value = .Cells(MatrizResultadosLinha(0), 197).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 197), "")
                    txt_nome193.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho193.Value = ""
                    txt_nome193.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 198).Value <> Empty Then
                    txt_Caminho194.Value = .Cells(MatrizResultadosLinha(0), 198).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 48), "")
                    txt_nome194.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho194.Value = ""
                    txt_nome194.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 199).Value <> Empty Then
                    txt_Caminho195.Value = .Cells(MatrizResultadosLinha(0), 199).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 199), "")
                    txt_nome195.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho195.Value = ""
                    txt_nome195.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 200).Value <> Empty Then
                    txt_Caminho196.Value = .Cells(MatrizResultadosLinha(0), 200).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 200), "")
                    txt_nome196.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho196.Value = ""
                    txt_nome196.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 201).Value <> Empty Then
                    txt_Caminho197.Value = .Cells(MatrizResultadosLinha(0), 201).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 201), "")
                    txt_nome197.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho197.Value = ""
                    txt_nome197.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 202).Value <> Empty Then
                    txt_Caminho198.Value = .Cells(MatrizResultadosLinha(0), 202).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 202), "")
                    txt_nome198.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho198.Value = ""
                    txt_nome198.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 203).Value <> Empty Then
                    txt_Caminho199.Value = .Cells(MatrizResultadosLinha(0), 203).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 203), "")
                    txt_nome199.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho199.Value = ""
                    txt_nome199.Value = ""
                End If
                
                If .Cells(MatrizResultadosLinha(0), 204).Value <> Empty Then
                    txt_Caminho200.Value = .Cells(MatrizResultadosLinha(0), 204).Value
                    Arquivo = Split(.Cells(MatrizResultadosLinha(0), 204), "")
                    txt_nome200.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)
                Else
                    txt_Caminho200.Value = ""
                    txt_nome200.Value = ""
                End If
            
        End With
        
        btn_Editar.Enabled = True
        btn_Excluir.Enabled = True
    Else    'Caso nada tenha sido encontrado, exibe mensagem informativa
        SpinButton1.Enabled = False     'desabilita o seletor de registros
        btn_Editar.Enabled = False
        btn_Excluir.Enabled = False
        Label_Registros_Contador.Caption = ""   'zera os resultados encontrados
        'limpa os campos do formulário
        
        Call LimpaCampos
        
        MsgBox "Nenhum resultado para '" & TermoPesquisado & "' foi encontrado."
    End If
End Sub


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 02/04/2014 8:14 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

poste uma planilha com a macro explicando oq ela tem que fazer, se possível com algum dado para verificação de funcionamento correto.

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 02/04/2014 8:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico