Como requerer uma entrada de célula se outra célula tiver um valor

Question

Estou tentando editar o VBA de uma das minhas pastas de trabalho para que, se houver um valor na coluna A, um valor para a coluna C seja necessário ou o arquivo não seja salvo, mas estou tendo problema com isso. Eu posso obter o Excel para verificar uma célula para qualquer entrada e exigir que ele tenha entrada, mas eu preciso verificar se uma célula diferente tem uma entrada antes de exigir entrada. Isso ocorre porque nem todas as linhas da minha planilha serão usadas o tempo todo, mas algumas pessoas esquecem de colocar informações muito importantes na planilha eletrônica, o que faz com que alguns dos nossos equilíbrios sejam descartados.

Um SKU é inserido na planilha quando mudamos para um novo, e eu quero que o programa tenha certeza de que há uma quantidade de produto em uma determinada célula toda vez que um novo SKU é inserido na planilha.

Obrigado.

    

Answer 1

Algo como isso funcionaria, lembra o usuário para inserir algo em quantidade. Coloque-o no código da planilha.

Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, Range("A:A")) Is Nothing And target.Value <> "" Then

    If target.Offset(, 2) = "" Then
        MsgBox ("For the SKU you just entered, be sure to enter a quantity in Column C")
    End If

End If

End Sub

Você pode alterá-lo para receber uma entrada ou qualquer outra coisa, se desejar. Assim -

Sub worksheet_change(ByVal target As Range)

If Not Intersect(target, Range("A:A")) Is Nothing And target.Value <> "" Then

    If target.Offset(, 2) = "" Then
        target.Offset(, 2) = InputBox("How many of these are there?")
    End If

End If

End Sub