Guru do Excel e Power BI

Enviado: **17 Nov 2019 às 20:33**

Olá!
Estou fazendo um planilha onde eu inseri um comando para que ela fosse classificada automaticamente em ordem decrescente após alguma alteração na planilha. Porém, depois de classificada em ordem decrescente eu gostaria que a célula ativa fosse a próxima célula vazia no intervalo "H:M" a partir da célula "H3", mas que seguisse a seguinte sequência:
Selecionar a célula "H3" e caso ela não esteja vazia selecionar a próxima célula na mesma linha até a célula "M3" e retorne para a célula "H4" até a "M4" , depois "H5" até a "M5"e assim por diante. Ou seja, procurar a célula vazia na mesma linha e só depois procurar na linha de baixo, mas somente no intervalo das colunas H:M.
Eu usei este comando, mas ele não limita o intervalo "H:M"

Sub Classificar_Ordem_Decrescente()

Range("B2:D62").Select
ActiveWorkbook.Worksheets("Planilha3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Planilha3").Sort.SortFields.Add2 Key:=Range( _
"D3:D62"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Planilha3").Sort
.SetRange Range("B2:D62")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("H3").Select ' Selecionar a célula "H3"

While ActiveCell.Value <> "" ' Selecionar a próxima célula vazia na horizontal no campo "RESULTADOS"
ActiveCell.Offset(0, 1).Select

Wend

End Sub

Enviado: **17 Nov 2019 às 21:35**

Código: Selecionar todos

Sub ProcuraCélVazia()
 Dim cv As Range
  Set cv = Range("H2:M100").Find(What:="")
  cv.Select
End Sub

Enviado: **23 Nov 2019 às 00:06**

Boa noite,
funcionou perfeitamente. Muito obrigado!

Guru do Excel e Power BI

Macro para selecionar próxima célula vazia em um intervalo

Macro para selecionar próxima célula vazia em um intervalo

Re: Macro para selecionar próxima célula vazia em um interva

Re: Macro para selecionar próxima célula vazia em um interva