Página 1 de 1
Extrair dados de uma plan para outra com base em um criterio
Enviado: 19 Set 2016 às 17:19
por Repinaldo
Boa tarde!
Tenho uma Planilha com 4 abas (conforme anexo).
Minha planilha estoque é minha base de todos os dados que preciso.
Gostaria de toda vez que inserisse um número na coluna E (plan2), os dados da descrição sejam inseridos na plan2 (para as colunas A e B) e assim sucessivamente. Qdo inserisse na coluna F (plan3) os mesmos dados iriam pra planilha Plan3.
Teria como me ajudar nesse caso?
Caso não tenha ficado esclarecido, tento explicar de uma forma melhor.
Obrigado!
Re: Extrair dados de uma plan para outra com base em um crit
Enviado: 20 Set 2016 às 11:03
por Repinaldo
Corrigindo: Gostaria de toda vez que inserisse um número na coluna E (plan2) da Aba Estoque, os dados da descrição sejam inseridos na plan2 (para as colunas A e B) e assim sucessivamente. Qdo inserisse na coluna F (plan3) os mesmos dados iriam pra planilha Plan3.
Extrair dados de uma plan para outra com base em um criterio
Enviado: 20 Set 2016 às 11:58
por FelipeMGarcia
Você quer que traga os nomes dos produtos, é isso? Se a quantidade for igual, qual ele deve trazer? Se tiver que trazer todos, tem que criar um critério de desempate.
Re: Extrair dados de uma plan para outra com base em um crit
Enviado: 20 Set 2016 às 14:55
por alexandrevba
Boa tarde!!
Veja se ajuda...
Baixe o anexo.
Após habilitar as macros, entre com o valor nas colunas (E,F,G), para que sejam copiados para suas respectivas guias.
Att
Re: Extrair dados de uma plan para outra com base em um crit
Enviado: 20 Set 2016 às 18:05
por Repinaldo
alexandrevba,
Muito obrigado pela ajuda!
É quase isso que você me mandou, porém quero que saia a descrição do produto (coluna A) e o preenchimento da coluna E, F ou G saiam na coluna QTDE das respectivas Abas.
Mandei anexo o modelo novamente, acho que conseguirá entender.
Agradeço novamente.
Att,
Re: Extrair dados de uma plan para outra com base em um crit
Enviado: 21 Set 2016 às 08:35
por alexandrevba
Bom dia!!
Altere para....
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, Range("E2:E67")) Is Nothing Then
Worksheets("Plan2").Range("A1").End(xlDown).Offset(1).Value = Target.Offset(0, -4).Value
Worksheets("Plan2").Range("A1").End(xlDown).Offset(0, 1).Value = Target.Value
ElseIf Not Intersect(Target, Range("F2:F67")) Is Nothing Then
Worksheets("Plan3").Range("A1").End(xlDown).Offset(1).Value = Target.Offset(0, -5).Value
Worksheets("Plan3").Range("A1").End(xlDown).Offset(0, 1).Value = Target.Value
ElseIf Not Intersect(Target, Range("G2:G67")) Is Nothing Then
Worksheets("Plan4").Range("A1").End(xlDown).Offset(1).Value = Target.Offset(0, -6).Value
Worksheets("Plan4").Range("A1").End(xlDown).Offset(0, 1).Value = Target.Value
End If
End Sub
Att