Notifications
Clear all

Selecionar Ultimas Linhas preenchidas de coluna

4 Posts
2 Usuários
0 Reactions
1,462 Visualizações
(@anders1405)
Posts: 4
New Member
Topic starter
 

Bom dia Pessoal, uma duvida que estou tendo para adaptar a minha rotina aqui.

Poderiam me informar um código onde Selecione os últimos 7 dados preenchidos na coluna C?

É uma coluna com mais de 100 dados, mas preciso selecionar somente os últimos 7 delas, estes últimos valores podem estar em variadas posições, não necessariamente estarão sempre na mesma célula…

No que puderem me ajudar agradeço desde já.

Anderson.

 
Postado : 09/07/2020 7:22 am
JSCOPA10
(@jscopa10)
Posts: 344
Reputable Member
 

.
anderson1405, você quer selecionar as 7 últimas linhas, de acordo com a coluna C ... ou os 7 últimos dados?? ... É que ficou parecendo que pode ter 3 dados na última célula/linha e 4 na penúltima, assim seriam selecionadas só as duas últimas linhas!!!
.
PS: como pedem as regras, e para agilizar a resposta, é sempre bom postar o arquivo ou um exemplo num servidor e depois colar o link aqui (ex: www.sendspace.com)!!

 
Postado : 09/07/2020 7:32 am
(@anders1405)
Posts: 4
New Member
Topic starter
 

Olá, desculpe, ficou meio confuso mesmo, abaixo um modelo da minha planilha, quero selecionar apenas as ultimas 7 celulas da coluna C, levando em consideração que posso aplicar um filtro de produto. Uma vez que na mesma tabela são lançados diversos produtos diferentes.. (desculpe não tenho acesso ao sendspace aqui..)

https://ibb.co/Zcx92df

Anderson.

 
Postado : 09/07/2020 7:51 am
(@anders1405)
Posts: 4
New Member
Topic starter
 

Consegui atraves do codigo abaixo:

Sub Macro()
    Dim I, L, N, A As Integer
    
    I = [C2].End(xlDown).Row
    L = I
    N = I
    
    Do Until (I - L) = 7 Or (I - A) < 2
        If Cells(I - A, 3).EntireRow.Hidden = False Then
            L = L - 1
            N = Cells(I - A, 3).Row
        End If
            A = A + 1
    Loop
    
    Range(Cells(I, 3), Cells(N, 3)).Select
End Sub

Obrigado pela atenção.

Anderson.

 
Postado : 09/07/2020 1:48 pm