Revolucao

Maravilha de explicação, uma verdadeira aula!! Obrigado, sucesso!! @Midori @Midori Colei o código abaixo: Private Sub Worksheet_Change(ByVal Target As Range) If Not [Tab_Vendas].ListObject.DataBodyRange Is Nothing Then If Application.Intersect( _ Target, [Tab_Vendas].ListObject.ListColumns("Cód_Produto").DataBodyRange) Then Dim Comentario As String Comentario = ProcuraComentario(Target, _ [Tab_Produto].ListObject.ListColumns("Sequencia").Range, 2) If Not Target.Offset(0, 1).Comment Is Nothing Then Target.Offset(0, 1).Comment.Delete End If If Comentario <> "" Then Call Target.Offset(0, 1).AddComment(Comentario) End If End If End If End Sub Segue arquivo

@ScofieldgynValeu Brother, abraços!! @Midori Show!! Muito obrigado pela paciência, agradeço de coração a ajuda prestada, sucesso!!

@Midori Desistindo.......... Muito obrigado pela ajuda!! Abraços!!

@Scofieldgyn voce mudou os vencimentos que estavam com datas e colocou como valor, não entendi. Tem que usar a Planilha na sua forma original.

@Midori

@Midori Colei o código abaixo: Private Sub Worksheet_Change(ByVal Target As Range) If Not [Tab_Vendas].ListObject.DataBodyRange Is Nothing Then If Application.Intersect( _ Target, [Tab_Vendas].ListObject.ListColumns("Cód_Produto").DataBodyRange) Then Dim Comentario As String Comentario = ProcuraComentario(Target, _ [Tab_Produto].ListObject.ListColumns("Sequencia").Range, 2) If Not Target.Offset(0, 1).Comment Is Nothing Then Target.Offset(0, 1).Comment.Delete End If If Comentario <> "" Then Call Target.Offset(0, 1).AddComment(Comentario) End If End If End If End Sub Segue arquivo Vendas pacote.rar

@Midori @Midori Boa tarde, Midori!! Infelizmente não estou conseguindo, já colei e recolei e não vai. Obriigado!!

@Scofieldgyn @Scofieldgyn Bom dia!! Hoje que olhei com calma sua solução achei interessante, mas na verdade não é assim que preciso. Preciso que seja feito o somatório em cima da minha Planilha, segue anexo novamente, agora com a fórmula somar produto que fiz para testar e esta dando erro. Se voce conseguir corrigir. Obrigado!! Parcelamento.rar

@Scofieldgyn Isso mesmo!! @Midori Boa noite!! Não to conseguindo😒, segue o arquivo, inseri o código e não foi. Vendas pacote-3.rar

@Scofieldgyn Boa noite!! Baixo, mas não consigo extrair. Quando conseguir te aviso. Obrigado!! @Swalls Nossa que estranho!! Mas tudo bem obrigado, a solução do amigo Scofieldgyn, deu certo!! Abraços!! @Scofieldgyn Show, certinho!! Muito obrigado!!

@Midori Boa tarde, Midori!! Não sei se não fiz certo mas não deu, colei o código em um módulo e a formula na tela de vendas. Segue anexo. Vendas pacote.rar

@Scofieldgyn Não seria desta forma, preciso que o comentário venha realmente em forma de comentário como esta no cadastro de produto, inserido dentro da coluna produtos da tela de vendas.

@Scofieldgyn Bom dia!! Simples na aba Mov_venda, na coluna Cód_Produto quando eu digitar o código do produto, na coluna C= PRODUTO ele puxa o nome do produto pelo procv, mas eu gostaria que além do nome do produto ele puxasse também o comentário descrito la na aba produtos.

@Scofieldgyn @Scofieldgyn Meu caro!! Fiz o teste e ficou bem estranho, segue anexo para você dar uma olhada!! A ideia era ao digitar o código e puxar o produto pelo provcv, viesse o comentário junto. muito obrigado!! Vendas pacote.rar

@Scofieldgyn Muito obrigado!!