Inserir fórmula numa Macro

Question

Bom dia Prezados,

Tenho uma macro que funciona muito bem. Contudo gostaria de acrescentar um procedimento importante. Preciso incluir 2 procedimentos no início da macro (transcrevo a macro mais abaixo e em vermelho) uma validação através da seguinte fórmula:

1- Preciso que quando a célula "K13" da planilha "Vendas" estiver vazia o macro retornar a seguinte mensagem: "Código da comanda não foi digitado";

2 - logo a seguir incluir a validação seguinte: 

=NÃO(CONT.SE(Relatório!$C$5:$C$15000;K13&K7)>=1)

O nome da Planilha das células "K13" e "K7" é "Vendas".

Veja a macro abaixo. Peço, se possível inserir na macro abaixo para que eu possa apenas copiar e colar. Muito obrigado. Marco.

Sub Gravar_Vendas()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Sheets("Relatório").Unprotect "M1226a3646g5780S122636465780RecriaPI"

Dim Data As Date

Dim Atendente As Integer

Dim NPedido As Double

Dim NCodigo As Double

Dim Descr As String

Dim Unidade As String

Dim quant As Double

Dim Desc As Double

Dim Preco As Double

Dim Total As Double

Dim UltimaCel As Integer

Dim QuantDados As Integer

Dim linha As Integer

QuantDados = Sheets("Vendas").Range("E32").End(xlUp).Row

linha = 17

While linha < QuantDados + 1

Sheets("Vendas").Select

 Data = Range("K7").Value

 NPedido = Range("k13").Value

 Atendente = Range("f7").Value

 NCodigo = Range("E" & linha).Value

 Descr = Range("F" & linha).Value

 Unidade = Range("G" & linha).Value

 quant = Range("H" & linha).Value

 Desc = Range("I" & linha).Value

 Preco = Range("J" & linha).Value

 Total = Range("K" & linha).Value

Sheets("Relatório").Select

UltimaCel = Range("D65000").End(xlUp).Row + 1

Range("D" & UltimaCel).Value = Data

Range("F" & UltimaCel).Value = Atendente

 Range("G" & UltimaCel).Value = NPedido

 Range("H" & UltimaCel).Value = NCodigo

 Range("I" & UltimaCel).Value = Descr

 Range("j" & UltimaCel).Value = Unidade

 Range("K" & UltimaCel).Value = quant

 Range("L" & UltimaCel).Value = Desc

 Range("M" & UltimaCel).Value = Preco

 Range("N" & UltimaCel).Value = Total

 linha = linha + 1

Wend

Sheets("Vendas").Select

MsgBox "Venda Gravada"

Range("Q17").Select

Selection.ClearContents

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Sheets("Relatório").Protect "M1226a3646g5780S122636465780RecriaPI"

End Sub

Answer 1

Olá Marco AntonioGomes de Sales, tudo bem?

Desde já pedimos desculpas na demora da resposta.

Para obter maiores esclarecimentos sobre macros, peço a gentileza de acessar o link abaixo, que vai direcioná-la à página da TECHNET que é um fórum especialmente destinado para área corporativa e profissionais em TI.

http://social.technet.microsoft.com/Forums/pt-b...

Para criar uma nova thread no fórum da TechNet, acesse: https://social.technet.microsoft.com/Forums/pt-...

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Se essa informação foi útil, marque-a como resposta.

Até mais!