none
Comparar Dados da 1ª, 2ª e 3ª Colunas de Listbox, Com a Folha de Cálculo. RRS feed

  • Pergunta

  • Boa tarde.

    A minha folha de cálculo possui 7 colunas distribuídas desta forma:

    -------A--------------B----------------------------C--------------D----E-----------F---------G----------

    ------ANO-----------PAÍS-------DESCRIÇÃO DO EVENTO-----     --      ----------Nº-----DATA-------

    O Userform que interage com a folha de cálculo, possui um Listbox, 22 Optionbutton, 4 Checkbox, 4 Textbox e 3 CommandButton.

    Selecionando um OptionButton, o Listbox exibe na Coluna 1 os dados constantes na Folha na coluna A e que correspondem à Caption do Botão de Opção, na Coluna 2 exibe os dados da Coluna B da folha e na Coluna 3 o Listbox exibe os dados da Coluna C da folha. As checkbox1 e 2, ficam marcadas se as colunas D e E da folha forem diferentes de vazio, e as Textbox exibem os restantes dados.

    Até aqui, tudo corre perfeito.

    O Problema:

    Preciso que, selecionando um item da listbox e caso as Checkbox1 ou Checkbox2 se encontrem desmarcadas, as colunas 1,2 e 3 do Listbox sejam comparadas com as colunas A, B e C da folha, de forma que se selecionar a Checkbox3, grave na folha o "1" na coluna D, ou o "1" na coluna E se marcar a Checkbox4, ocorrendo isto na mesma linha onde foram comparados os dados.

    Penso que expus o problema de forma a ser entendido.

    Cumprimentos



    M_A_S_L






    • Editado M_A_S_L domingo, 5 de julho de 2015 15:51
    domingo, 5 de julho de 2015 15:47

