Guru do Excel e Power BI

Enviado: **10 Jun 2021 às 19:48**

Boa noite.
Solicito a sua ajuda, conforme o arquivo anexo.

Grato - Geneci.

Enviado: **19 Jun 2021 às 16:19**

Olá, @GENECI .

Veja se atende. Cole uma cópia do código abaixo no módulo da Planilha1.

Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect([A1:L9], Target) Is Nothing Then Target.Offset(, 1).Activate
 If Not Intersect([M1:M8], Target) Is Nothing Then Target.Offset(1, -12).Activate
 If Target.Address = "$M$9" Then [A1].Activate
 
 If Not Intersect([A10:F27], Target) Is Nothing Then Target.Offset(1).Activate
 If Not Intersect([A28:E28], Target) Is Nothing Then Target.Offset(-18, 1).Activate
 If Target.Address = "$F$28" Then [A10].Activate
 
 If Not Intersect([A29:I35], Target) Is Nothing Then Target.Offset(, 1).Activate
 If Not Intersect([J29:J34], Target) Is Nothing Then Target.Offset(1, -9).Activate
 If Target.Address = "$J$35" Then [A29].Activate
 
 If Not Intersect([A36:H47], Target) Is Nothing Then Target.Offset(1).Activate
 If Not Intersect([A48:G48], Target) Is Nothing Then Target.Offset(-12, 1).Activate
 If Target.Address = "$H$48" Then [A36].Activate

End Sub

Enviado: **20 Jun 2021 às 13:10**

Boa tarde! osvaldo

Digno de sólidos conhecimentos no excel, parabéns.
Problema sanado.

Grato - Geneci.

Guru do Excel e Power BI

Mover o cursor determinando o sentido e restrição de células.

Mover o cursor determinando o sentido e restrição de células.

Re: Mover o cursor determinando o sentido e restrição de células.

Re: Mover o cursor determinando o sentido e restrição de células.