Solução por Vba e outra por Formula

Question

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

Answer 1

Carlito,

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

Answer 2

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

Answer 3

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' 

??

Answer 4

Certissimo. Copiar os valores para esse ou outros intervalos, dependendo da necessidade.

Answer 5

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

Answer 6

Alguma coisa não saiu nos conformes, troquei o "xis" por "x", ainda assim não deu certo.

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

Answer 7

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

Answer 8

Muito grato,André Santo