Página 1 de 1

VALIDAÇÃO DE DADOS COM DELETE

Enviado: 02 Out 2020 às 11:08
por Leonardo1234
Olá Pessoal,

Eu estou reabrindo meu ultimo topico pois não estou conseguindo replicar a macro que foi desenvolvida da planilha de teste para a minha planilha original. Osvaldo_mp, agradeço se voce conseguir me ajudar, já que foi quem desenvolveu a macro. Nessa minha nova planilha, a regra é exatamente igual, só muda o intervalo de aplicação. Nessa planilha, as células da coluna I devem ser maiores que as da coluna F. Tentei ajustar esses intervalos, mas não está dando certo. Nessa minha planilha, inclusive, alem do intervalo I>F, a mesma regra também teria que valer sobre as colunas H e G, sendo H sempre maior que G. Agradeço muito a ajuda e desculpa ter que reabrir o topico, como eu encerrei o anterior, não teve jeito.

Re: VALIDAÇÃO DE DADOS COM DELETE

Enviado: 02 Out 2020 às 13:50
por babdallas
Veja se resolveu.

Re: VALIDAÇÃO DE DADOS COM DELETE

Enviado: 02 Out 2020 às 14:46
por Leonardo1234
Obrigado Babdallas, está funcionando. Apenas nas colunas H e G que não está, vcoê conseguiria ajustar para essas colunas também? Muito obrigado.

Re: VALIDAÇÃO DE DADOS COM DELETE

Enviado: 02 Out 2020 às 14:55
por osvaldomp
Olá, Leonardo.
Instale uma cópia do código abaixo no lugar do anterior.
O critério é igual ao exemplo do outro tópico e não considera as comparações I>F e nem H>G, que ficam por conta da Validação que você aplicou na planilha, no entanto, se você quiser, é possível incrementar o código para que faça a "validação" em substituição à Validação de Dados.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If (Target.Column = 9 And Target.Value = 0 And Target.Offset(, -3).Value <> 0) Or _
    (Target.Column = 8 And Target.Value = 0 And Target.Offset(, -1).Value <> 0) Then
   Application.Undo
   MsgBox "NÃO PERMITIDO"
 End If
End Sub