Este fórum está sendo desativado

[Cisneiro]

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).

[osvaldomp]

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

[Cisneiro]

Perfeito mano, muito grato.