Notifications
Clear all

[Resolvido] Ultima linha com ".Find"


Bautto
(@bautto)
Eminent Member Registered
Entrou: 6 anos atrás
Posts: 39
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.


ResponderCitar (Quote)
Tags do Tópico
EdsonBR
(@edsonbr)
Prominent Member Moderator
Entrou: 5 anos atrás
Posts: 750
 

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 


Bautto curtiu
ResponderCitar (Quote)
Bautto
(@bautto)
Eminent Member Registered
Entrou: 6 anos atrás
Posts: 39
Topic starter  

@edsonbr

Muito obrigado.

Resolveu um problemão para mim.

Abçs.


ResponderCitar (Quote)