Return actual range not cell value in variable

  • Thread starter Thread starter Richhall
  • Start date Start date
R

Richhall

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
 
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
 
Back
Top