Prezados,
Preciso de auxílio para o caso em questão.
Estou criando uma planilha com auxílio do VBA, tal planilha salvara tudo em um banco de dados ACCESS, a intenção minha é que, se B5 for preenchida, então F5 também deve. isso é fácil, resolvido pela formula abaixo:
If Range("B5").Value <> "" And Range("F5").Value = "" Then
Range("F5").Select
myCel = ActiveCell.Address
MsgBox ("Por favor, insira valor no campo " + myCel)
Mas quando inserimos os dados, inserimos mais de 1 por vez, e existem mais de uma célula obrigatória, como posso fazer para que ele entenda que se houver algum valor na coluna B, automaticamente a coluna F da respectiva linha seja obrigatória.
Tentei conforme abaixo, mas sem sucesso.
If Cells("B:B").Value <> "" And Cells("F:F").Value = "" Then
Range("F:F").Select
myCel = ActiveCell.Address
MsgBox ("Por favor, insira valor no campo " + myCel)
Exit Sub
Else
Consegui, realizei uns testes aqui e deu certo, segue:
For p = 5 To 10000
If Cells(p, 9).Value = "OUTROS" Then
Sheets("Malote").Cells(p, 10).Select
If Cells(p, 10).Value = "" Then
MsgBox ("Processo Outros é obrigatório especificar seu tipo")
Else
con.Execute stSQL
Cells().SpecialCells(xlCellTypeConstants).ClearContents
Sheets("Malote").Cells(p, 9).Select
End If
End If
Next p
Mesmo assim preciso de ajuda, como esta vinculado ao Banco, ele realiza a inclusão da linha que está certa e barra a errada, e se apertado novamente, ele incluí a certa e a corrigida.