×
Ir ao conteúdo
  • Cadastre-se

Revolucao

Membro Pleno
  • Posts

    41
  • Cadastrado em

  • Última visita

  1. 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
  2. @ScofieldgynValeu Brother, abraços!! @Midori Show!! Muito obrigado pela paciência, agradeço de coração a ajuda prestada, sucesso!!
  3. @Midori Desistindo.......... Muito obrigado pela ajuda!! Abraços!!
  4. @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.
  5. @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
  6. @Midori @Midori Boa tarde, Midori!! Infelizmente não estou conseguindo, já colei e recolei e não vai. Obriigado!!
  7. @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
  8. @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
  9. @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!!
  10. @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
  11. @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.
  12. @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.
  13. @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
  14. @Scofieldgyn Muito obrigado!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!