Macro para aparecer pop-up caso tenha célula com nome igual
Enviado: 05 Mai 2016 às 15:28
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:
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
Obrigado desde já!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
