Erro dentro de SelectionChange

2024 - Fórmulas Avançadas - Funções Microsoft Excel

Post Recente por Fernando Fernandes 11 anos atrás

3 Posts

2 Usuários

0 Reactions

545 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Pessoal,
Vejam a função abaixo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
.
.
If Range("B5").Value <> "DIÁRIO" Then
Range("I5").Select
Else
Range("G5").Select
End If
.
.
End Sub

Nesta If eu preciso que, quando B5 for diferente de DIÁRIO, o cursor pule para I5, senão, que pule para G5.
Então, o cursor não sai de G5.
Eu não sei o que fazer para continuar o processamento.
Grato,
Pedro

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 31/03/2014 5:11 pm

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

pedro,

Como vc está trabalhando com eventos, existe uma outra preocupação.

O evento selection change vai executar o código toda vez que vc selecionar uma célula diferente, e por isso está "travando" o cursor na célla G5.

Para limitar a ação dos eventos, deve trabalhar com a célula alvo "target".

Pelo que eu entendi, o que vc quer fazer é, entrar na célula B5 e digitar uma informação, e, a partir da informação digitada, ir para outra célula. Se for isto, use este código:

Private Sub Worksheet_Change(ByVal Target As Range)
'somente executa o código se a alteração for realizada na célula B5
If Target.Row = 5 And Target.Column = 2 Then
    'verifica a alteração da célula B5 (definida acima) e executa a ação correspondente
    If Target.Value = "DIÁRIO" Then
        Range("G5").Select
    Else
        Range("I5").Select
    End If
End If
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 31/03/2014 5:27 pm