Este fórum está sendo desativado

[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!

[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.

[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.

[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

[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,

[alexandrevba]

Bom dia!!

Altere para....

Código: Selecionar todos

Private 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