Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#10419
Olá,
Estou criando uma planilha de estoque onde fiz uma macro para cadastrar produtos, inserindo eles em sequência nas linhas da planilha.
Gostaria de adicionar um código na minha macro que "faça uma pesquisa" na coluna A para ver se o nome digitado na célula A3 já existe na base de dados. Caso exista, retornar uma popup e parar a macro antes de fazer a cópia das células para colar na base de dados.

A macro de cadastro atual é a seguinte:
Código: Selecionar todos
Sub Novos_Produtos()
'
' Novos_Produtos Macro
'
' Atalho do teclado: Ctrl+Shift+N
'
    Range("A3:E3").Select
    Selection.Copy
        Do
        If ActiveCell <> "" Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = ""
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Produtos").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Produtos").Sort.SortFields.Add Key:=Range( _
        "A8:A5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Produtos").Sort
        .SetRange Range("A5:E5000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Obrigado desde já!
#10444
Boa noite, Amigos.

Segue a planilha anexa.
Aproveitando a boa vontade de vcs, além da macro, estou com dificuldades para mostrar na tabela dinâmica da aba "Estoque" dessa pasta de trabalho o valor em estoque, por produto, de acordo com os lançamentos na aba "Registros".
Eu gostaria de simplesmente somar o custo total de todas as entradas do produto e subtrair as saídas de acordo com o custo médio unitário do produto. Mostrando em uma coluna o valor em estoque de cada produto.

Muito obrigado desde já
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord