Using the data in the last cell

[Guest]

I am trying to define a variable with the data in the last cell in a column.
I've been trying to use the following:

Range("A1").Select
Dim DataCheck2 As Date
DataCheck = Range("A" & (Cells(Rows.Count,
ActiveCell.Column).End(xlUp).Offset(-1, 0).Value)).Value

 

[Guest]

I am trying to define a variable with the data in the last cell in a column.
I've been trying to use the following:

Range("A1").Select
Dim DataCheck2 As Date
DataCheck = Range("A" & (Cells(Rows.Count,
ActiveCell.Column).End(xlUp)Value)).Value

 

[Gary Keramidas]

this is one way

Sub test()
Range("A1").Select
Dim DataCheck2 As Date
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row

DataCheck2 = Range("A" & lastrow).Value
Debug.Print DataCheck2
End Sub



Gary

 

[Dave Peterson]

Dim DataCheck2 as Date
with activesheet
datacheck2 = .cells(.rows.count,"A").end(xlup).value
end with

Watch your variables (datacheck vs. datacheck2)