last record

[geebee]

hi,

i have the following:

Dim lastrecordAGING As Long
Range("AE5000").End(xlUp).Offset(0, 0).Select
lastrecordAGING = Selection.Row
Range("E2").End(xlToRight).Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select

i am trying to figure out how i can amend the lasdt line so that it only
selects up to the lastrecordAGING.

thanks in advance,
geebee

 

[Mike H]

Hi,

If I've understood correctly, try this:-

Sub stance()
Dim lastrecordAGING As Long
lastrecordAGING = Range("AE5000").End(xlUp).Offset(0, 0).Row
lastcell = Range("E2").End(xlToRight).Offset(0, 1).Address
Range(lastcell & ":AE" & lastrecordAGING).Select
End Sub


Mike

 

[JW]

hi,

i have the following:

Dim lastrecordAGING As Long
   Range("AE5000").End(xlUp).Offset(0, 0).Select
    lastrecordAGING = Selection.Row
Range("E2").End(xlToRight).Offset(0, 1).Select
Range(Selection, Selection.End(xlDown)).Select

i am trying to figure out how i can amend the lasdt line so that it only
selects up to the lastrecordAGING.

thanks in advance,
geebee

One way

Sub likeThis()
Dim lRow As Long
lRow = Cells(Rows.Count, "AE").End(xlUp).Row
Range("E2:" & Cells(lRow, Range("E2").End(xlToRight) _
.Offset(0, 1).Column).Address).Select
End Sub

 

[geebee]

hi,

this recommended code looks like it selects the last row like its supposed
to, but it selects too many columns. i just want it to select the most
recently added column. here is the code i have. the line which adds the new
column is maked with "*"

Range("E1").End(xlToRight).Offset(0, 0).Select
Selection.Copy
Range("E1").End(xlToRight).Offset(0, 1).Select "*"
Selection.Value = Format(CurrentReportMonth, "mmm-yy")
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ "*"
SkipBlanks:=False, Transpose:=False

Dim lRow As Long
lRow = Cells(Rows.Count, "AE").End(xlUp).Row
Range("H2:" & Cells(lRow, Range("H2").End(xlToRight) _
..Offset(0, 1).Column).Address).Select


thanks in advance,
geebee

 

[geebee]

hi,

never mind, i figured it out.

thanks

hi,

this recommended code looks like it selects the last row like its supposed
to, but it selects too many columns. i just want it to select the most
recently added column. here is the code i have. the line which adds the new
column is maked with "*"

Range("E1").End(xlToRight).Offset(0, 0).Select
Selection.Copy
Range("E1").End(xlToRight).Offset(0, 1).Select "*"
Selection.Value = Format(CurrentReportMonth, "mmm-yy")
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ "*"
SkipBlanks:=False, Transpose:=False

Dim lRow As Long
lRow = Cells(Rows.Count, "AE").End(xlUp).Row
Range("H2:" & Cells(lRow, Range("H2").End(xlToRight) _
.Offset(0, 1).Column).Address).Select


thanks in advance,
geebee