Página 1 de 1

Dados em determinada célula - neutraliza dados em outras.

Enviado: 04 Dez 2016 às 15:50
por GENECI
Boa tarde!

Tenho a seguinte dúvida e conta com a sua ajuda.

Ná célula da coluna D3 se eu digitar algum dado é possível neutralizar E3 F3 e G3 de modo que não possa receber dados.
Obs. Para as respectivas células da coluna.

Grato - GENECI.

Re: Dados em determinada célula - neutraliza dados em outr

Enviado: 04 Dez 2016 às 16:06
por alexandrevba
Boa tarde!!

Eu não sei se entendi, mas tente isso.
Código: Selecionar todos
Sub AleVBA_3586()
Dim chCell As Range
    Dim chRng As Range

    ActiveSheet.Unprotect
    Set chRng = ActiveSheet.Range("E3:G3")

    For Each chCell In chRng.Cells
        chCell.Locked = (chCell.Value <> "") 'Se as células E3,F3,G3 for diferende vazio
    Next chCell

    ActiveSheet.Protect
End Sub
Att