Excel Mensagem de erro para valores duplicados

LucasExcel · 12 de maio de 2021

Bom dia,

Eu tenho uma planilha que ao apertar o botão cadastrar le um código em Vba que inseri os valores da aba "Painel", célula G12 até M12 na aba "Tabela" na primeira linha vazia .

É possível que sempre que eu apertar o botão cadastrar o excel gere uma mensagem e não insira os valores na aba "Tabela" se o numero da célula M12 ja estiver cadastrado em alguma linha da coluna J?

Código que eu tenho na planilha do botão do Cadastrar

Sub Cadastrar()
'
' Essa macro copia as células G12 até M12 e cola na primeira célula vazia da planilha Tabela
'

'
On Error Resume Next
Sheets("Painel").Select
Range("g12").Select
If Range("g12") <> "" Then Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Tabela").Select
Application.Goto Reference:="R1C4"
Selection.End(xlDown).Select
If Range("d2") = "" Then Range("d1").Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("D:D").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("E:E").Select
Selection.NumberFormat = "h:mm;@"
Range("Tabela1[[#Headers],[Mês]]").Select
Application.Goto Reference:="R1C4"
Selection.End(xlDown).Select

Call Salvar
Sheets("Ticket").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Painel").Select
Range("J12:M12").Select
Selection.ClearContents
Range("M24").Select
Selection.ClearContents
Range("M25").Select
Selection.ClearContents
Range("K12").Select
ActiveCell.FormulaR1C1 = "=R[13]C[2]-R[12]C[2]"
Range("Tabela13[Carreta]").Select
End Sub