VBA - Salvar como com preenchiments obrigatórios não funcion

2024 - VBA & Macros

Post Recente por ever 10 anos atrás

3 Posts

2 Usuários

0 Reactions

902 Visualizações

RSS

ever

(@ever)

Posts: 36

Eminent Member

Topic starter

Bom dia pessoal,

Sei que já tem bastante tópico parecido, mas minha vba não está dando totalmente certa.
Preciso que uma fórmula só possa "salvar como" depois que determinadas células estejam preenchidas, minha fórmula está funcionando, mas nao obriga a preencher TODAS as células mencionadas, apenas as duas primeiras. Por favor, me ajudem! Segue meu código.

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

If WorksheetFunction.CountA(Range("A5, A7, A9, A11, A14, A16, G7, N5, N9, O11, P9, P14, P16, T7, V9, W5, Z7, AC12, AC14, AC16")) < 3 Then
MsgBox "Preenchar células obrigatórias"
Cancel = True
End If
End Sub

Postado : 11/12/2014 4:41 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Já tentou assim?

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

If WorksheetFunction.CountA(Range("A5, A7, A9, A11, A14, A16, G7, N5, N9, O11, P9, P14, P16, T7, V9, W5, Z7, AC12, AC14, AC16")) < 20 Then
MsgBox "Preenchar células obrigatórias"
Cancel = True
End If
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 11/12/2014 5:41 am