Return actual range not cell value in variable
 

Hi, forgive my poor coding, as I haven't learnt VBA at all. How do I
ger rowendrange and nowrow to return the cell range instead of the
cell value?

Dim rowend As String
Dim rowendrange As Range
Dim nowrow As Range
Dim lastrow As Range

If Me.TextBox1.Value = "" Then
rowend = 0
Else
rowend = Me.TextBox1.Value
End If

rowendrange = ActiveCell.Offset(rowend, 0).Range
nowrow = ActiveCell.Offset(0, -2).Range

Me.TextBox2.Value = nowrow
Me.TextBox3.Value=rowendrange

Thanks in advance

Rich

Return actual range not cell value in variable
 

I think when you are saying "range" you actually mean "address". In which
case, change the two lines to:

rowendrange = ActiveCell.Offset(rowend, 0).Address
nowrow = ActiveCell.Offset(0, -2).Address

--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Richhall" wrote:

Hi, forgive my poor coding, as I haven't learnt VBA at all. How do I
ger rowendrange and nowrow to return the cell range instead of the
cell value?

Dim rowend As String
Dim rowendrange As Range
Dim nowrow As Range
Dim lastrow As Range

If Me.TextBox1.Value = "" Then
rowend = 0
Else
rowend = Me.TextBox1.Value
End If

rowendrange = ActiveCell.Offset(rowend, 0).Range
nowrow = ActiveCell.Offset(0, -2).Range

Me.TextBox2.Value = nowrow
Me.TextBox3.Value=rowendrange

Thanks in advance

Rich