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