Notifications
Clear all

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

3 Posts
2 Usuários
0 Reactions
894 Visualizações
 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
 ever
(@ever)
Posts: 36
Eminent Member
Topic starter
 

PUUUUTS! ERA ÓBVIO.

MUITO OBRIGADO, BOM DIA!

 
Postado : 11/12/2014 6:27 am