Notifications
Clear all

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

3 Posts
2 Usuários
0 Reactions
887 Visualizações
 ever
(@ever)
Posts: 0
New 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
(@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

 
Postado : 11/12/2014 5:41 am
 ever
(@ever)
Posts: 0
New Member
Topic starter
 

PUUUUTS! ERA ÓBVIO.

MUITO OBRIGADO, BOM DIA!

 
Postado : 11/12/2014 6:27 am