Notifications
Clear all

[Resolvido] Ultima linha com ".Find"

3 Posts
2 Usuários
1 Reactions
1,294 Visualizações
(@bautto)
Posts: 0
New Member
Topic starter
 

Colegas, boa tarde.

Venho novamente solicitar ajuda de algum mestre do fórum.

Preciso, na planilha anexa, na aba Plan5, que uma função de busca, me retorne a última linha das colunas "J" e "K", no caso a linha "906" e, em seguida, direcione para a célula da coluna "A", na linha que inicia o bloco. No caso seria a célula "A905", que é onde está a referência de que necessito.

A mesclagem nesse grupo de células é necessária, pois a referência da primeira célula do grupo é o parâmetro para a pesquisa dos dados das demais linhas, na aba "Plan1". A única alternativa que encontrei seria a repetição do dado em todas as células desse grupo, o que tornaria poluído o local.

Tentei utilizar várias alternativas de busca, que podem ser vistas no Módulo9 do arquivo anexo, mas todas me retornam a linha 1144, no exemplo, em razão de existir fórmulas nas células.

Tentei também usar a rotina do Módulo10, mas está retornando a mensagem de que a variável do bloco With não foi definida, mas só tenho duas variáveis em uso: lrw , a linha que procuro e rng, onde estou procurando,  e não identifico a que variável o VBA se refere.

Necessito dessa informação, pois vou utilizar para fazer a exclusão das linhas abaixo, em bloco, para eliminar os blocos não necessários ao trabalho.

Agradeço qualquer auxilio dos colegas.

 
Postado : 13/12/2020 5:46 pm
Tags do Tópico
(@edsonbr)
Posts: 0
New Member
 

Boa noite, @bautto

Sub CélProcurada()
  Dim rng As Range, lrw As Long
  With Worksheets("Plan5")
    lrw = .Range("K:K").Find(What:="*", _
                             After:=.Range("K1"), _
                             LookAt:=xlPart, _
                             LookIn:=xlValues, _
                             SearchOrder:=xlByRows, _
                             SearchDirection:=xlPrevious).Row
    Set rng = .Cells(lrw, 1).MergeArea.Cells(1)
  End With
End Sub 
 
Postado : 13/12/2020 10:17 pm
Bautto reacted
(@bautto)
Posts: 0
New Member
Topic starter
 

@edsonbr

Muito obrigado.

Resolveu um problemão para mim.

Abçs.

 
Postado : 14/12/2020 9:31 am