none
Solução por Vba e outra por Formula RRS feed

  • Pergunta

  • Bom dia 

    No link abaixo, duas plan precisando de solução: A 1ª, é copiar valores de determinadas colunas tendo como parametros de uma linha, previamente informada com "xis".

    A 2ª Tenho uma matricial que não resolve a questão.

    Grato

     https://www.sendspace.com/file/w3wio8


    segunda-feira, 22 de junho de 2015 15:17

Respostas

  • Agora está perfeita, por favor marque como resposta:

    Sub procuraValores()
    
    Sheets("Plan1").Select
    
    For Each cell In Range("H2:AK2")
        If cell.Value Like "x" Then
        
                Range(cell.Offset(2, 0), cell.Offset(14, 0).Address).Copy
    
                Cells(20, cell.Column).Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
        
        End If
    Next cell
    
    End Sub
    
    
    

    • Marcado como Resposta carlito_penna terça-feira, 23 de junho de 2015 19:13
    terça-feira, 23 de junho de 2015 19:08

Todas as Respostas

  • Carlito,

    Sugiro que você descreva melhor o problema no tópico aqui do fórum para que todos possam analisar e discutir.

    terça-feira, 23 de junho de 2015 11:08
  • Meu caro Andre Santo, é simples a descrição:

    A tabela H4:AK16, é preenchida com valores avulsos, colocando-se, os parâmetros “xis” em H2:AK2, a rotina identifica quais são as colunas (parametrizadas) que devem ser copiadas para H20:AK32. No outro pedido de ajuda (Matricial) vou ficar com a solução/ matricial que havia postado antes.

    Grato

    terça-feira, 23 de junho de 2015 14:56
  • Deixe-me ver se entendi,

    Trata-se basicamente de varrer 'H2:AK2', pegar o que tiver escrito 'xis' e copiar a coluna inteira para 'H20:AK32' 

    ??

    terça-feira, 23 de junho de 2015 15:46
  • Certissimo. Copiar os valores para esse ou outros intervalos, dependendo da necessidade.
    terça-feira, 23 de junho de 2015 17:31
  • Veja se funciona:

    Não esqueça de trocar 'Plan1' pelo nome da sua guia.

    Sub procuraValores()
    
    Sheets("Plan1").Select
    
    For Each cell In Range("AH2:AK2")
        If cell.Value Like "xis" Then
        
                Range(cell.Address, cell.Offset(20, 0).Address).Copy
    
                Cells(20, cell.Column).Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
        
        End If
    Next cell
    
    End Sub

    • Sugerido como Resposta André Santo terça-feira, 23 de junho de 2015 17:46
    terça-feira, 23 de junho de 2015 17:46
  • Alguma coisa não saiu nos conformes, troquei o "xis" por "x", ainda assim não deu certo.

    https://www.sendspace.com/file/loxw4i


    terça-feira, 23 de junho de 2015 18:58
  • Agora está perfeita, por favor marque como resposta:

    Sub procuraValores()
    
    Sheets("Plan1").Select
    
    For Each cell In Range("H2:AK2")
        If cell.Value Like "x" Then
        
                Range(cell.Offset(2, 0), cell.Offset(14, 0).Address).Copy
    
                Cells(20, cell.Column).Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
        
        End If
    Next cell
    
    End Sub
    
    
    

    • Marcado como Resposta carlito_penna terça-feira, 23 de junho de 2015 19:13
    terça-feira, 23 de junho de 2015 19:08
  • Muito grato,André Santo
    terça-feira, 23 de junho de 2015 19:13