Just cant get range to work!

[ffialho]

Hi All,

running a quick code:

Basically column 49 will receive the DATE FORMAT value of column 39.
What I want is instead of running from line 2 to 100000 ( For k = 2 to 100000) - to use the lastrow! In this case just to calculate in filled space

dim lastrow as long
dim lascolumn as long
dim k as long

lastrow = sht.Range("A" & Rows.Count).End(xlUp).Row
lastcolumn = sht.Cells(1, Columns.Count).End(xlToLeft).Column + 1

Codes running here

With sht.Cells(1, lastcolumn)
.Value = "Expire_Date"
For k = 2 to 100000 --> change this to something like - use the lastrow and do it thru the lastrow range ( lets say from row 2 to 6503 ) or ( 2 to 2900) # of rows changes depending on the period used to generate the spreadsheet.
Cells(k,49).Value = CDate (Cells(k,39).Value)
Next k
End With

Other codes running here

Any help will be appreciated

 

[Joe4]

Well, you are already calculating the last row, so you should just be able to change this:

For k = 2 to 100000

to this

For k = 2 to lastrow

However, your lastrow calculation is referencing sheet "sht", which I do not see being set to anything anywhere:

lastrow = sht.Range("A" & Rows.Count).End(xlUp).Row

Is this being set somewhere else in your code that you haven't shown us?

 

[ffialho]

Hi Joe4! I did set the mentioned "sht" just forgot to share in the code! changing to lastrow worked as a charm! thanks for help!

 

[Joe4]

You are welcome.
Glad I was able to help!