Este fórum está sendo desativado

[sarahbettoni]

Bom dia!

Tenho uma tabela com colunas de registro do número da oportunidade(coluna A), nome do cliente (coluna B), segmento (coluna C), Solução (coluna D), etc.

Gostaria de formatar os campos das colunas B, C, D como obrigatórios, caso o campo da coluna A esteja preenchido.
Se os campos obrigatórios não estiverem preenchidos, deve-se impossibilitar de salvar a planilha.

Desde já, agradeço.

[osvaldomp]

Experimente:

Código: Selecionar todos

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim LR As Long
  With Sheets("Planilha1")
   LR = .Cells(Rows.Count, 1).End(3).Row
   If Application.CountA(.Range("B2").Resize(LR - 1, 3)) < (LR - 1) * 3 Then
    MsgBox "PREENCHA TODOS OS CAMPOS OBRIGATÓRIOS"
    Cancel = True
   End If
  End With
End Sub