contador vba

[DUDUGELADO]

Boa tarde galera.

 

Estou tentando adicionar um contador de numero de orçamento em minha planilha, porém todas as tentativas não deram certas...já usei os comandos:

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If MsgBox("deseja incrementar o número do ORÇAMENTO?", _
 vbQuestion + vbYesNo, "ORÇAMENTO") = vbYes Then
  With Sheets("Orçamento")
   .Range("B7").Value = .Range("B7").Value + 1
  End With
End Sub

 

e não tive sucesso...

alguem me da um Help .....

 

 

 

 

[Basole]

Segue com a alteração: 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("deseja incrementar o número do ORÇAMENTO?", _
 vbQuestion + vbYesNo, "ORÇAMENTO") = vbYes Then
  With Sheets("Orçamento")
   .Range("B7").Value = .Range("B7").Value + 1
  End With
  End If
End Sub

 

[DUDUGELADO]

7 minutos atrás, Basole disse:

Segue com a alteração: 

 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If MsgBox("deseja incrementar o número do ORÇAMENTO?", _
 vbQuestion + vbYesNo, "ORÇAMENTO") = vbYes Then
  With Sheets("Orçamento")
   .Range("B7").Value = .Range("B7").Value + 1
  End With
  End If
End Sub

Obrigado pela ajuda, e desculpa minha ignorância, copiei e colei no campo do vba, porém não surtiu efeito, é necessário algum outro procedimento apos a inserção desse comando ?

 

 

 

[Basole]

voce tem que colocar este codigo no editor vbe em "EstaPasta_de_trabalho" vide imagem: 

E esta macro só sera executada quando clicar no botão Salvar

 

 

[DUDUGELADO]

obrigado...deu certo !!

muito grato pela ajuda .