Respostas

  • Boa noite, amigo André.

    Tal como pensava, a solução encontrada, bate certinho que nem um relógio. Afinal a solução esteve sempre à mão.

    Bastou para isso substituir o termo "And" por "&". Desta forma, criou-se uma string a incluir o valor das 3 células da folha, comparáveis com a mesma string do listbox, escrita com a sintaxe "Listbox1.Column(0,LINHA)", "Listbox1.Column(1,LINHA)" e "Listbox1.Column(2,LINHA)".

    Automaticamente fez-se luz e com mais uns pormenores pelo meio, está tal como desejo.

    O código do Listbox não se alterou, exceptuando o termo de comparação do valor do Range, que deixou de ser ="1", para ser >0.

    O código do botão "GRAVAR" ficou conforme posto abaixo.

    Private Sub CommandButton2_Click() Sheets("2EURO").Select Dim ANO As Long, COIN As Integer, LINHA As Integer, TTL As String ANO = Sheets("2EURO").Cells(Cells.Rows.Count, 1).End(xlUp).Row

    '================================Para Tipo A================================ If CheckBox3.Value = True Then For COIN = 1 To ANO

    LINHA = Me.ListBox1.ListIndex

    TTL = ListBox1.Column(0, LINHA) & ListBox1.Column(1, LINHA) & ListBox1.Column(2, LINHA) If Sheets("2EURO").Range("A" & COIN).Value & Sheets("2EURO").Range("B" & COIN).Value _ & Sheets("2EURO").Range("C" & COIN).Value = TTL Then Sheets("2EURO").Range("D" & COIN).Select If ActiveCell.Value >= 1 Then Dim RESP As String RESP = MsgBox("Pretende ''ADICIONAR'' Moedas?", vbQuestion + vbYesNo, _ "QUANTIDADE DE MOEDAS EXISTENTE") If RESP = vbNo Then If ActiveCell.Value = "1" Then MsgBox "PERMANECE REGISTADA" & "---" & ActiveCell.Value & "---" & _ "MOEDA", vbExclamation, "CONTEÚDO DA CÉLULA" End If If ActiveCell.Value > "1" Then MsgBox "PERMANECEM REGISTADAS" & "---" & ActiveCell.Value & "---" & _ "MOEDAS", vbExclamation, "CONTEÚDO DA CÉLULA" End If Else ActiveCell.Value = ActiveCell.Value + 1 MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox3.Caption, vbExclamation, "AVISO" End If Else ActiveCell.Value = "1" CheckBox1.Value = True MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox3.Caption, vbExclamation, "AVISO" End If End If Next COIN End If '======================================Para tipo B==================

    If CheckBox4.Value = True Then For COIN = 1 To ANO

    LINHA = Me.ListBox1.ListIndex

    TTL = ListBox1.Column(0, LINHA) & ListBox1.Column(1, LINHA) & ListBox1.Column(2, LINHA) If Sheets("2EURO").Range("A" & COIN).Value & Sheets("2EURO").Range("B" & COIN).Value _ & Sheets("2EURO").Range("C" & COIN).Value = TTL Then Sheets("2EURO").Range("E" & COIN).Select If ActiveCell.Value >= 1 Then RESP = MsgBox("Pretende ''ADICIONAR'' Moedas?", vbQuestion + vbYesNo, _ "QUANTIDADE DE MOEDAS EXISTENTE") If RESP = vbNo Then If ActiveCell.Value = "1" Then MsgBox "PERMANECE REGISTADA" & "---" & ActiveCell.Value & "---" & _ "MOEDA", vbExclamation, "CONTEÚDO DA CÉLULA" End If If ActiveCell.Value > "1" Then MsgBox "PERMANECEM REGISTADAS" & "---" & ActiveCell.Value & "---" & _ "MOEDAS", vbExclamation, "CONTEÚDO DA CÉLULA" End If Else ActiveCell.Value = ActiveCell.Value + 1 MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox4.Caption, vbExclamation, "AVISO" End If Else ActiveCell.Value = "1" CheckBox2.Value = True MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox4.Caption, vbExclamation, "AVISO" End If End If Next COIN End If CheckBox3.Value = False: CheckBox4.Value = False End Sub

    Desta forma posso prescindir da transferência de valores do ListBox para Caixas de Texto, para depois as comparar com a folha o que também me trás vantagens.

    O VBA tem destas coisas, às vezes dizemos:

    -Faz isto "And" isto.

    Ele não faz, mas se lhe dissermos:

    -Faz isto "&" isto.

    E ele faz.

    São estas coisas que fazem do VBA uma coisa linda.

    Os meus agradecimentos no entanto pela incondicional disponibilidade e aguardo um comentário seu ao código postado.

    Já agora, peço-lhe um favor. pode dar uma olhada em ...

    https://social.msdn.microsoft.com/Forums/pt-BR/0e665783-7ea2-48b5-bf3c-e12b9b07efef/pasta-classificada-como-ficheiro?forum=queforum

    Consegue dar-me alguma ajuda?

    Um obrigado de qualquer forma.

    Cumprimentos


    M_A_S_L




    • Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:55
    • Não Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:55
    • Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:56
    • Editado M_A_S_L sexta-feira, 10 de julho de 2015 22:51
    sexta-feira, 10 de julho de 2015 20:50

