Excel Preenchimento Obrigatório em colunas

[crownics]

Bom dia!

 

Estou tentando desenvolver uma planilha que necessito que as linhas de uma coluna, quando preenchidas por Aguardado Assinatura (Coluna E), seja obrigatório o preenchimento da OC (Coluna B). 

Em um tópico do forum, localizei o seguinte código:

Citação

A) o código abaixo impede desativar a Plan1; instele-o no módulo da Plan1

1. copie o código

2. clique com o direito na guia da Plan1 e escolha 'Exibir código'

3. cole o código na janela em branco que se abirá

4. feito! Alt+Q para retornar para a planilha e testar

Citação

Private Sub Worksheet_Deactivate()

If [A1] = "Pendente" And [B1] = "" Then

MsgBox "preencha 'B1'"

Sheets("Plan1").Activate

End If

End Sub

 o código abaixo impede fechar o arquivo; instale-o no módulo de 'EstaPasta_de_trabalho'

1. copie o código

2. Alt+F11 para acessar o editor de VBA

3. duplo clique em 'EstaPasta_de_trabalho'

4. cole o código na janela em branco que se abrirá

5. feito! Alt+Q para retornar para a planilha e testar

Citação

Private Sub Workbook_BeforeClose(Cancel As Boolean) With Sheets("Plan1")

 If .[A1] = "Pendente" And .[B1] = ""

Then MsgBox "preencha 'B1'"

Sheets("Plan1").Activate Cancel = True

End If

End With

End Sub

 

C) o código abaixo impede salvar o arquivo; instale-o no módulo de 'EstaPasta_de_trabalho', siga as etapas do item  acima

Citação

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Sheets("Plan1")

If .[A1] = "Pendente" And .[B1] = "" Then MsgBox "preencha 'B1'"

Sheets("Plan1").Activate Cancel = True

End If

End With

End Sub

 

  Os códigos acima funcionam, porém, somente para a linha específica A1 e B1, e quero o código se expanda para as colunas citadas, e quando colocar que é obrigatório preencher a coluna B, informe qual o número da linha que necessita ser preenchida (Se possível).

 

Desde já, agradeço.

 

New Compressed (zipped) Folder.zip

[Patropi]

Boa tarde @crownics

 

Se você não anexar uma Pasta de Trabalho de exemplo, fica difícil obter ajuda do pessoal aqui do fórum.

 

[]s

[crownics]

18 horas atrás, Patropi disse:

Boa tarde @crownics

 

Se você não anexar uma Pasta de Trabalho de exemplo, fica difícil obter ajuda do pessoal aqui do fórum.

 

[]s

Editei com a planilha