Usuário com melhor resposta
Solução por Vba e outra por Formula

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
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
Todas as Respostas
-
-
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
-
-
Certissimo. Copiar os valores para esse ou outros intervalos, dependendo da necessidade.
- Editado carlito_penna terça-feira, 23 de junho de 2015 17:38
-
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
-
-
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
-