Senhores, cheguei a esta VBA até com a ajuda do Planilhando, mas agora não consigo alterar da forma que quero e sempre dá erro. Sou leigo no assunto VBA.
Programa Criado:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 0 And Target.Column <> 0 Then
If Target.Row = 14 Then
If Target.Value = Range("Y35").Value Then
Cells(Target.Row + 2, Target.Column).Select
Else
Cells(Target.Row, Target.Column).Select
End If
End If
End If
Application.EnableEvents = True
Application.EnableEvents = False
If Target.Column <> 0 And Target.Column <> 0 Then
If Target.Row = 16 Then
If Target.Value = Range("AE35").Value Then
Cells(Target.Row - 2, Target.Column + 2).Select
Else
Cells(Target.Row, Target.Column).Select
End If
End If
End If
Application.EnableEvents = True
End Sub
Só que até então eu estava usando por linha, agora preciso usar por célula, ou seja, cada célula independente irá buscar um valor diferente, ficaria assim:
If Target.Column <> 0 And Target.Column <> 0 Then
If Target.Row = C14 Then
If Target.Value = Range("Y35").Value Then
Cells(Target.Row + 2, Target.Column).Select
Else
Cells(Target.Row, Target.Column).Select
Depois:
If Target.Column <> 0 And Target.Column <> 0 Then
If Target.Row = C15 Then
If Target.Value = Range("Y36").Value Then
Cells(Target.Row + 2, Target.Column).Select
Else
Cells(Target.Row, Target.Column).Select
Porém ao alterar ela entende que já não é Row mas sim Cell, porém não consegue ler e fazer o controle independente.
Poderia me ajudar por favor?
Agradeço desde já.
Postado : 28/07/2015 2:29 pm