- 03 Fev 2016 às 07:00
#7288
Caros,
poderiam me auxiliar na macro para eu determinar que mais de uma célula seja preenchida obrigatoriamente.
A macro que estou utilizando é:
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'impede salvar se houver celula vazia 'M31'
If Application.CountBlank(Range("M31")) > 0 Then
MsgBox "O campo OBRA não está preenchido." & vbLf & _
"Documento não será salvo", vbExclamation
Cancel = True
End If
End Sub
Preciso acrescentar mais duas células para serem preenchidas: K10 e L10. Porém, para elas deverá aparecer:
MsgBox " O campo DATA não está preenchido"
Além de continuar a informação caso a célula M31 não seja preenchida.
Grato
Luciano
poderiam me auxiliar na macro para eu determinar que mais de uma célula seja preenchida obrigatoriamente.
A macro que estou utilizando é:
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'impede salvar se houver celula vazia 'M31'
If Application.CountBlank(Range("M31")) > 0 Then
MsgBox "O campo OBRA não está preenchido." & vbLf & _
"Documento não será salvo", vbExclamation
Cancel = True
End If
End Sub
Preciso acrescentar mais duas células para serem preenchidas: K10 e L10. Porém, para elas deverá aparecer:
MsgBox " O campo DATA não está preenchido"
Além de continuar a informação caso a célula M31 não seja preenchida.
Grato
Luciano
