Excel vba how to select last row

[lecet444]

HOW TO SELECT LAST ROW, MORE IMPORTANTLY A CELL IN THAT LAST ROW WITH DATA

    Dim i As Integer
    For i = 2 To 10000
 
 TextBox4.Value = Range("B2").Value
 textbox5.value = (I WANT THAT TO BE LAST CELL IN THE B COLUMN)

I DUNNO WHERE TO GO FROM THERE

 

[MrKowz]

Try:

    Dim i As Integer
    For i = 2 To 10000
 
TextBox4.Value = Range("B2").Value
textbox5.value = [COLOR=red][B]Range("B" & Rows.Count).End(xlUp).Value[/B][/COLOR]

 

[lecet444]

works like a charm. Thank You very Much

 

[MrKowz]

works like a charm. Thank You very Much

Not a problem, thank you for the feedback.

 

[lecet444]

actually i made a mistake, the second part of your code works good
my first part. I was selecting a cell in a filter. I want to select the cell b that comes right after b1(down). its always changing relative to the filter I apply

 

[MrKowz]

actually i made a mistake, the second part of your code works good
my first part. I was selecting a cell in a filter. I want to select the cell b that comes right after b1(down). its always changing relative to the filter I apply

Try this out:

    Dim i As Long
    Dim LR  As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To 10000
 
TextBox4.Value = Range("B2:B" & LR).SpecialCells(xlCellTypeVisible).Cells(1).Value
textbox5.Value = LR

 

[lecet444]

Try this out:

    Dim i As Long
    Dim LR  As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To 10000
 
TextBox4.Value = Range("B2:B" & LR).SpecialCells(xlCellTypeVisible).Cells(1).Value
textbox5.Value = LR

Thank You ver much I tweaked the last bit though, to give me the cell value

    Dim i As Long
    Dim LR  As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To 10000
 
TextBox4.Value = Range("B2:B" & LR).SpecialCells(xlCellTypeVisible).Cells(1).Value
textbox5.Value = range [COLOR=red]("B" & LR[/COLOR])

Much appreciated