Notifications

Clear all

Bloqueio de Celular

2024 - Excel - O básico

Post Recente por Fernando Fernandes 12 anos atrás

5 Posts

4 Usuários

0 Reactions

1,097 Visualizações

RSS

badamceva

(@badamceva)

Posts: 107

Estimable Member

Topic starter

Pessoal
Boa tarde!

È que nao estou me lembrando sei que era no validação de dados, como fazer mesmo pra bloquear uma celula, tipo quando eu clicar nela ela nao deixar eu sair se nao colocar os dados....

Nao é dúvida que sei as normas do forum é que sei fazer no 2003 esse 2007 nao me recordo.

Obrigado

Postado : 20/07/2012 1:02 pm

badamceva

(@badamceva)

Posts: 107

Estimable Member

Topic starter

Celula*

Postado : 20/07/2012 1:11 pm

jonathansousa

(@jonathansousa)

Posts: 40

Eminent Member

Veja se lhe ajuda

Aba Dados.- Validação de dados - Critério de validação e coloque a opção que se adeque a sua necessidade.

EX.: Numero Inteiro.

Postado : 20/07/2012 1:41 pm

Robert

(@robert)

Posts: 561

Honorable Member

Bada,

Bom dia 1

Ainda não entendi sua necessidade. Existe várias meneiras para fazer isso de for o que eu estou pensando uma delas é através de VBA.

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

Postado : 21/07/2012 6:17 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Eu acredito que a dica do jonathansousa, atende perfeitamente!!!

Porém vou mandar um exemplo alheio para exemplificar uma maneira por VBA.

Abra o Edito VB, com as teclas Alt + F11, dentro do corpo de c´´odigo da planilha desejada em aplicar o código, insira o mesmo!

Private Sub Worksheet_Change(ByVal Target As Range)
    'Supervalidaçaõ, impede alterar dados
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Application.EnableEvents = False
        If Application.CountIf(Range("A:A"), Target.Value) > 1 Then
            MsgBox "esse número já existe"
            Application.Undo
        End If
    Application.EnableEvents = True
End Sub

Tirem bom proveito, façam as adaptações necessárias abraços..