Value of last row record

[gregork]

Hi
On a user form I want a text box value to be the last value in a row of a
worksheet. i.e.

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheets("Blend Sheet").Range ("B3:B500").Text' Last
Row'

How do I change the code to achieve this?

Regards
gregorK

 

[Frank Kabel]

Hi
try
Me.TextBox1.Value = Sheets("Blend Sheet").Cells(Rows.count,
"B").End(xlUp).value

 

[Guest]

Hi gregork

You can use the special cells function like Me.TextBox1.Value = Sheets.Cells.SpecialCells(xlCellTypeLastCell).value just make sure that the last cell to be edited is the cell that contains the value that you want. If you press CTRL + END will indicate what the xlCellTypeLastCell is

cia
K
----- gregork wrote: ----

H
On a user form I want a text box value to be the last value in a row of
worksheet. i.e

Private Sub UserForm_Initialize(
Me.TextBox1.Value = Sheets("Blend Sheet").Range ("B3:B500").Text' Las
Row

How do I change the code to achieve this

Regard
gregor

 

[gregork]

Thanks for your replies guys....your solutions were very helpful.

Cheers
gregorK