Excel VBA - Vários if para finalizar comando

[Augusto César LMP]

Boa tarde, tudo bem?

Minha situação é a seguinte: tenho a planilha abaixo. Quero que quando alguém alterar uma das colunas 1, 3, 4 ou 5 (A, C, D, e E), a coluna 10 (J) preencha a data e horário da atualização (= NOW). Contudo, também quero que caso essas quatro colunas estejam em branco (As quatro em branco, não apenas uma delas), a coluna 10 também fique em branco. Não estou conseguindo colocar essas condicionais. Segue a planilha (apenas um exemplo, não é a que vou usar de fato) e o código:

 

Código:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then Cells(Target.Row, 10) = Now
    If Target.Column = 3 Then Cells(Target.Row, 10) = Now
    If Target.Column = 4 Then Cells(Target.Row, 10) = Now
    If Target.Column = 5 Then Cells(Target.Row, 10) = Now
    
If Target.Value = "" Then
    Cells(Target.Row, 10) = ""
    End If
    End Sub

 

adicionado 25 minutos depois

Não sei se fui claro, mas:
Se todas as colunas especificadas estiverem em branco, quero que a coluna 10 fique em branco.

Se alguma das colunas especificadas forem alteradas, quero que a coluna 10 faça = NOW

Se caso alguém altere uma das colunas especificadas, erroneamente, perceba, e apague, voltando à primeira condicional, quero que a coluna 10 volte a ficar em branco

[Visitante]

2 horas atrás, Augusto César LMP disse:

Quero que quando ...

Contudo, também quero que caso ...

... quero que a coluna 10 fique ...

... quero que a coluna 10 faça = NOW

... quero que a coluna 10 volte ...

 

Pois não, Chefe

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("A:A, C:E")) Is Nothing Then Exit Sub
 Cells(Target.Row, 10) = IIf(Application.CountA(Cells(Target.Row, 1), Cells(Target.Row, 3).Resize(, 3)) < 4, "", Now)
End Sub

 

[Edson Luiz Branco]

Caro @Augusto César LMP , não sei se entendi direito, mas não custa tentar:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rg As Range, brancas As Byte
  If Not Intersect(Target, Me.Range("A:A,C:E")) Is Nothing Then
    Set rg = Intersect(Target.EntireRow, Me.Range("A:A,C:E"))
    With Application.WorksheetFunction
      brancas = .CountBlank(rg.Areas(1)) + .CountBlank(rg.Areas(2))
    End With
    Application.EnableEvents = False
      With Me.Cells(rg.Row, 10)
        If brancas = 4 Then .ClearContents Else .Value = Now
      End With
    Application.EnableEvents = True
  End If
  Set rg = Nothing
End Sub

_____

PS: , amigo Olsvaldo, não me dei conta que você já tinha respondido... e tá bem melhor e mais enxuto seu código! 

[Augusto César LMP]

Obrigado pelas respostas, gente! Amanhã no trabalho vou tentar usar e dou o feedback!

[Visitante]

Olá, Mestre Edson.

Quanto mais sugestões, mais enriquece o tópico. E em consultas futuras cada código certamente terá a sua utilidade.

 

Tal como você, eu também fiquei em dúvida com as necessidades do Chefe, pois aparentemente há conflito entre as duas colocações abaixo.

1. "Contudo, também quero que caso essas quatro colunas estejam em branco (As quatro em branco, não apenas uma delas), a coluna 10 também fique em branco."

2. "Se caso alguém altere uma das colunas especificadas, erroneamente, perceba, e apague, voltando à primeira condicional, quero que a coluna 10 volte a ficar em branco"

 

Mas, em ambos os códigos basta alterar o sinal de comparação.

...Resize(, 3)) < 4

If brancas = 4 ...

[Augusto César LMP]

@Edson Luiz Branco O seu código funcionou para esta planilha, mas no trabalho me deparei com a seguinte situação:
"se modificar as colunas 15, 20, 21 ou 23, tem que registrar a hora da 22. Se todas estiverem vazias, a 22 fica vazia"

Tentei alterar o me.range, mas não deu certo.

adicionado 17 minutos depois

17 minutos atrás, Augusto César LMP disse:

@Edson Luiz Branco O seu código funcionou para esta planilha, mas no trabalho me deparei com a seguinte situação:
"se modificar as colunas 15, 20, 21 ou 23, tem que registrar a hora da 22. Se todas estiverem vazias, a 22 fica vazia"

Tentei alterar o me.range, mas não deu certo.

Consegui! Valeeeeu