Guru do Excel e Power BI

Enviado: **06 Nov 2018 às 12:04**

boa tarde , gostaria de saber se existe algum código que possa deslocar o cursor para a 7ª célula vazia acima a partir da posição inicial.
estou anexando uma planilha onde os elementos estão na coluna A e entre eles estão os espaços vazios. por exemplo , posição inicial A20, apos apertar o botão "DESLOCAR CURSOR", quero que o cursor vá para 7º célula vazia acima de A20. No exemplo da planilha em anexo, o curso deveria ir para A10.( que é a 7ª célula vazia acima).

Enviado: **06 Nov 2018 às 14:30**

Experimente. Funciona em qualquer coluna.

Código: Selecionar todos

Sub DeslocaSeteVaziasAcima()
 Dim k As Long, i As Long
 For k = ActiveCell.Row - 1 To 1 Step -1
  If Cells(k, ActiveCell.Column) = "" Then i = i + 1
  If i = 7 Then Cells(k, ActiveCell.Column).Activate: Exit Sub
 Next k
End Sub

Enviado: **06 Nov 2018 às 16:34**

Perfeito mano, muito grato.

Guru do Excel e Power BI

Ir para a 7ª célula vazia acima.

Ir para a 7ª célula vazia acima.

Re: Ir para a 7ª célula vazia acima.

Re: Ir para a 7ª célula vazia acima.