Como faço para encontrar o ultimo valor preenchido de uma coluna


#1

Bom dia,

Quero encontrar o último valor de uma coluna para somar com outro resultado. A busca tem que ser de baixo para cima. Fiz um script onde a função ‘find’ esta retornando o valor do numero da linha e não o valor da celular. Alguem pode me ajudar?

                        Sub verificador()
            Dim lin, fim As Integer
            Dim valorIntervalo As Long
            Dim Linha As Long
            fim = Range("C1").End(xlDown).Row
            lin = 2
            valorIntervalo = Plan1.Range("G5").Value
            'Linha = Columns(4).Find("*", , , , xlByColumns, xlPrevious).Value
            
            Plan1.Select
            
            Do While lin <= fim
                If Plan1.Cells(lin, 3).Value >= valorIntervalo Then
                    Plan1.Cells(lin, 4).Value = valorIntervalo
                    valorIntervalo = valorIntervalo + Columns(4).Find("*", , , , xlByColumns, xlPrevious).Value
            
                    
                    Else
                    Plan1.Cells(lin, 4).Value = ""
                End If
                lin = lin + 1
            Loop
            
            End Sub

#2

Mude:
fim = Range("C1").End(xlDown).Row

para:
fim = Range("C1").End(xlDown).Value

Eu não recomendo esse método pois, se houver alguma célula em branco no meio de outras preenchidas, não trará o resultado desejado.

eu faria assim:

fim = Range("C" & Range("C" & rows.count).End(Xlup).Row).Value