Todas as Respostas

  • Boa tarde.

    A minha folha de cálculo possui 7 colunas distribuídas desta forma:

    -------A--------------B----------------------------C--------------D----E-----------F---------G----------

    ------ANO-----------PAÍS-------DESCRIÇÃO DO EVENTO-----     --      ----------Nº-----DATA-------

    O Userform que interage com a folha de cálculo, possui um Listbox, 22 Optionbutton, 4 Checkbox, 4 Textbox e 3 CommandButton.

     Esqueci de referir que os dados das três colunas podem repetir-se, isto é:

    A2, A3,A4,A5,A6...An, podem ter o mesmo valor.

    B2,  B5, B6 ou B3, B4 ou B6, B7, B8 também podem ter o mesmo valor.

    A repetição na Coluna "C" poderá ou não ser igual à da Coluna "B".

    Grato a quem conseguir iluminar este meu caminho.

    Cumprimentos



    M_A_S_L

    segunda-feira, 6 de julho de 2015 16:29
  • "Preciso que, selecionando um item da listbox"

    Insira o código no evento click da listbox

    caso as Checkbox1 ou Checkbox2 se encontrem desmarcadas,

    If nomedoform.checkbox1.value = "" and nomedoform.checkbox2.value = "" Then
    
    End if 

    as colunas 1,2 e 3 do Listbox sejam comparadas com as colunas A, B e C da folha,

    Essa parte não entendi, as colunas tem dados em várias linhas ??

    Poderia descrever em mais detalhes daqui pra frente ?

    quarta-feira, 8 de julho de 2015 12:33
  • Olá André, Boa noite e muito Obrigado pela resposta.

    Desculpe a demora, mas só agora pude aceder ao forum.

    Estive a pesquisar sobre o assunto e descobri num forum que não é possível fazer a comparação que preciso diretamente do Listbox com a folha de cálculo. Sincereamente, percebo pouco de VBA para poder dizer se está certo ou errado, pois se é possível extraír os dados para outros Objetos, penso que será possível compará-los com os dados da folha. De qualquer forma, criei 3 caixas de texto e sempre que as chk1 ou chk2 estão desmarcadas, os valores das colunas do Listbox passam efetivamente para as caixas de texto.

    Tenho utilizado o código:

    If checkbox1.value = False or checkbox2.value = False Then
    
    End if 

    E o código faz direitinho o que preciso. Não estou a conseguir comparar os dados com a folha.

    Mas, vou tentar explicar melhor de forma a que o problema seja entendido.

                  

    A folha de cálculo contém os dados da imagem acima e sempre que existe o nº 1 ou não nas colunas "D" e "E", assim as chks mencionadas em cima ficam com Value=True ou Value=False. 

    O listbox, mediante seleção do OptionButton6, apresentará os dados das linhas 2,3 até 7, pois a Caption do botão de Opção é 2004. Então selecionando esse botão, são selecionados os dados que na coluna "A" contêm o valor 2004.

    O listbox apresenta os dados assim:

    Conforma a 1ª figura mostra, na primeira linha não existe nº 1 nas colunas "D" e "E", por isso as chk1 e 2 (Caption "Tipo A" e "Tipo B") não são assinaladas na figura 2 sendo os valores da linha selecionada no listbox transpostos para as textbox5,6 e 7 em baixo com fundo amarelo.

    Sempre que é detetado o nº 1 a chk repectiva fica marcada e com fundo verde.

    Preciso pois de comparar os dados transpostos para as textbox, com a respetiva linha da folha, de forma a encontrar a célula que que me permitirá ao selecionar a chk3 ou chk4, colocar na folha o nº 1.

    Marcando a chk3, será escrito nº1 na coluna "D", marcando a chk4, o nº1 será escrito na coluna "E".

    Como pode ver nas imagens, os dados exibidos no Listbox, encontram-se na folha na mesma linha e em columas diferentes.

    As repetições de dados, ocorrem conforme mostra a figura 1 e podem ocorrer nas colunas A, B e C mas nunca nas três em simultâneo.

    Como referi no post inicial, o evento Listbox_Click, está a funcionar na perfeição, exibe os dados pretendidos e transpões os dados para as textbox sempre que necessário.

    Não consigo encontrar a célula activa que me permita colocar na linha em causa o nº 1, nas colunas D ou E.

    Preciso pois de código que comparando a txt5 com a coluna A, comparando a txt6 com a coluna B e comparando a txt7 com a coluna C, se encontre a linha correta que contenha os três valores permitindo encontrar a celula ativa nessa linha.

    Será que consegui passar a ideia daquilo que preciso e esclarecer as dúvidas?

    Muito grato pela sua atenção estou ao dispor para qualquer esclarecimento.

    Cumprimentos


    M_A_S_L






    • Editado M_A_S_L quarta-feira, 8 de julho de 2015 23:23
    quarta-feira, 8 de julho de 2015 22:59
  • É possível sim comparar os dados da listbox com os da "folha".

    A listbox possui uma propriedade chamada list que permite acessar os dados da list

    nomedoform.nomedalistbox.list(linha, coluna) 

    Por exemplo:

    Listbox(0,0).list conforme o exemplo da figura retornaria 2004.

    Listbox(0, 1).list retornaria 'Finlandia'

    Para acessar os dados da "folha" você utiliza Sheets("NOMEDAFOLHA").range("enderecodacelula").value

    Sheets("nomedafolha").range("A3").value retornaria 'Alargamento da UE..."

    Você também pode usar Sheets("nomedafolha").cells(linha, coluna).value

    quinta-feira, 9 de julho de 2015 11:21
  • Olá André.

    Eu não pretendo acessar os dados da folha, apenas pretendo comparar os dados do listbox com os existentes na folha, pois o acesso já é feito quando os dados são apresentados no Listbox, certo?

    Código para o evento "Click" do Listbox:

    Private Sub ListBox1_Click()
    
    Dim lngRow As Long, COM As Long
    Dim sCaminho As String
    Dim s As String
    COM = Sheets("2EURO").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    For lngRow = 0 To ListBox1.ListIndex + 1
    CheckBox1.Value = False: CheckBox2.Value = False
    CheckBox1.BackColor = &H8000000F    ' CINZENTO CLARO
    CheckBox2.BackColor = &H8000000F    ' CINZENTO CLARO
    TextBox1.Value = ""
    TextBox2.Value = ""
    
    If OptionButton6.Value = True Then
    
    TextBox5.Value = "": TextBox6.Value = "": TextBox7.Value = ""
    
        If Range("2EURO!A" & lngRow + 1).Value = OptionButton6.Caption Then
            sCaminho = ThisWorkbook.Path & "\FOTOS\2004\" & lngRow & ".JPG"
            s = sCaminho & "\FOTOS\2004\" & "lngRow.JPG"
              If CaminhoExiste(sCaminho) Then
                On Error Resume Next
                Image1.Picture = LoadPicture(sCaminho)
              End If
              
              If Range("2EURO!D" & lngRow + 1).Value = "1" Then
                CheckBox1.Value = True
                CheckBox1.BackColor = &HFF00&   ' VERDE
              End If
              If Range("2EURO!E" & lngRow + 1).Value = "1" Then
                CheckBox2.Value = True
                CheckBox2.BackColor = &HFF00&   ' VERDE
              End If
            TextBox1.Value = Format(Range("2EURO!F" & lngRow + 1).Value, "###,###")
            TextBox2.Value = Range("2EURO!G" & lngRow + 1).Text
            
          End If
          
        If CheckBox1.Value = False Or CheckBox2.Value = False Then
        
            If OptionButton6.Value = True Then
            
    LINHA = Me.ListBox1.ListIndex
    
                TextBox5.Value = ListBox1.Column(0, LINHA)
                TextBox6.Value = ListBox1.Column(1, LINHA)
                TextBox7.Value = ListBox1.Column(2, LINHA)
                    
            End If
        
        End If
    End If
    
    'a partir daqui, encontra-se o código para os outros botões
    ' de Opção, cujo código é igual ao apresentado excepto nos ' Ranges e Imagens.
    
    End Sub

    Até aqui tudo funciona em pleno.

    Código que possuo no botão "Gravar" para efetuar registos na folha:

    Private Sub CommandButton2_Click() Sheets("2EURO").Select Dim ANO As Long, COIN As Integer, LINHA As Integer ANO = Sheets("2EURO").Cells(Cells.Rows.Count, 1).End(xlUp).Row

    If Checkbox3.value=true

    For COIN = 1 To ANO If TextBox5.Value = Sheets("2EURO").Range("A" & COIN).Value And _ TextBox6.Value = Sheets("2EURO").Range("B" & COIN).Value And _ TextBox7.Value = Sheets("2EURO").Range("C" & COIN).Value Then Sheets("2EURO").Range("D" & COIN).select

    activecell.value="1"

    End If Next COIN

    End if

    'Aqui é colocado o código para CHK4, alterando o Activecell para coluna "E".

    End Sub

    Perante estes códigos, onde devo e como devo colocar o código, de forma a apurar o Range correspondente à linha que reunir as três condições se Chk3 ou Chk4.Value=True?

    É esta parte que não consigo fazer funcionar.

    Porque não faz o código esta comparação?

    If TextBox5.Value = Sheets("2EURO").Range("A" & COIN).Value And _ TextBox6.Value = Sheets("2EURO").Range("B" & COIN).Value And _ TextBox7.Value = Sheets("2EURO").Range("C" & COIN).Value Then

    Cumprimentos


    M_A_S_L


    • Editado M_A_S_L quinta-feira, 9 de julho de 2015 16:55
    quinta-feira, 9 de julho de 2015 16:51
  • Aparece alguma mensagem de erro ?
    quinta-feira, 9 de julho de 2015 16:57
  • Não. Não dá nenhum erro e como pode ver não tenho a instrução "On Error Resume Next".

    Mas, não me faz o select da célula que pretendo. Apenas corre o código e não faz nada.

    Se eu utilizar a propriedade .List e o código ficar assim:

            If CheckBox3.Value = True Then
                    
                    For COIN = 1 To ANO
                                        
                        If ListBox1.List(0, 0) = Sheets("2EURO").Range("A" & COIN).Value And _
                           ListBox1.List(0, 1) = Sheets("2EURO").Range("B" & COIN).Value And _
                           ListBox1.List(0, 2) = Sheets("2EURO").Range("C" & COIN).Value Then
                          
                          MsgBox " PRECISO DE UM CÓDIGO." ' APENAS PARA EXPERIÊNCIA
                          Sheets("2EURO").Range("D" & COIN).Select
                          
                          ActiveCell.Value = "1"
                          
                        End If
                    Next COIN
            End If
    

    continua sem dar erro, mas também não me faz nada. Isto eu também já tinha experimentado antes de pedir ajuda.

    Mas se colocar "Listbox1(0,0).List" aqui já me dá erro de "Tipe Mysmatch", o mesmo acontecendo se colocar "Listbox1(0,0).Value".

    Cumprimentos


    M_A_S_L


    • Editado M_A_S_L quinta-feira, 9 de julho de 2015 22:46
    quinta-feira, 9 de julho de 2015 21:25
  • Ele chega a entrar no IF e executar o comando 'activecell.value = 1' ????

    Sugiro você verificar o address dessa activecell para verificar se é realmente a célula que você deseja


    • Editado André Santo sexta-feira, 10 de julho de 2015 16:47
    sexta-feira, 10 de julho de 2015 16:46
  • Amigo André,

    Tudo está correto, entra no ciclo e o Address está tal como desejado. No entanto penso que durante o dia de hoje,descobri a solução.

    Pensei em juntar os três valores comparáveis numa só String e fazer o mesmo com os dados da folha e penso que vai bater certinho.

    Deixe-me limar o código e quando chegar a casa posto o resultado.

    Até logo.

    Cumprimentos.


    M_A_S_L

    sexta-feira, 10 de julho de 2015 17:20
  • Boa noite, amigo André.

    Tal como pensava, a solução encontrada, bate certinho que nem um relógio. Afinal a solução esteve sempre à mão.

    Bastou para isso substituir o termo "And" por "&". Desta forma, criou-se uma string a incluir o valor das 3 células da folha, comparáveis com a mesma string do listbox, escrita com a sintaxe "Listbox1.Column(0,LINHA)", "Listbox1.Column(1,LINHA)" e "Listbox1.Column(2,LINHA)".

    Automaticamente fez-se luz e com mais uns pormenores pelo meio, está tal como desejo.

    O código do Listbox não se alterou, exceptuando o termo de comparação do valor do Range, que deixou de ser ="1", para ser >0.

    O código do botão "GRAVAR" ficou conforme posto abaixo.

    Private Sub CommandButton2_Click() Sheets("2EURO").Select Dim ANO As Long, COIN As Integer, LINHA As Integer, TTL As String ANO = Sheets("2EURO").Cells(Cells.Rows.Count, 1).End(xlUp).Row

    '================================Para Tipo A================================ If CheckBox3.Value = True Then For COIN = 1 To ANO

    LINHA = Me.ListBox1.ListIndex

    TTL = ListBox1.Column(0, LINHA) & ListBox1.Column(1, LINHA) & ListBox1.Column(2, LINHA) If Sheets("2EURO").Range("A" & COIN).Value & Sheets("2EURO").Range("B" & COIN).Value _ & Sheets("2EURO").Range("C" & COIN).Value = TTL Then Sheets("2EURO").Range("D" & COIN).Select If ActiveCell.Value >= 1 Then Dim RESP As String RESP = MsgBox("Pretende ''ADICIONAR'' Moedas?", vbQuestion + vbYesNo, _ "QUANTIDADE DE MOEDAS EXISTENTE") If RESP = vbNo Then If ActiveCell.Value = "1" Then MsgBox "PERMANECE REGISTADA" & "---" & ActiveCell.Value & "---" & _ "MOEDA", vbExclamation, "CONTEÚDO DA CÉLULA" End If If ActiveCell.Value > "1" Then MsgBox "PERMANECEM REGISTADAS" & "---" & ActiveCell.Value & "---" & _ "MOEDAS", vbExclamation, "CONTEÚDO DA CÉLULA" End If Else ActiveCell.Value = ActiveCell.Value + 1 MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox3.Caption, vbExclamation, "AVISO" End If Else ActiveCell.Value = "1" CheckBox1.Value = True MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox3.Caption, vbExclamation, "AVISO" End If End If Next COIN End If '======================================Para tipo B==================

    If CheckBox4.Value = True Then For COIN = 1 To ANO

    LINHA = Me.ListBox1.ListIndex

    TTL = ListBox1.Column(0, LINHA) & ListBox1.Column(1, LINHA) & ListBox1.Column(2, LINHA) If Sheets("2EURO").Range("A" & COIN).Value & Sheets("2EURO").Range("B" & COIN).Value _ & Sheets("2EURO").Range("C" & COIN).Value = TTL Then Sheets("2EURO").Range("E" & COIN).Select If ActiveCell.Value >= 1 Then RESP = MsgBox("Pretende ''ADICIONAR'' Moedas?", vbQuestion + vbYesNo, _ "QUANTIDADE DE MOEDAS EXISTENTE") If RESP = vbNo Then If ActiveCell.Value = "1" Then MsgBox "PERMANECE REGISTADA" & "---" & ActiveCell.Value & "---" & _ "MOEDA", vbExclamation, "CONTEÚDO DA CÉLULA" End If If ActiveCell.Value > "1" Then MsgBox "PERMANECEM REGISTADAS" & "---" & ActiveCell.Value & "---" & _ "MOEDAS", vbExclamation, "CONTEÚDO DA CÉLULA" End If Else ActiveCell.Value = ActiveCell.Value + 1 MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox4.Caption, vbExclamation, "AVISO" End If Else ActiveCell.Value = "1" CheckBox2.Value = True MsgBox " MOEDA ADICIONADA NA LISTA. " & vbLf & vbLf & vbLf & vbLf & _ ListBox1.Column(0, LINHA) & "------" & ListBox1.Column(1, LINHA) & "------" & CheckBox4.Caption, vbExclamation, "AVISO" End If End If Next COIN End If CheckBox3.Value = False: CheckBox4.Value = False End Sub

    Desta forma posso prescindir da transferência de valores do ListBox para Caixas de Texto, para depois as comparar com a folha o que também me trás vantagens.

    O VBA tem destas coisas, às vezes dizemos:

    -Faz isto "And" isto.

    Ele não faz, mas se lhe dissermos:

    -Faz isto "&" isto.

    E ele faz.

    São estas coisas que fazem do VBA uma coisa linda.

    Os meus agradecimentos no entanto pela incondicional disponibilidade e aguardo um comentário seu ao código postado.

    Já agora, peço-lhe um favor. pode dar uma olhada em ...

    https://social.msdn.microsoft.com/Forums/pt-BR/0e665783-7ea2-48b5-bf3c-e12b9b07efef/pasta-classificada-como-ficheiro?forum=queforum

    Consegue dar-me alguma ajuda?

    Um obrigado de qualquer forma.

    Cumprimentos


    M_A_S_L




    • Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:55
    • Não Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:55
    • Marcado como Resposta M_A_S_L sexta-feira, 10 de julho de 2015 20:56
    • Editado M_A_S_L sexta-feira, 10 de julho de 2015 22:51
    sexta-feira, 10 de julho de 2015 20:50
  • Que bom que funcionou, vou dar uma olhada no outro tópico !
    segunda-feira, 13 de julho de 2015 13:02