Excel Procv puxar também o comentário

[Revolucao]

Tenho uma base de produtos e dentro de cada coluna chamada nome tem um comentário, tenho ou aba onde lanço as vendas, digito o código e o procv puxa o nome do produto.

 

Como faço para que além do nome do produto ele puxe também o comentário?

 

Segue arquivo.

 

Obrigado!!

Vendas pacote.rar

[Scofieldgyn]

@Revolucao

 

Em um módulo, cole o código abaixo:

 

Function getComment(incell) As String
   On Error Resume Next
        getComment = VBA.Replace(incell.Comment.Text, Excel.Application.UserName & ":", "")
   On Error GoTo 0
End Function

 

Em alguma célula digite a fórmula, =getComment(aqui a célula onde está o comentário)

 

[Revolucao]

@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]

@Revolucao Não entendi bem o que você gostaria que ficasse, faz um exemplo como gostaria que ficasse.

[Revolucao]

@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]

@Revolucao Entendi,

 

Você resolve isso com um simples PROCV, como você já possui a coluna de comentário extraído pronto na aba Cad_Prod, é só lançar um PROCV na aba Mov_venda.

 

veja o exemplo que fiz na aba Mov_venda, ai quando digitar qualquer código de produto, automaticamente vai trazer o comentário da primeira aba. Isso ajuda?

 

[Revolucao]

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

[Midori]

@Revolucao Veja se assim resolve,

 

Function ProcuraComentario(Valor As Range, Area As Range, Deslocamento As Integer) As String
    Dim Celula As Range
    
    Set Celula = Area.Columns(1).Find( _
        What:=Valor.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not Celula Is Nothing Then
        Set Celula = Celula.Columns(Deslocamento)
        If Not Celula.Comment Is Nothing Then
            ProcuraComentario = Celula.Comment.Text
        End If
    End If
End Function

 

E na célula entre com o nome da fórmula, p.ex,

 

=PROCURACOMENTARIO(Tab_Vendas[@[Cód_Produto]];COD_produto;2)

[Revolucao]

@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

[Midori]

@Revolucao Os comentários foram acrescentados, mas a formatação da sua tabela ocultou. Se aumentar o tamanho da linha eles vão aparecer.

[Scofieldgyn]

@Midori Se eu entendi bem o que ele quer, é que o comentário vá (como comentário) e não dentro da célula.

 

 

[Midori]

@Revolucao Para adicionar o comentário, a macro do Change fica assim,

 

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

 

Ai também usei a função ProcuraComentario que postei no post anterior. Antes da adição do comentário a macro verifica se já existe algum na célula ao lado. Caso exista ele será substituído pelo da busca ou apenas removido caso o código não exista.

[Revolucao]

@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

[Midori]

@Revolucao Não é para usar a fórmula como comentei no primeiro post. Cole as macros no módulo, assim o comentário será adicionado quando digitar o código na planilha,

 

[Revolucao]

@Midori @Midori Boa tarde, Midori!!

Infelizmente não estou conseguindo, já colei e recolei e não vai.

Obriigado!!

[Midori]

@Revolucao Colou em Mov_Venda como demonstrado no print? Se fez isso e digitou um código válido na coluna Cód_Produto da planilha Mov_Venda o comentário vai aparecer na coluna ao lado...

[Revolucao]

@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]

@Revolucao Colou no módulo errado. Veja que comentei acima que tem que ser no módulo Mov_Venda (está selecionado no print) e não no Módulo5.

[Revolucao]

@Midori

 

[Midori]

@Revolucao Faltou colar a outra função ProcuraComentario como demonstrado no print.

[Scofieldgyn]

@Revolucao Não esquece de colar a fórmula PROCV na célula.

 

[Revolucao]

1 hora atrás, Scofieldgyn disse:

@Revolucao Não esquece de colar a fórmula PROCV na célula.

Já fiz isso, mas não deu certo.

 

@Midori Desistindo..........

Muito obrigado pela ajuda!!

Abraços!!

[Scofieldgyn]

@Revolucao cara não desista assim fácil, a solução da @Midori foi ótimo pra resolver seu caso, faltou um pouco de você insistir.

 

segue em anexo.

 

 

Vendas pacote.7z

[Revolucao]

2 horas atrás, Midori disse:

@Revolucao Faltou colar a outra função ProcuraComentario como demonstrado no print.
Show!! Muito obrigado pela paciência, agradeço de coração a ajuda prestada, sucesso!!

@ScofieldgynValeu Brother, abraços!!

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

[Midori]

@Revolucao A dificuldade em colocar o código no módulo correto deve ser porque falta conhecer um pouco mais os componentes do editor do VBA.

 

Veja que no print que você postou no canto esquerdo tem o explorador de projeto "Projeto - VBAProject". Lá é onde fica a hierarquia dos projetos das suas planilhas e os elementos de cada um. Entre eles estão os módulos e para editar um código em qualquer um é com clique duplo.

 

No caso da sua planilha eles estão em VBAProject (Vendas pacote.xlsm) e lá tem estas duas ramificações (ou pastas):

 

Microsoft Excel Objetos: Aí tem os módulos Workbook (EstaPastaDeTrabalho) e Sheet (Cad_Prod e Mov_Venda). Cada planilha que você cria terá um módulo associado a ela. E nesses módulos é onde devem ficar os procedimentos que são ativados por evento como o Change que postei.

 

Módulos: Aí ficam os módulos que alguns chamam de Standard e que podem ser adicionados em Inserir > Módulo.

 

Além desses também tem Class e Form.