Copying Data error from master sheet based on Range criteria

**naga** · 06-06-2013, 06:42 AM

Hello all,

Am having a excel file in which I use to enter data in master sheet and save that in separate sheets based on Account Number.
The individual account sheet has "S.No" in column A which has numbers from 1 to 100.
When I try to save the data it is saving at the row which is after the s.no 100.
I need to save the data from column B to C.

I have the following code for checking the last row.

TheLastRow = Worksheets(VN_Sheet).UsedRange.Rows.Count + 1

The range should be changed to "b:c".

Kindly help.

**arlu1201** · 06-08-2013, 02:11 AM

I was not able to find the code you are talking about.

Just change the line from

TheLastRow = Worksheets(VN_Sheet).UsedRange.Rows.Count + 1

to

TheLastRow = worksheets(VN_Sheet).range("B" & rows.count).end(xlup).row

If you want it to increment by 1, you can change it to

TheLastRow = Worksheets(VN_Sheet).range("B" & rows.count).end(xlup).offset(1,0).row

Copying Data error from master sheet based on Range criteria

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Copying Data error from master sheet based on Range criteria

Re: Copying Data error from master sheet based on Range criteria

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions